Re: Passing Text from Forms to a Word Document.

try to do it in a logical way!!
cconway <conway-ce_at_erols.com> wrote in message news:8epe85$i01$1_at_bob.news.rcn.net...
> I've successfully passed a single text item to a bookmark in Word 2000.
> However, I'm having trouble passing multiple items to multiple bookmarks
 in
> the same document. Here's my souce code:
>
> DECLARE
>
> -- Declare the OLE objects
>
> MyApplication OLE2.OBJ_TYPE;
> MyDocuments OLE2.OBJ_TYPE;
> MyDocument OLE2.OBJ_TYPE;
> MySelection OLE2.OBJ_TYPE;
>
> v_ccname varchar2 (15);
> v_addr1 varchar2 (40);
>
> -- Declare handle to the OLE argument list
>
> args OLE2.LIST_TYPE;
>
> BEGIN
>
> -- break on cc_code skip new page
> select cc_name,
> cc_ad1 into v_ccname,
> v_addr1
> from ocme_2k.cme_cityco
> where cc_code = 222
> or cc_code = 144
> order by cc_name;
>
>
> -- Create the Word.Application object and make Word visible
> -- by setting the 'Visible' property to true
>
> MyApplication:=OLE2.CREATE_OBJ('Word.Application');
> OLE2.SET_PROPERTY(MyApplication, 'Visible', 1);
>
> -- get a handle on Documents collection
>
> MyDocuments:=OLE2.GET_OBJ_PROPERTY(MyApplication, 'Documents');
>
> -- Open a new document
>
> args:=OLE2.CREATE_ARGLIST;
> OLE2.ADD_ARG(args, 'c:\ocmeis_prod\pay_letter.doc');
> Mydocument :=OLE2.INVOKE_OBJ(MyDocuments,'Open',args);
> OLE2.DESTROY_ARGLIST(args);
>
> -- get a handle on Selection object
>
> MySelection:=OLE2.GET_OBJ_PROPERTY(MyApplication, 'Selection');
>
> -- Navigate to the Bookmark called 'MyBookmark'
> -- VBA Syntax: Selection.Goto(What, Which, Count, Name)
> -- Which, Count are optional and are specified only because the values
> -- of the parameters are position dependent.
>
> args:=OLE2.CREATE_ARGLIST;
> OLE2.ADD_ARG(args, -1); -- What => constant 'wdGoToBookmark' = -1
> OLE2.ADD_ARG(args,0); -- Which
> OLE2.ADD_ARG(args,0); -- Count
> OLE2.ADD_ARG(args, 'ccname'); -- Name => bookmark name
> -- OLE2.ADD_ARG(args, 'addr1'); -- Name => bookmark name
> OLE2.INVOKE(MySelection,'GoTo',args);
>
> -- Insert some text at the bookmark location
>
> OLE2.SET_PROPERTY(MySelection, 'Text', v_ccname);
> -- OLE2.SET_PROPERTY(MySelection, 'Text', v_addr1);
>
> -- Release the OLE objects
> OLE2.RELEASE_OBJ(MySelection);
> OLE2.RELEASE_OBJ(MyDocument);
> OLE2.RELEASE_OBJ(MyDocuments);
> OLE2.RELEASE_OBJ(MyApplication);
>
> END;
>
> Can anyone provide any assistance on how to do this. When I try, I get
> "FRM-40735: WHEN-BUTTON-PRESSED trigger raised unhandled exception
> ORA-01422."
>
> Advance thanks for your help.
>
> P.S. Please email any responses to cconway_at_vdh.state.va.us.
>
>
Received on Wed May 03 2000 - 00:00:00 CEST