'Begin Description 'Скрипт создаёт новый документ Output, делает его окно окном назначения (Designated) 'и сохраняет его с указанным именем. 'Путь и имя файла указываются в начале скрипта. 'Автор: rlevesque@videotron.ca, 09.09.2001. 'End Description ' Перевод: А. Балабанов, 19.11.2008. ' Проверено: SPSS 15.0.0. Option Explicit Sub Main Dim objOutputDoc As ISpssOutputDoc Dim strParam As String Dim strPath As String Dim strFileName As String Set objOutputDoc=objSpssApp.NewOutputDoc ' ******** Поменяйте содержимое следующих двух строк по своему усмотрению. strPath = "c:\\temp\\" strFileName = "FileName.spo" 'Указываем путь и имя файла для нового документа objOutputDoc.SaveAs( strPath & strFileName) 'objSpssApp.OpenOutputDoc (strPath & strFileName) 'objOutputDoc.Close 'Set objOutputDoc=objSpssApp.GetDesignatedOutputDoc objOutputDoc.Visible=True Set objOutputDoc=Nothing End Sub