Bookmark from Forms 11g

Question

Hello Seniors,
I want to call microsoft word with all bookmark from forms 10g. (we have Visual basic application with word template ,all word template have bookmark and we want to call all bookmark directly from forms 10g).
I am able to call microsoft word template from forms 10g. But i dont know how to pass value in that bookmark.
i.e in visual basic we select employee id from application and its pass same value in template bookmark but how to pass emp id from forms 10g so that it pass value in template and all the bookmark saws value in it.).
Its huge application so we dont want to write all the code again ,thats why we want to directly call word template/bookmark from forms 10g.
Please advice ,
Thanks!

Answer 1

Sorry Francois
I added as you advice but nothing comes up . if you don't mind would you please guide me where i have to define those bookmark. please find my code ,pls correct if it is wrong.
Appreciate your help .
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 ;
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 :=:WMS_QUEUE_TASKS.TASK_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;
     LC$Fic :=LC$Fic ||'#CAN';
--message('File info '||LC$Fic);
-- File extension
FType := SUBSTR(:WMS_QUEUE_TASKS.COMMAND_LINE_PARM,INSTR(:WMS_QUEUE_TASKS.COMMAND_LINE_PARM,'.') + 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 --
IF NOT PKG_TRANSFERTS.DB_To_Client
LC$Fic,
'WMS_QUEUE_TASKS',
'DOC',
'DOC_ID = ' || To_Char( :WMS_QUEUE_TASKS.Doc_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 ;
-- 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 --
IF NOT PKG_TRANSFERTS.Client_To_DB
LC$Fic,
'WMS_QUEUE_TASKS',
'DOC',
'DOC_ID = ' || To_Char( :WMS_QUEUE_TASKS.Doc_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 ;