Запуск синтаксиса в пакетном (batch) режиме

' Запуск синтаксиса в пакетном (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