1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
' Закрытие всех окон редактора синтаксиса.
' Решение AnswerNet; код: 100006301
' Составлено 27.05.1999

Sub Main
	Dim objDocuments As ISpssDocuments
	Dim i As Integer

	Set objDocuments = objSpssApp.Documents
	With objDocuments
	For i = .SyntaxDocCount - 1 To 0 Step -1
		.GetSyntaxDoc(i).Close
	Next
	End With
End Sub