'Begin Description 'This script empties the designated output document 'Requirements: A Designated Output doc must exist ' It is very convenient to "attach" this script to a button on the tool bar ' A simple click on the button clears the Output window ' Author: Raynald Levesque (http://www.spsstools.net/) 'End Description Option Explicit Sub Main() 'SCRIPT TO EMPTY DESIGNATED OUTPUT WINDOW 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) 'Select all items objItem.Current = True objItem.Selected = True objOutputDoc.Remove End Sub Sub version2() Dim objOutputDoc As ISpssOutputDoc Set objOutputDoc=objSpssApp.GetDesignatedOutputDoc ' Select all items in the output document and delete them : objOutputDoc.SelectAll objOutputDoc.Delete End Sub