auto open an ole based item

I've got a based item. It's an OLE item (word document). When i double-click on it, it lauch Word and that's OK. But i'd like to automate that.
Wouldn't it be something like that ?

declare
  anItem OLE2.OBJ_TYPE;
  item_id item;

begin
  item_id := Find_Item('DOC');
  Forms_OLE.Activate_Server(item_id);
  anItem := FORMS_OLE.Get_Interface_Pointer(item_id);   OLE2.Invoke(anItem, 'AppActivate');
  OLE2.Invoke(anItem, 'AppShow');
end;

Thanks

nico Received on Thu Nov 25 1999 - 10:49:19 CST