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
'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