'Этот скрипт очищает активное окно результатов SPSS 'Требования: окно результатов должно существовать ' Очень удобно назначить вызов этого скрипта кнопке на панели инструментов ' Простое нажатие кнопки очищает окно результатов. Очень удобно при отладке скрипта ' или пробах обработки данных с разными параметрами. Option Explicit Sub Main() 'СКРИПТ ДЛЯ ОЧИСТКИ СОДЕРЖИМИОКО ОКНА РЕЗУЛЬТАТОВ (Output) Dim objOutputDoc As ISpssOutputDoc Dim objItems As ISpssItems Dim objItem As ISpssItem On Error Resume Next Set objOutputDoc = objSpssApp.GetDesignatedOutputDoc Set objItems = objOutputDoc.Items Set objItem = objItems.GetItem(0) 'Выделяем все элементы objItem.Current = True objItem.Selected = True objOutputDoc.Remove End Sub Sub version2() ' Второй вариант той же процедуры. Делает то же самое Dim objOutputDoc As ISpssOutputDoc Set objOutputDoc=objSpssApp.GetDesignatedOutputDoc ' Выделяем все элементы в активном окне результатов и удаляем их : objOutputDoc.SelectAll objOutputDoc.Delete End Sub