如何用delphi调用word打开一个文档

Question

如题所述

Answer 1

delphi 调用 word 打开一个文档，兼容性比较好的办法，是使用 oleObject 来调用本机安装的 word，示例代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var MSWord: Variant;
begin
  MSWord := CreateOLEObject('Word.Application');//连接Word
  MSWord.Documents.Open(FileName:='D:\Temp\temp.doc', ReadOnly:=True);
  //打开外部Word文档
  MSWord.Visible := 1;//是否显示文件编辑
  MSWord.ActiveDocument.Range(Start:=0, End:=0);//开始改变的启止位置
  MSWord.ActiveDocument.Range.InsertAfter(Text:='myvc');//在Word中增加字符'myvc'
  MSWord.ActiveDocument.Range.InsertParagraphAfter;
  MSWord.ActiveDocument.Range.Font.Size := 72;//字体大小
  MSWord.ActiveDocument.Range.Font.Name := 'Arial';//字体名称
end;