Date:         Mon, 2 Jul 2001 10:44:04 -0400
Reply-To:     Raynald Levesque <rlevesque@VIDEOTRON.CA>
Sender:       "SPSSX(r) Discussion" <SPSSX-L@LISTSERV.UGA.EDU>
From:         Raynald Levesque <rlevesque@VIDEOTRON.CA>
Subject:      Re: How copy the draft output document to clip board using VB
              command ?
In-Reply-To:  <000001c1028d$0dd6cdb0$150000c0@PAULWIN2K>
Content-Type: text/plain; charset="iso-8859-1"

This does it:

Sub Main
' Declare variables and get the DraftOutput document:
Dim objDraftDoc As ISpssDraftDoc
Set objDraftDoc=objSpssApp.GetDesignatedDraftDoc
' Select all items in the DraftOutput document and copy them to the
clipboard:
objDraftDoc.SelectAll
objDraftDoc.Copy
End Sub

Raynald Levesque rlevesque@videotron.ca
Visit My SPSS Pages: http://pages.infinit.net/rlevesqu/



-----Original Message-----
From: SPSSX(r) Discussion [mailto:SPSSX-L@LISTSERV.UGA.EDU]On Behalf Of
Paul Yeo
Sent: Sunday, July 01, 2001 5:44 PM
To: SPSSX-L@LISTSERV.UGA.EDU
Subject: How copy the draft output document to clip board using VB
command ?


Hi all SPSS list members ,  In the pass i have using VB to call output
document for my analysis there is not problem.
Recently i try to use VB call the draft document for my analysis , when i
try to copy the
draft document to clip board , i have problem , can some one enlighten me on
this.

Following is the commmend i try to use , and it give me error
' Mthode ' GetDesignatedoutdoc " of object ' ISpssApp ' Failed

' Declare variables and get the first output document:
Dim objOutputDoc as ISpssOutputDoc
Set objOutputDoc=objSpssApp.GetDesignatedOutputDoc
' Select all items in the output document and copy them to the clipboard:
objOutputDoc.SelectAll
objOutputDoc.Copy

I try the above command for output document it work , but it does not work
with draft document .


Regards,


Paul Yeo
General Manager
TDS Technology (S) Pte Ltd
Tel : (65) 366 1661
Fax : (65) 362 1661
Email : paulyeo@tdstech.com