【Excel VBA 编程】第89讲:一文搞懂Word应用程序对象与Word文档关系

“Word文档创建、打开、保存、关闭全流程解析”

总是听到或看到有人问，编程好学吗？如何入门？多久能学会？它能做些什么？怎么写代码呀?执行过程中出问题了谁能帮帮我...如果你也有类似的问题那就赶快关注我的公众号，一起学起来吧！

前期我们曾提到，FSO（FileSystemObject）的文件读写操作主要适用于处理纯文本文件。那么，对于像Word这样的结构化文档，其内容的创建、读取和写入又是通过何种方式实现的呢？

接下来，我们将一同揭开其背后的技术原理

VBA操作Word的核心对象模型

要理解VBA如何操作Word，首先需要掌握Word的对象模型结构。Word的VBA编程基于COM技术，通过对象、属性和方法来控制文档的各个方面，其核心对象层级关系：

• Application对象：代表Word应用程序本身，是所有操作的起点

• Documents集合：包含所有打开的文档对象，通过Add方法创建新文档或Open方法打开现有文档

• Document对象：表示单个文档，是文本操作的主要载体

• Range对象：表示文档中的一个连续范围，由起始和终止字符位置定义，是内容操作的关键对象

• Selection对象：表示当前选中的区域或插入点位置

结合以上描述，绘制了更加直观的层级关系图供大家参考，如下所示

通过这个层级结构，我们可以采用多种方式访问文档内容

• 自上而下：Application → Documents → Document → Range/Selection

• 直接访问：使用ActiveDocument直接获取当前活动文档

• 特定访问：通过书签、段落等特定元素访问其Range

这种层次化的对象模型使Word自动化编程既系统化又灵活，我们可以根据需要选择最合适的对象和访问路径来完成文档处理任务

有了以上理论知识铺垫，接下来考虑的是如何应用于编程

实战

2.1 获取Word应用程序实例

我们在使用Excel VBA自动化操作Word时，如果此时电脑上没有正在运行的Word应用（通过任务管理器查看Word进程），那么必须创建一个全新的Word应用程序实例，才能进行后续操作

    Dim wordApp As Object    ' 创建Word应用程序对象    Set wordApp = CreateObject("Word.Application")    wordApp.Visible = True ' 显示Word界面（调试时可设为True，实际运行可设为False）

Dim wordApp As ObjectSet wordApp = GetObject(, "Word.Application")

2.2 创建新Word文档

    Dim wordApp As Object    Dim wordDoc As Object    ' 创建Word应用程序对象    Set wordApp = CreateObject("Word.Application")    wordApp.Visible = True    ' 创建新文档    Set wordDoc = wordApp.Documents.Add    wordDoc.SaveAs "D:\常用文件\归档\空白文档.docx"

    Dim wordApp As Object    Dim wordDoc As Object    ' 创建Word应用程序对象    Set wordApp = GetObject(, "Word.Application")    wordApp.Visible = True    ' 创建新文档    Set wordDoc = wordApp.Documents.Add("D:\常用文件\简历模版.docx")    wordDoc.SaveAs "D:\常用文件\归档\张三简历.docx"

Set wordDoc = wordApp.Documents.Open(filePath)

完成操作后保存文档，主要有以下几种方式，大家可根据实际情况自由选择，最后不要忘记释放对象

    ' 保存文档（覆盖原文件）    wordDoc.Save    ' 或另存为新文件    ' wordDoc.SaveAs2 "D:\常用文件\归档\李四简历.docx"    ' 不保存关闭文档    wordDoc.Close SaveChanges:=False    ' 退出Word应用程序    wordApp.Quit    ' 释放对象变量    Set wordDoc = Nothing    Set wordApp = Nothing