delphi操作word
一、Delphi程序启动Word
采用CreateOleObjects的方法来启动Word,调用VBA代码,具体实现过程为:
首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序,如果存在,
则直接连接,如果没有Word程序,则使用CreateOleObject('Word.Application')启动Word
格式:WordDocuments.Add(Template,NewTemplate,DocumentType,Visible)
Template: 使用模板的名称,
NewTemplate: 新建文档的类型,True表示为模板,False表示为文档
DocumentType: 文档类型,默认为空白文档
Visible: 打捞的窗口是否可见
格式:WordDocuments.Open(FileName,ConfirmConversions,ReadOnly,PassWordDocument,
PasswordTemplate,Revent,WritePasswordDocument,WritePassWordTemplate,
Format,Encoding,Visible)
Confirmconversions: 是否显示文件转换对话框
ReadOnly: 是否以只读方式打开文档
AddToRecentFiles: 是否将文件添加到"文件"菜单底部的最近使用文件列表中
PassWordDocument: 打开此文档时所需要的密码
PasswordTemplate: 打开此模板时所需要的密码
Revert: 如果文档已经,是否重新打开文档
WritePasswordDocument: 保存对文档更改时所需要的密码
WritePasswordTemplate: 保存对模板进行更改时所需要的密码
Format: 打开文档时所需使用的文件转换器
Encoding: 所使用的文档代码页
Visible: 打开文档的窗口是否可见
Doc_Handle:=Word_Ole.Documents.open(FileName:=Doc_File,ReadOnly:=False,
AddToRecentFiles:=False);
格式:WordDocuments.SaveAs(FileName, FileFormat, LockComments, Password,
AddToRecentFiles, WritePassword, ReadOnlyRecommended,
EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData,
SaveAsAOCELetter)
FileFormat 文档保存的格式。
LockComments 如果为 True,则此文档只允许进行批注。
Password 打开文档时的口令。
AddToRecentFiles 如果为True,则将文档添至"文件"菜单中最近使用的文档列表中。
WritePassword 保存对文档的修改所需的口令。
ReadOnlyRecommended 如果为 True,在每次打开文档时,Word 将建议用户采用只读方式。
EmbedTrueTypeFonts 如果为 True,则将文档与 TrueType 字体一起保存。
SaveNativePictureFormat 如果为 True,则从其他系统平台(例如 Macintosh)导入的图形仅保存其 Windows 版本。
SaveFormsData 如果为 True,则将窗体中用户输入的数据存为一条数据记录。
SaveAsAOCELetter 如果文档包含一个附加,当此属性值为 True 时,将文档存为一篇 AOCE 信笺(同时保存邮件)。
Word_Ole.Documents.SaveAs(FileName:=Doc_File,FileFormat=wdFormatDocument,
AddToRecentFiles=False);
Word_FileStream:=TFileStream.Create(Target_Name,fmOpenWrite or fmCreate);
Word_FileStream.Position:=0;
TBlobField(AdoQuery1.FieldByName(Column_Name)).SaveToStream(Word_FileStream);
TBlobField(ADOQuery1.FieldByName(Column_Name)).loadfromStream(Word_FileStream);
Word_FileStream.Free;
因为word和Delphi程序是两个软件,相互之间通讯比较麻烦,所以使用全局消息的方法进行。
全局消息必须首先注册,Windows返回系统空闲的消息号,当注册的消息相同时,
Windows系统返回同一个值,这样就保证了使用这个消息号在两个程序之间通讯。
szMessageString: pchar = 'XIDIAN_11_Stone';
FMyJoinMessage := RegisterWindowMessage(szMessageString);
SendMessage(对方句柄,消息,消息附带短变量,消息附带长变量)
Delphi接收消息有两种,一是重载特定消息,二是重载WndProc函数,在里面选择相应消息进行处理。
法一,每次只能处理一条消息,而法二能够同时处理多条消息。
procedure WndProc(var Message: TMessage);override
必须注意,使用时需要在处理完自己消息处理后继承WndProc(Message)函数,否则系统会崩溃!
建立类模块Combohander,在内部定义事件
Public WithEvents ComboBoxEvent As Office.CommandBarComboBox
Dim ctlComboBoxHandler As New ComboBoxHandler
Set Cbo_ChooseDoc = CommandBars("添加的菜单").Controls.Add(Type:=msoControlComboBox, Temporary:=True)
Set ctlComboBoxHandler.ComboBoxEvent = Cbo_ChooseDoc
Sub ComboBoxEvent_Change(ByVal Ctrl As Office.CommandBarComboBox)
VBA代码中处理的Word事件有:Document_Close
Application事件中需要处理的有:DocumentBeforeClose,DocumentChange。
DocumentBeforeClose:在文档被关闭以前先于Word判断文档是否保存,给出相应提示并进行相应处理。
DocumentChange:文档切换,在文档从自己修改的文稿和其他人修改的文稿之间切换产生事件,
主要处理设置文档权限等。
转载于:https://blog.51cto.com/bigpower/69348
delphi操作word相关推荐
- Delphi操作Word,Excel替换
有的时候想把数据库里的内容按某种格式写在Word,Excel里,在Word,Excel里按某种格式保存字段名称,下面以"%+字段名称+%"为例 一.Delphi 操作 Word 替 ...
- Delphi 操作Word实现粘贴板RTF格式内容替换
最近在做一个功能,客户端调用一个网页,从网页上点击一个按钮,将格式文本复制到粘贴板,由于网页不支持设置粘贴板类型设置,导致往目标容器粘贴的时候格式丢失. 此时在delphi中操作粘贴板也无法实现,由于 ...
- Delphi操作word的基本用法
刚把delphi捡起来,第一个要做的竟然操作word,总结一下. 一. 定义word应用程序,文档对象,比如: wordApp: OleVariant; wordDoc: OleVariant; ...
- Delphi与Word之间的融合技术
问题:Delphi与Word之间的融合技术 ( 积分:0, 回复:325, 阅读:37835 ) 分类:OLE/Automation ( 版主:g622, satanmonkey ) 来自:yzhsh ...
- Delphi和Word编程集锦
用Delphi合并Word表格中单元格 //合并Word表格中单元格 proceduremergeWordCell; varWordApp:TWordApplication; WordDoc:TWor ...
- delphi 操作excel(全)
DELPHI中EXCEL组件的使用方法: (一) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj: var ExcelApp: Variant; ExcelApp : ...
- delphi操作png的单元pngimage.pas包括引用的ZlibExApi.pas和 PngLang.pas
有需要的可以去这里下载源码.http://download.csdn.net/detail/sushengmiyan/4662715 delphi操作png是在delphi2009版本之后(网上这么说 ...
- python操作word文档(python-docx)
python操作word文档(python-docx) 1. 效果图 1.1 python-docx文档标题段落(等级.加粗.斜体.居中)效果图 1.2 python-docx字体(加粗.斜体.居中. ...
- phpexcel_cell 获取表格样式_Java 操作Word表格——创建嵌套表格、添加/复制表格行或列、设置表格是否禁止跨页断行...
精品推荐 国内稀缺优秀Java全栈课程-Vue+SpringBoot通讯录系统全新发布! Docker快速手上视频教程(无废话版)[免费] 作者:E-iceblue https://www.cnblo ...
- python在windows下操作word的方法的代码
把写内容过程经常用的一些内容收藏起来,下边内容内容是关于python在windows下操作word的方法的内容,希望能对各位朋友有些好处. import win32com from win32com. ...
最新文章
- 深度丨AlphaGo Zero的启示:监督学习和无监督学习的利弊
- C++ assert 断言使用
- 国内主流.NET CMS系统整理
- 服务器主机启动不显示,服务器主机不启动怎么回事
- linux下的C语言开发(进程等待)
- 背景图片的位置(HTML、CSS)
- 类成员变量初始化总结
- 基于Web的svg编辑器(2)——层次结构设计(DOM结构)
- 自动驾驶开源平台整理
- 答应了邮件offer还能反悔吗?
- nodejs前端+后端
- mac linux 笔记
- 桌面计算机 回收站图标,桌面回收站图标不见了怎么解决【图文】
- 自动阅读是如何赚取收益的
- 理财收益的计算 计算浮点数的n次方 1466
- 隐写术-----黑与白(二)
- java编写四则运算代码_java编写四则运算
- Matlab实现鼠标拖动显示轮廓线
- BMP文件转YUV文件_C语言实现
- 如何使用macOS Big Sur还原iPhone或iPad?