Очистить рабочее простое окно результатов

'Описание
'Скрипт удаляет содержимое простого (draft) окна результатов, если оно является рабочим (designated).
'Примечание: если в момент запуска скрипта простое окно результатов отсутствует, либо оно не является рабочим,
'скрипт не выполнит никаких действий.
'  Удобно назначить этот скрипт кнопке из панели инструментов.
'  Простое нажатие кнопки тогда очищает окно результатов.
'Конец описания
' Автор: Raynald Levesque, 04.01.2004

Option Explicit		

Sub Main()
'СКРИПТ, ОЧИЩАЮЩИЙ ПРОСТОЕ ОКНО РЕЗУЛЬТАТОВ (DRAFT OUTPUT)
            
	Dim objOutputDoc As ISpssDraftDoc
	Dim lngNbDraftDoc As Long
	Dim objDocuments As ISpssDocuments
	Dim Count As Integer, i As Integer, intCount As Integer

	lngNbDraftDoc=objSpssApp.Documents.DraftDocCount
	'если не открыто ни одного простого окна результатов, выходим из процедуры
	If lngNbDraftDoc = 0 Then Exit Sub

	Set objDocuments=objSpssApp.Documents
	intCount = objDocuments.DraftDocCount

	For i = 0 To intCount - 1
		Set objOutputDoc = objDocuments.GetDraftDoc(i)
		If objOutputDoc.Designated = True Then
			' Выделяем все элементы окна результатов и удаляем их:
			objOutputDoc.SelectAll
			objOutputDoc.Delete
			Exit For
		End If
		Set objOutputDoc = Nothing
	Next
End Sub