http://www.delphibbs.com/delphibbs/dispq.asp?LID=1877335
procedure TForm1.Button1Click(Sender: TObject);
begin
OleContainer1.CreateObjectFromFile ('c:/aaa.doc', False);
OleContainer1.DoVerb (ovInPlaceActivate);
WordApplication1.ConnectTo(IDISPATCH (OleContainer1.OleObject.Application) as _Application);
end;
我的可以打印,但是不能保存office xp,关注一下,看看谁能给个比较完美的解决方案