如何用delphi的OLEContainer操控MS Word

Question

如题所述

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
wd,du:OLEVariant;
begin
wd:=CreateOleObject('Word.Application');//建立WinWord对像
du:=wd.Documents.Open('e:\a.doc'); //打开Word文档
ShowMessage(String(wd.ActiveDocument.Name));//显示打开的文档名称
//以下可以插入你自己的程序
du.close;//关闭文档
wd.Quit; //关闭程序
end;