'Begin Description 'This script saves the current Designated Output window, closes it and Open a new one 'The path and filename are specified at the beginning of the script 'rlevesque@videotron.ca 2001/09/09 'End Description Option Explicit Sub Main Dim objOutputDoc As ISpssOutputDoc Dim strParam As String Dim strPath As String Dim strFileName As String Set objOutputDoc=objSpssApp.NewOutputDoc ' ******** Change the next 2 lines as required strPath = "c:\\temp\\" strFileName = "FileName.spo" 'Give path and file name to output document objOutputDoc.SaveAs( strPath & strFileName) 'objSpssApp.OpenOutputDoc (strPath & strFileName) 'objOutputDoc.Close 'Set objOutputDoc=objSpssApp.GetDesignatedOutputDoc 'objOutputDoc.Visible=True Set objOutputDoc=Nothing End Sub