OleWord时一些用用的代码<引自DELPHIBBS>

    技术2022-05-11  130

    一、Delphi程序启动Word 采用CreateOleObjects的方法来启动Word,调用VBA代码,具体实现过程为: 首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序,如果存在,则直接连接,如果没有Word程序,则使用CreateOleObject('Word.Application')启动Word 二、Delphi程序新建Word文稿 格式:WordDocuments.Add(Template,NewTemplate,DocumentType,Visible) Template: 使用模板的名称, NewTemplate: 新建文档的类型,True表示为模板,False表示为文档 DocumentType: 文档类型,默认为空白文档 Visible: 打捞的窗口是否可见 举例:Doc_Handle:=Word_Ole.Documents.Add(Template:='C:/Temlate.dot',NewTemplate:=False); 三、Delphi程序打开Word文稿 格式:WordDocuments.Open(FileName,ConfirmConversions,ReadOnly,PassWordDocument, PasswordTemplate,Revent,WritePasswordDocument,WritePassWordTemplate, Format,Encoding,Visible) FileName: 文档名(包含路径) Confirmconversions: 是否显示文件转换对话框 ReadOnly: 是否以只读方式打开文档 AddToRecentFiles: 是否将文件添加到"文件"菜单底部的最近使用文件列表中 PassWordDocument: 打开此文档时所需要的密码 PasswordTemplate: 打开此模板时所需要的密码 Revert: 如果文档已经,是否重新打开文档 WritePasswordDocument: 保存对文档更改时所需要的密码 WritePasswordTemplate: 保存对模板进行更改时所需要的密码 Format: 打开文档时所需使用的文件转换器 Encoding: 所使用的文档代码页 Visible: 打开文档的窗口是否可见 举例: Doc_Handle:=Word_Ole.Documents.open(FileName:=Doc_File,ReadOnly:=False, AddToRecentFiles:=False);

    最新回复(0)