OLE2 Container in Forms

[mucum]

I want to get data from an OLe Container (its name is 'my_ole'). I add an Ole Container (Microsoft Word Document) into my block. After I edit word doc , I want to take its text into my variable. But I couldn't succeed.

My Code is :


declare
arg_list OLE2.LIST_TYPE ;
word_obj OLE2.OBJ_TYPE ;
c OLE2.OBJ_TYPE ;
n OLE2.OBJ_TYPE ;
sel varchar2(200);
begin
activate_server('my_ole');
word_obj := Get_Interface_Pointer('my_ole');
word_obj := Get_Object_Handle ;
arg_list := OLE2.Create_Arglist ;
ole2.add_arg(arg_list,1);

OLE2.INVOKE(word_obj,'EditSelectAll',arg_list);

sel := oLE2.GET_CHAR_PROPERTY(word_obj,'Selection');
end