Date:         Sun, 4 Jun 2000 13:43:50 +0800
Reply-To:     Paul Yeo <paulyeo@CYBERWAY.COM.SG>
Sender:       "SPSSX(r) Discussion" <SPSSX-L@LISTSERV.UGA.EDU>
From:         Paul Yeo <paulyeo@CYBERWAY.COM.SG>
Subject:      Using VB to open Draft Document
Content-Type: multipart/alternative;

I try to making use of VB to open draft Document , it never work , But when i try to open Output Document it's work well, can some one here help me.

Enclosed following are my VB Code :-


Option Explicit

Private Sub Form_Load()

 ' Declare variables
Dim objSpssApp As ISpssApp
Dim objDataDoc As ISpssDataDoc
Dim objSpssOptions As ISpssOptions

'..................................................................
 'Create the SPSS application
'..................................................................
 
Set objSpssApp = CreateObject("SPSS.Application")

 'Open a new Data Editor
 Set objDataDoc = objSpssApp.NewDataDoc
  
  'Display Data Editor
 objDataDoc.Visible = True
 
 'Get the Options object
Set objSpssOptions = objSpssApp.Options
 
 'Set measurement system to points
objSpssOptions.MeasurementSystem = 0

'=== Why This Section Is NOT WORKING For open 1 Draft OutPut Document =====
 
 'Declare variables
Dim objDocuments As ISpssDocuments
Dim objOutputDoc As ISpssOutputDoc
 
 'Open three Output Documents
Set objOutputDoc = objSpssApp.NewOutputDoc


Dim I As Integer
Dim Count As Integer
Dim objDraftDoc As ISpssDraftDoc
Set objDocuments = objSpssApp.Documents

' Loop through draft documents and make them all visible:
Count = objDocuments.DraftDocCount
For I = 0 To Count - 1
    Set objDraftDoc = objDocuments.GetDraftDoc(I)
    objDraftDoc.Visible = True
Next

'============This Section Is WORKING For open 3 OutPut Document ========

 'Open three Output Documents
Set objOutputDoc = objSpssApp.NewOutputDoc
Set objOutputDoc = objSpssApp.NewOutputDoc
Set objOutputDoc = objSpssApp.NewOutputDoc

 'Get the documents collection
Set objDocuments = objSpssApp.Documents

 'Loop through the documents collection and cascade Output Documents
Dim intCount As Integer
Dim intWindowPos As Integer
intWindowPos = 40
intCount = objDocuments.OutputDocCount
For I = 0 To intCount - 1
   intWindowPos = intWindowPos + 60
   Set objOutputDoc = objDocuments.GetOutputDoc(I)
   objOutputDoc.Top = intWindowPos
   objOutputDoc.Left = intWindowPos
   objOutputDoc.Visible = True
Next

End Sub

TIA.

Paul Yeo
TDS Technology (S) P/L
www.tdstech.com
Tel (65) 3661661
Fax(65) 3621661


[text/html]