在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;
运行结果如下:
发表评论
-
截取字符串转换成数字
2012-07-06 09:51 897遇到这样一个问题说的是截取字符串转换成数字。 比如,0 ... -
QT正则表达式小例子
2012-07-06 09:45 1016判断合法IP的QT正则表达式: bool IsIPad ... -
复杂的正则表达式应该如何构造
2012-07-06 09:37 556昨天Snopo问我如何 ... -
Falagard skinning system for CEGUI参考手册简单翻译(一)
2012-07-06 09:30 711声明:转自http://blog.csdn.net/pow ... -
列表划过效果,和点击效果!!!
2012-07-05 20:45 612列表划过效果,和点击效果!!! 收藏 js效果的鼠 ... -
Flex 动态创建 多个曲线图/柱形图 ColumnSeries
2012-07-02 10:36 735获取数据后的回调函数 private functio ... -
flex 界面改进
2012-07-02 10:36 574f 代码如下: ... -
Flex中如何通过paddingTop样式设置TabNavigator控件内容与Tabs间距离的例子
2012-07-02 10:36 588... -
关于FLEX 里控件宽度的一个问题
2012-07-02 10:36 574BorrowsO ... -
Flex、JQuery、ExtJS 的选择
2012-07-01 00:13 544开发Rich Client,现在最流行的就是3种解决方案: ... -
flex3 跑在ie8 flash 10里不稳定?
2012-07-01 00:13 660很简单的一个应用,mx:application creat ... -
flex中navigateToURL函数的应用
2012-07-01 00:13 643在包含 Flash Player 容器的应用程序(通常是一 ... -
Flex: DataGroup 组件增加滚动条
2012-07-01 00:13 743本想用mx:List 实现一个联系人列表,无奈AS4不知怎 ... -
Flex控制对主机网页中脚本的访问
2012-07-01 00:13 532通过使用以下 ActionScript 3.0 API 可 ...
相关推荐
主要包括组件的基础知识和共用的属性、事件和方法、Standard组件页、Additional组件页、Win32组件页、ADO组件页、Dialogs组件页、Win 3.1组件页...Indy Clients组件页、Indy Servers组件页、Com+组件页和Servers组件...
15.5 WebSnap组件页中的访问控制组件 第16章 WebServices组件页 16.1 HTTPRIO组件 16.2 HTTPReqResp组件 16.3 OPToSoapDomConvert组件 16.4 SoapConnection组件 16.5 HTTPSoapDispatcher组件 16.6 ...
主要包括组件的基础知识和共用的属性、事件和方法、Standard组件页、Additional组件页、Win32组件页、ADO组件页、Dialogs组件页、Win 3.1组件页...Indy Clients组件页、Indy Servers组件页、Com+组件页和Servers组件...
SQLServers复习总结 SQLServers复习总结 SQLServers复习总结
本文简要介绍了delphi7中常用的组件,包括:Additional组件页,Win32组件页,System组件页,Data Access组件页,DataSource组件页,DataAnap...Rave组件页,Indy Clients组件页,Indy Server组件页,Servers组件页。
Upgrading and Repairing Servers Pages: 1128
webservers ppt 主要讲解webserver的原理
在eclips中运行项目,要用Run on Server,就在eclips里面配置的Servers,然后运行
Delphi中实现把数据集中的数据导出为word,借助了servers中的相关组件。
WebServers实例代码,天气预报,旅游景点查询,人民币汇率,手机号码归属地查询等
java 使用soap进行webservers服务 开发的例子 使用xml数据流进行数据传输 找了好久 才找到 只需要修改相关地址即可使用
Servers Ultimate,可以把安卓手机变成任意服务器,需要下载数据包
买了vc++从入门到精通这本书 随书送了光碟,打开一看里面的好东西还挺多 有vc++编程词典 sql servers编程词典.上传上来共享!:)
Backup Exec 12 for Windows Servers 快速安装指南
CS1.6 MasterServers.vd
NI OPC Servers,NI OPC Servers,NI OPC Servers
《TCPIP Lean Web Servers for Embedded Systems》 Second Edition源代码 《TCPIP Lean Web Servers for Embedded Systems》 Second Edition源代码 《TCPIP Lean Web Servers for Embedded Systems》 Second Edition...
Vmware Horizon View 6.0全套组件下载地址。Vmware Horizon View 6.0全套打包下载包含 VMware-viewconnectionserver-x86_64-6.0.0-1884746.exe VMware-viewcomposer-6.0.0-1884350.exe VMware-viewagent-6.0.0-...
Java实现远程接口访问,webservers配置,详细介绍了如何实用webservers实现远程接口访问功能