对几种方法的难易程度的判别 


a.通过Delphi的控件TOleContainer 将Word嵌入 


这是最简单的Ole嵌入,能够直接将Word文档调用,只需要使用ToleContainer.Run就可以


将Word文 

档直接启动。且这样启动的Word文档与Delphi程序是一个整体(从界面上看),但是它存


在不可克 

服的缺点,即不能通过Delphi控制Word文档,也就不能实现将灵活操纵Word的目的。 


b.使用Delphi提供的Servers控件调用Word,使用Word的属性 

使用Delphi的Servers控件来操纵Word,在编程时Delphi能够实现代码提示,总体上看能


够较好的实 

现Delphi对Word的控制,但是还有一些Word的功能不能在Delphi中调用(比如自己编写的


VBA宏代码)。 

且实现功能时本来在VBA代码中可选则参数在Delphi调用的时候必须添加,否则,连编译


都不能通过。 

本方式启动的Word与Delphi程序分属两个窗体。 

此办法仅能作为一个参考。 


c.通过真正的Com技术,将Office软件目录中文件MSWORD9.OLB中的类库全部导入Delphi中


, 

利用Com技术编程 

利用真正的Com技术,将MsWord9.OLD文件类库导入,然后利用Com技术进行使用。 

整体上类似使用Delphi的Servers控件,稍微比Servers控件麻烦,优缺点与Servers控件


相同。 


d.使用CreateOleObject将启动Word,然后以Ole方式对Word进行控制。 

本办法是使用以CreateOleObjects方式调用Word,实际上还是Ole,但是这种方式能够真


正做到完全 

控制Word文件,能够使用Word的所有属性,包括自己编写的VBA宏代码。 

与Servers控件和com技术相比,本方法能够真正地使用Word的各种属性,和在VBA中编写


自己的代码 

基本一样,可以缺省的代码也不需要使用。 

本方式启动的Word与Delphi程序分属两个窗体。 

缺点是使用本方法没有Delphi代码提示,所有异常处理均需要自己编写,可能编写时探索


性知识比较多。


[b]五、Word命令宏的详细描述[/b] 

Word本身的命令函数包含很多,但是无论是word联机帮助还是MSDN帮助,都没有这方面的


介绍,因此只能 

凭自己的实验取探索,初步探测的函数如下: 

宏名 解释 注释 

FileNew 新建 

FileNewDefault 新建空白文档 

FileSaveAs 另存为 

FileOpen 打开 

FileClose 关闭 

FilePrint 打印 

FilePrintPreview 打印预览 

ToolsCustomize 工具栏里面的自定义 

ToolsOptions 工具选项 

ToolsRevisions 突出显示修订 

ToolsReviewRevisions 接受或拒绝修订 

ToolsRevisionMarksAccept 接受修订 

ToolsRevisionMarksReject 拒绝修订 

ToolsRevisionMarksToggle 修订 

ToolsMacro 宏 

ToolsRecordMacroToggle 录制新宏 

ViewSecurity 安全性 

ViewVBCode 查看VB编辑器环境 

FileTemplates 模板和可加载项 

ToolsProtectUnprotectDocument 解除对文档的保护 

InsertHyperlink 插入超级链接 

EditHyperlink 编辑超级链接 

DeleteHyperlink 删除超级链接 

EditLinks 查看、删除链接 

EditPasteAsHyperlink 粘贴超级链接 

FormatStyle 样式 

EditBookMark 书签 



[b]一、Delphi程序启动Word[/b] 

采用CreateOleObjects的方法来启动Word,调用VBA代码,具体实现过程为: 

首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序,如果存在, 则直接连接,如果没有Word程序,则使用CreateOleObject('Word.Application')启动Word 


[b]二、Delphi程序新建Word文稿[/b] 

格式:WordDocuments.Add(Template,NewTemplate,DocumentType,Visible) 

Template: 使用模板的名称, 

NewTemplate: 新建文档的类型,True表示为模板,False表示为文档 

DocumentType: 文档类型,默认为空白文档 

Visible: 打捞的窗口是否可见 


举例:Doc_Handle:=Word_Ole.Documents.Add


(Template:='C:\Temlate.dot',NewTemplate:=False); 


[b]三、Delphi程序打开Word文稿[/b] 

格式: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); 


[b]四、Delphi程序保存Word文稿[/b] 

格式:WordDocuments.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, 

SaveNativePictureFormat, SaveFormsData, 

SaveAsAOCELetter) 


FileName: 文件名。默认为当前文件夹和文件名。 

FileFormat 文档保存的格式。 

LockComments 如果为 True,则此文档只允许进行批注。 

Password 打开文档时的口令。 

AddToRecentFiles 如果为True,则将文档添至"文件"菜单中最近使用的文档列表中