' Закрытие всех окон редактора синтаксиса. ' Решение 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