'Цель: Скрипт создаст новое окно результатов (Output Document) и сделает его активным 'Автор: Tom Dierickx 'Дата: 21 ноября 2000 г. Sub Main() Dim objOutputDoc As ISpssOutputDoc ' объект Output Document (окно результатов) 'Создание нового окна результатов и установление свойства Visible (видимый) в True (истина) '(по умолчанию это делает окно "активным") Set objOutputDoc = objSpssApp.NewOutputDoc objOutputDoc.Visible = True objOutputDoc.WindowState = SpssMaximized Set objOutputDoc = Nothing End Sub