用Servers组件控制Word

　　在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:=F alse; //关闭拼写检查
　　WordApplication1.Options.CheckGrammarAsYouType:=Fa lse; //关闭语法检查
　　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;
　　运行结果如下：