1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
' Запуск синтаксиса в пакетном (batch) режиме.
' Это удобно при отладке, если вы хотите, чтобы синтаксис из активного окна был исполнен
' вплоть до первой возникшей ошибки.
' Автор: Raynald Levesque, 03.02.2004


Sub Main

' Будет удобнее, если вы сопоставите этот скрипт кнопке на панели инструментов окна синтаксиса

        Dim objSyntaxDoc As ISpssSyntaxDoc
        Dim strDocPath As String

        Set objSyntaxDoc = objSpssApp.GetDesignatedSyntaxDoc
        strDocPath = objSyntaxDoc.GetDocumentPath
        Debug.Print strDocPath
        objSyntaxDoc.Visible =True

        If MsgBox ("Сохранить синтаксис и запустить его на выполнение вплоть до первой ошибки?", vbYesNo) = vbYes Then
                objSyntaxDoc.SaveAs strDocPath
                objSpssApp.ExecuteInclude (strDocPath,False)
        End If
        Set objSyntaxDoc = Nothing
End Sub