用Servers组件控制Word

最新推荐文章于 2014-05-29 00:05:58 发布

zhenghui1

最新推荐文章于 2014-05-29 00:05:58 发布

阅读量1.7k

点赞数 1

分类专栏： Delphi 文章标签： exception delphi 文档 button

本文链接：https://blog.youkuaiyun.com/zhenghui1/article/details/5726198

版权

Delphi 专栏收录该内容

29 篇文章

订阅专栏

本文档介绍了如何在Delphi中利用Servers组件控制Word，包括启动WordApplication对象，设置不可见，关闭拼写和语法检查，将Memo内容插入Word，实现打印和保存功能。通过TButton事件代码展示具体操作流程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1)控制Word的Servers组件简介

在Delphi中控制Word的组件主要有WordApplication和WordDocument等。

WordApplication对象主要用于启动并建立对Word的连接，并对打开Word时的有关内容进行设置。WordDocument对象主要作用于Word文档，它与WordApplication关联配合对Word文档进行操作。

Servers组件调用Word的实例。该实例主要作用是编辑Delphi中的memo文本，并能够调用Word中的打印和保存功能。

在窗体中放置4个TButton组件、一个TMemo组件、一个TwordApplication组件、一个TwordDocument组件和一个TsaveDialog组件。四个Button单击事件代码如下：

procedure TForm1.Button1Click(Sender: TObject);
//连接word并将Memo1的内容插入word
begin
try
    try
      WordApplication1.Connect; //连接word
    except
      messagedlg('无法连接，没有安装word',mterror,[mbok],0);
      Abort;
    end;
    WordApplication1.Visible:=False; //将wrod程序设为不可见
    WordApplication1.Caption:='delphi control word';
    WordApplication1.Options.CheckSpellingAsYouType:=False; //关闭拼写检查
    WordApplication1.Options.CheckGrammarAsYouType:=False; //关闭语法检查
    WordDocument1.Range.InsertAfter(Memo1.Text); //插入Memo1的内容到wrod
except
    on e:exception do
    begin
      showmessage(e.Message);
      WordApplication1.Disconnect;
    end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
//打印word
begin
try
WordDocument1.PrintOut; //打印word
except
on e:exception do
    begin
      showmessage(e.Message);
      WordApplication1.Disconnect;
    end;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
//将编辑的文档保存
var
SavePath:Olevariant;
begin
if SaveDialog1.Execute then     //如果另存为对话框被激活就开始保存
begin
try
    SavePath:= SaveDialog1.FileName; //保存的文件名
    WordDocument1.SaveAs(SavePath); //另存为word文档
except
on e:exception do
    begin
      showmessage(e.Message);
      WordApplication1.Disconnect;
    end;
end;
end

end;

procedure TForm1.Button4Click(Sender: TObject);
//退出
begin
try
WordDocument1.Close;      //关闭编辑的文档
WordApplication1.Disconnect;   //断开与程序的连接
close;                         //退出程序
except
on e:exception do
    begin
      showmessage(e.Message);
      WordApplication1.Disconnect;
    end;
end;
end;

运行结果如下：