|
|
Re: HOW TO OPEN MS-WORD THROUGH DEVELOPER FORMS 4.5 [message #81574 is a reply to message #81552] |
Tue, 04 March 2003 02:27 |
sameer_am2002
Messages: 129 Registered: September 2002
|
Senior Member |
|
|
Declare
app OLE2.OBJ_TYPE;
arg OLE2.LIST_TYPE;
BEGIN
app:=OLE2.CREATE_OBJ('Word.Basic');
OLE2.INVOKE(app, 'AppShow');
--creates a file
OLE2.INVOKE(app, 'FileNew');
--inserts text to the file
arg:=OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(arg, 'Text');
OLE2.INVOKE(app,'Insert', arg);
OLE2.DESTROY_ARGLIST(arg);
--saves the file to disk
arg:=OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(arg, 'J:IDBDVBmyfile.doc');
OLE2.INVOKE(app, 'FileSaveAs', arg);
OLE2.DESTROY_ARGLIST(arg);
OLE2.RELEASE_OBJ(app);
|
|
|
|
|
|
|
Re: HOW TO OPEN MS-WORD THROUGH DEVELOPER FORMS 4.5 [message #84002 is a reply to message #81579] |
Fri, 16 January 2004 00:18 |
Ahysanali M. Kadiwala
Messages: 4 Registered: January 2004
|
Junior Member |
|
|
DECLARE
APPID PLS_INTEGER;
CONID PLS_INTEGER;
rown number;
coln number;
buffer varchar2(100);
BEGIN
rown:=1;
AppID := DDE.App_Begin('C:Program FilesMicrosoft OfficeOfficeWinword.exe C:Help.Doc', DDE.APP_MODE_MAXIMIZED);
DDE.APP_FOCUS(AppID);
ConID := DDE.Initiate('WINWORD','C:Help.Doc');
Finished ............
|
|
|
Re: HOW TO OPEN MS-WORD THROUGH DEVELOPER FORMS 4.5 [message #84003 is a reply to message #81716] |
Fri, 16 January 2004 00:20 |
Ahysanali M. Kadiwala
Messages: 4 Registered: January 2004
|
Junior Member |
|
|
DECLARE
APPID PLS_INTEGER;
CONID PLS_INTEGER;
rown number;
coln number;
buffer varchar2(100);
BEGIN
rown:=1;
AppID := DDE.App_Begin('C:Program FilesMicrosoft OfficeOfficeWinword.exe C:Help.Doc', DDE.APP_MODE_MAXIMIZED);
DDE.APP_FOCUS(AppID);
ConID := DDE.Initiate('WINWORD','C:Help.Doc');
End;
Done ....
|
|
|