1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
'Этот скрипт очищает активное окно результатов 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