Bookmark through CLIENT_OLE2

Question

Hello Seniors/Guru/experts
we have custom built oralce application (forms 11g).
Here is the detail:
we have word template(employee record.dot) store in database through blob. And each template have bookmark .i.e. "Emp name". We are able to call that stored .dot file which is stored in blob column/table via WEBUTIL . And we want to pass value in that template ((employee record.dot) for boommark name "Emp Name" through forms 11g.
We are able to open word and pass value through forms 11g but not in that template where bookmark is stored . so issue is :
1.how to pass value in that bookmark which is template (And template is in table blob column).
********"We are able to call that stored .dot file which is stored in blob column/table via WEBUTIL ." Here the code.
PROCEDURE Open_Doc
IS
-- Open a stored document --
LC$Cmd Varchar2(128) ; -- command to be run in Windows
LC$Nom Varchar2(100) ;
LC$Fic Varchar2(128);
LC$Path Varchar2(128);
LC$Sep Varchar2(1) ;
LN$But Pls_Integer ;
LB$Ok Boolean ;
FType VARCHAR2(20); -- File Type (Extension)
CType VARCHAR2(128); -- Command Type (in Windows)
-- Current Process ID --
ret WEBUTIL_HOST.PROCESS_ID ;
V_EMPID number(10);
cursor c1 is select emp_name from employee where emp_id=:emp.emp_id
Begin
     -- Local temporary file name --
     LC$Sep := '\'; -- you can use WEBUTIL_FILE.Get_File_Separator ;
--     LC$Nom := Substr( :BIN_DOCS.Name, instr( :BIN_DOCS.Name, LC$Sep, -1 ) + 1, 100 ) ;
     LC$Nom :=:EMP.EMP_NAME;
--message(LC$Nom);
     LC$Path := 'C:\Temp'; -- use standard DOS dir -- can use CLIENT_WIN_API_ENVIRONMENT.Get_Temp_Directory ;
     -- File Path with File name in Windows
     LC$Fic := LC$Path || LC$Sep || LC$Nom ;
--message('File info '||LC$Fic);
-- File extension
FType := SUBSTR(:EMP.DETAIL,INSTR(:EMP.DETAIL,'.') + 1, 4);
-- Based on File extension will assign Windows Command
CType := NULL; -- by default command in Windows is NULL - taken Windows default
-- Default Command is NOT working for WINWORD
IF UPPER(FType) IN ('DOC','DOTM','DOTX') THEN
CType := 'WINWORD /W';
END IF;
     -- File extraction --
OPEN c1;
FETCH c1 into V_EMPID;
IF NOT PKG_TRANSFERTS.DB_To_Client
LC$Fic ,
'EMPLOYEE',
'NAME',
'EMP_ID = ' || To_Char( :EMP.EMP_ID)
) THEN
Set_Alert_Property( 'AL_ERROR', TITLE, 'DB to Client' ) ;
Set_Alert_Property( 'AL_ERROR', ALERT_MESSAGE_TEXT, 'Error transfering local file' ) ;
LN$But := Show_Alert( 'AL_ERROR' ) ;
Raise Form_trigger_Failure ;
ELSE
Message('Transferred to Client');
END IF ;
close c1;
-- this command will be run from Windows
LC$Cmd := 'cmd /c start "My script" /WAIT '|| CType||' "'||LC$Fic ||'" ';
--message ('Host command: '||LC$Cmd);
     Ret := WEBUTIL_HOST.blocking( LC$Cmd ) ;
     LN$But := WEBUTIL_HOST.Get_return_Code( Ret ) ;
     IF LN$But <> 0 Then
          Set_Alert_Property( 'AL_ERROR', TITLE, 'Host() command' ) ;
Set_Alert_Property( 'AL_ERROR', ALERT_MESSAGE_TEXT, 'Host() command error : ' || To_Char( LN$But ) ) ;
LN$But := Show_Alert( 'AL_ERROR' ) ;
LB$Ok := WEBUTIL_FILE.DELETE_FILE( LC$Fic ) ;
Raise Form_Trigger_Failure ;
     END IF;
     -- Re-store the modified file in the database --
     LC$Fic :=LC$Fic||CAN;
IF NOT PKG_TRANSFERTS.Client_To_DB
LC$Fic ,
'EMPLOYEE',
'NAME',
'EMP_ID = ' || To_Char( :EMP.EMP_ID)
) Then
Set_Alert_Property( 'AL_ERROR', TITLE, 'Client to DB' ) ;
Set_Alert_Property( 'AL_ERROR', ALERT_MESSAGE_TEXT, 'Error on storing file' ) ;
LN$But := Show_Alert( 'AL_ERROR' ) ;
Raise Form_trigger_Failure ;
ELSE
     -- The changes are commited to Database --> Build better interface
     COMMIT;
     Clear_Message ;
     Message('File re-stored in the database /Commited', no_acknowledge ) ;      
END IF ;     
-- Remove the temporary local file --
     LB$Ok := WEBUTIL_FILE.DELETE_FILE( LC$Fic ) ;
     IF LB$Ok = FALSE Then
          Bell ;
          Message( 'Error removing local file ', no_acknowledge ) ;
     END IF;
     Clear_Message ;
Exception
          When Form_Trigger_Failure Then
          Raise ;
End Open_Doc ;
and as i said throgh CLIENT_OLE2 ,we are able to pass value in new winword but not in stored template ..Here is the code for only new winword...
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');
message('1');
--doc := CLIENT_OLE2.GET_OBJ_PROPERTY(doc,'ActiveDocument');
-- insert data into new document from long item
CLIENT_OLE2.SET_PROPERTY(selection, 'Text',:emp.emp_no);
-- save document as example.doc
args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, 'c:\temp\Employee.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;
so please help ,how to pass value in that stored template which has bookmark. Seniors/guru/experts please help ,its kind urgent.Thanks

Answer 1

Hi Seniors,guru,experts please help.Thanks in advance.