How to know a Word File is open.

Question

I am opening a word file from oracle forms using webutil in the following way.
APP := CLIENT_OLE2.CREATE_OBJ('WORD.APPLICATION');     
DOCS := CLIENT_OLE2.INVOKE_OBJ(APP,'DOCUMENTS');
ARGS := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(ARGS,V_FILE_NAME);
DOC := CLIENT_OLE2.INVOKE_OBJ(DOCS,'OPEN',ARGS);
CLIENT_OLE2.DESTROY_ARGLIST(ARGS);
CLIENT_OLE2.SET_PROPERTY(APP,'VISIBLE',1);
after that the user may close the word application.
When I try to quit word application
CLIENT_OLE2.INVOKE(app,'Quit',ARGS);
I am getting error since the application is already close by the user.
Before issuing the 'Quit' command I want to know whether the word file opened or not.
Or else I want to catch the error raised by 'Quit' command.

Answer 1

hi
try something like this.
DECLARE
app CLIENT_OLE2.OBJ_TYPE;
docs CLIENT_OLE2.OBJ_TYPE;
doc CLIENT_OLE2.OBJ_TYPE;
selection CLIENT_OLE2.OBJ_TYPE;
args CLIENT_OLE2.LIST_TYPE;
BEGIN
-- create a new document
app := CLIENT_OLE2.CREATE_OBJ('Word.Application');
CLIENT_OLE2.SET_PROPERTY(app,'Visible',1);
docs := CLIENT_OLE2.GET_OBJ_PROPERTY(app, 'Documents');
doc := CLIENT_OLE2.INVOKE_OBJ(docs, 'add');
selection := CLIENT_OLE2.GET_OBJ_PROPERTY(app, 'Selection');
-- insert data into new document from long item
CLIENT_OLE2.SET_PROPERTY(selection, 'Text', :long_item);
-- save document as example.doc
args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, 'c:\temp\example.doc');
CLIENT_OLE2.INVOKE(doc, 'SaveAs', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);
-- close example.doc
args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, 0);
CLIENT_OLE2.INVOKE(doc, 'Close', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);
CLIENT_OLE2.RELEASE_OBJ(selection);
CLIENT_OLE2.RELEASE_OBJ(doc);
CLIENT_OLE2.RELEASE_OBJ(docs);
-- exit MSWord
CLIENT_OLE2.INVOKE(app,'Quit');
END;sarah