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