WEBUTIL - CLIENT_OLE2 : Clientside Word Integration problem

Question

Hi,
I have attached webutil.pll and webutil.olb and configured the necessary files as per the webutil manual in Oracle Forms 10g under Windows 2000. I have compiled the libraries before running the form.
When I run the form, encountering following error message:
WUC-015: Your form must contain the following bean for this function to be available : oracle.forms.webutil.ole.olefunction
Please help me out to trace the error.
Thanks - Mundhir.
[email protected]
In my forms [When-Button-Pressed], I added the following code :
==========================================================
PROCEDURE worddoc IS
BEGIN
DECLARE
-- Declare the OLE object
application CLIENT_OLE2.OBJ_TYPE;
-- Declare handle to the OLE argument list
args CLIENT_OLE2.LIST_TYPE;
BEGIN
-- Start WordBasic and make Word visible
application:=CLIENT_OLE2.CREATE_OBJ('Word.Basic');
CLIENT_OLE2.INVOKE(application, 'AppShow');
-- Create a new Word document
CLIENT_OLE2.INVOKE(application, 'FileNew');
-- Navigate to the bookmark called 'LetterHead'
args:=CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, 'ViewHeader');
CLIENT_OLE2.INVOKE(application, 'EditGoto', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);
args:=CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, :TXT_HEADER);
CLIENT_OLE2.INVOKE(application, 'Insert', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);
-- Insert the text item into the Word document
args:=CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, :TXT_COMMENT);
CLIENT_OLE2.INVOKE(application, 'Insert', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);
-- Save the document to the filesystem
args:=CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, 'c:\temp\EXAMPLE.DOC');
CLIENT_OLE2.INVOKE(application, 'FileSaveAs', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);
-- Release the OLE object
CLIENT_OLE2.RELEASE_OBJ(application);
END;
END;
==========================================================

Answer 1

I used code given below, it gives an error ORA-305501
I am using Microsoft Office-2003.
how can I export contents(modified) of MSWORD back to form?
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', :b1.t1);
-- save document as example.doc
     args := 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;