OLE2 FORMS6 WORD2000
From: bedrocks <bedrock_at_pobox.com>
Date: Tue, 03 Dec 2002 16:44:32 -0500
Message-ID: <tt8quu07p58o1n15j1td628k54b8suuju2_at_4ax.com>
[Quoted] Trying to retrieve body of text form MS Word 2000. I can get the text but all formatting is lost. Need to retrieve text and formatting.
DECLARE
Date: Tue, 03 Dec 2002 16:44:32 -0500
Message-ID: <tt8quu07p58o1n15j1td628k54b8suuju2_at_4ax.com>
[Quoted] Trying to retrieve body of text form MS Word 2000. I can get the text but all formatting is lost. Need to retrieve text and formatting.
creating a new document
insert formatted text
retrive the formatted text
DECLARE
application OLE2.OBJ_TYPE; sel_text VARCHAR2(1000);
BEGIN
application:=OLE2.CREATE_OBJ('Word.Basic');
OLE2.INVOKE(application, 'AppShow');
OLE2.INVOKE(application, 'FileNew');
- insert formatted text into open word document
OLE2.INVOKE(application, 'EditSelectAll'); sel_text:=OLE2.GET_CHAR_PROPERTY(application, 'Selection');
TIA Received on Tue Dec 03 2002 - 22:44:32 CET