D D_LOVER Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-21 #1 TWordApplication启动的word是打开了另一个窗口,有什么办法能和调用窗口处 在一个窗口,就象用TOleContainer找开的一样
X xupeih Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-25 #2 可以用wordapplication1.active打开同一窗口的word。
J janestory Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-25 #3 用GetActiveOLEObject得到已打开的Word
N newnob Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-06 #5 procedure TForm1.FormCreate(Sender: TObject); var obj_Acad ,obj_Doc: OleVariant; begin try obj_Acad:=GetActiveOleObject('AutoCAD.Application.14'); except obj_Acad:=CreateOleObject('AutoCAD.Application.14'); end; obj_Acad.Visible:=True; //重要 obj_Doc:=obj_Acad.ActiveDocument; end;
procedure TForm1.FormCreate(Sender: TObject); var obj_Acad ,obj_Doc: OleVariant; begin try obj_Acad:=GetActiveOleObject('AutoCAD.Application.14'); except obj_Acad:=CreateOleObject('AutoCAD.Application.14'); end; obj_Acad.Visible:=True; //重要 obj_Doc:=obj_Acad.ActiveDocument; end;