'Описание 'Скрипт удаляет содержимое простого (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