Delphi 用Servers组件控制Word
2015-03-12 11:58
288 查看
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;
endend;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;
相关文章推荐
- 用Servers组件控制Word
- 在Delphi中很精确地控制生成的WORD文档的格式
- 使用Delphi 7控制Word 2000生成文档的方法
- Delphi控制组件
- Delphi使用server组件控制excel的一点经验
- delphi中关于使用CreateOleObject方法控制word的一些心得。将word放入到pannel中
- 利用NPOI开源的读写Excel、WORD等微软OLE2组件读写execl,控制样式或单元格
- Delphi对Word的控制。
- 利用NPOI开源的读写Excel、WORD等微软OLE2组件读写execl,控制样式或单元格
- 利用NPOI开源的读写Excel、WORD等微软OLE2组件读写execl,控制样式或单元格
- 利用NPOI开源的读写Excel、WORD等微软OLE2组件读写execl,控制样式或单元格
- Delphi控制Word的一些方法
- Delphi 操作Word怎么控制光标的位置
- Delphi 操作Word怎么控制光标的位置
- WebBrowser组件的execWB方法——Delphi控制浏览器组件
- 再谈Delphi 7控制Word 2000——使用模板
- 利用NPOI开源的读写Excel、WORD等微软OLE2组件读写execl,控制样式或单元格
- Delphi使用server组件控制excel的一点经验
- 再谈Delphi 7控制Word 2000——使用模板
- Delphi使用server组件控制excel的一点经验