PROCEDURE Open_Word IS
Where_string Varchar2(100);
MyApplication OLE2.OBJ_TYPE;
MyDocuments   OLE2.OBJ_TYPE;
MyDocument    OLE2.OBJ_TYPE;
MySelection   OLE2.OBJ_TYPE;
args OLE2.LIST_TYPE;
FileName Varchar2(30);
BEGIN

  FileName:=:Test_Method_Master.path;  --  the text item in which filename is entered

MyApplication := OLE2.CREATE_OBJ('Word.Application'); 
	  OLE2.SET_PROPERTY(MyApplication, 'Visible', 1);
	  OLE2.SET_PROPERTY(MyApplication, 'WindowState',1);
	  -- get a handle on Documents collection
	  MyDocuments:= OLE2.GET_OBJ_PROPERTY(MyApplication,'DOCUMENTS');
	  -- Add a new document to the Documents collection
	  args := OLE2.CREATE_ARGLIST;
	  --FileName:=:Test_Method_Master.path;
	  OLE2.ADD_ARG(args, 'C:\JKTYRE\DOCUMENTS\'||FileName);
	  Mydocument := OLE2.INVOKE_OBJ(MyDocuments, 'OPEN', args);
	  OLE2.RELEASE_OBJ(MyDocument);
	  OLE2.RELEASE_OBJ(MyDocuments);
	  OLE2.RELEASE_OBJ(MyApplication);
	  SET_APPLICATION_PROPERTY(CURSOR_STYLE,'DEFAULT');

END;