简介：这份PDF教程面向已具备VBA基础、希望深入掌握Office自动化的办公人员与开发者，聚焦ExcelVBA与WordVBA第4季内容，系统讲解对象、集合、属性与方法等核心概念，帮助读者从零散语法走向对文档对象的精细操控。资源包共1个PDF文件，约1.92MB，内容以图文讲义形式组织，涵盖Application、Document与Documents集合、Range、Selection等关键对象，以及Characters、Words、Sentences、Paragraphs等集合的索引访问方式，并对比Excel中ActiveWorkbook、ThisWorkbook与Word中ActiveDocument、ThisDocument的异同。教程还结合Font.ColorIndex、Bold等属性设置与Activate、Copy、Cut、Paste等方法调用，演示字符颜色加粗、段落文字提取、表格对象操作等典型场景，附有常用对象属性速查说明。目前已有848人学习，适合希望创建自定义宏、提升办公效率、实现复杂自动化工作流的读者对照查阅与查漏补缺。

1. 对象、集合与属性：为什么你写的宏总在“找不到东西”

很多人第一次打开 Word 的 VBA 编辑器，面对满屏的Application、Documents、Range、Selection，第一反应是懵的——这些词单个都认识，凑在一起就不知道谁管谁。其实你可以把整个 Word 想象成一家公司：Application是这家公司本身，Documents是公司里所有项目的档案柜，每一个Document是档案柜里的一份具体文件，而Range则是文件里某一段被荧光笔划出来的文字。你写宏的过程，本质上就是站在这家公司门口，一层层告诉程序“我要找哪个柜子、哪份文件、哪一段字”，然后对它做点什么。

搞懂这套“公司层级”为什么值得花时间？因为 VBA 里 90% 的报错——什么“对象变量未设置”、什么“下标越界”——归根结底都是你没说清楚自己站在哪一层。把对象、集合、属性、方法这四个词的关系理顺了，后面不管是批量改格式、自动生成文档还是跨文件搬运内容，你都能自己推出来该写哪一句，而不是靠背代码。这份教程第 4 季的内容，恰恰就是围绕 Word 这套对象模型展开的，从最顶层的软件本身一路讲到段落里的一个字符。

2. 从 Application 到 Document：Word 对象模型的层级关系

2.1 Application 是整栋楼，Documents 是楼里的房间

先记住一句话：在 Word VBA 里，Application代表 Word 这个软件本身。你打开 Word、看到功能区、看到编辑区，这一整套东西合起来就是Application。它有很多属性，比如Application.Version告诉你当前 Word 的版本号，Application.UserName返回当前登录的用户名，Application.Documents.Count直接告诉你现在一共打开了几个文档。这些属性不需要你打开任何文件就能读，因为它们描述的是“软件本身的状态”。

而Documents是一个集合，装的是当前所有打开的文档。集合这个词听起来抽象，通俗地说就是“一堆同类对象的打包”。你可以用Documents.Count数一数有几个，用Documents(1)按顺序取第一个，也可以用Documents("报告.docx")按名字点名要哪一个。这里有个容易踩坑的地方：Documents是复数，代表“所有文档的集合”；Document是单数，代表“一份文档”。少一个 s，意思就从“一摞”变成了“一张”，写错了程序自然找不到东西。

那ActiveDocument又是什么？它是Documents这个集合里“当前正在被你操作的那一份”。你打开三个文档，光标停在第二个上，那ActiveDocument就是第二个。它和Documents(2)可能指向同一个对象，但ActiveDocument的好处是你不用关心它是第几个，程序自动认当前活跃的那个。这跟 Excel VBA 里的ActiveWorkbook是一个道理——Excel 里你操作当前工作簿用ActiveWorkbook，Word 里操作当前文档就用ActiveDocument。

2.2 Document 对象：一份文档里到底装了什么

拿到一份Document之后，你能问它很多问题。教程里列了一长串属性，我挑几个最有代表性的说清楚它们各自在数什么。ActiveDocument.Characters.Count返回这份文档一共有多少个字符，注意是字符不是字，一个汉字算一个，一个英文字母也算一个，空格和标点同样计入。ActiveDocument.Words.Count数的是“词”的数量，英文按空格切词，中文的处理方式略有不同，实际用的时候要留意。ActiveDocument.Paragraphs.Count则是段落数，你按一次回车就多一段，这个数字很直观。

还有一类属性是“有没有”的判断，比如ActiveDocument.HasPassword告诉你这份文档有没有设密码，ActiveDocument.ReadOnly告诉你它是不是只读的，ActiveDocument.Saved告诉你上次保存之后有没有被改过。这些布尔属性特别适合放在If语句里做分支判断。举个例子，你写一个自动保存的宏，最稳妥的写法是先问一句“你改过没有”，改过了才保存，没改过就跳过，省得每次都弹保存提示烦人。

' 如果活动文档在上次保存后被修改过，才执行保存 If ActiveDocument.Saved = False Then ActiveDocument.Save End If

这段代码的逻辑很直白：Saved为False说明有未保存的改动，那就存一下；为True说明没动过，什么都不做。参数上没有什么花哨的，就是一个布尔判断。但如果你漏掉这个判断，直接写ActiveDocument.Save，Word 在文档没改动时也会执行保存动作，虽然不报错，但在批量处理几十个文件时会白白拖慢速度。

2.3 新建、打开、关闭：Documents 集合的三个动作

Documents作为集合，除了能“数”和“取”，还能“增”和“删”。新建一份空文档用Documents.Add，打开一个已有文件用Documents.Open "路径"，关闭用ActiveDocument.Close。这三个动作对应的是文档生命周期的三个节点，教程里把它们放在一起讲是有道理的——你写任何自动化流程，几乎都绕不开“开一个、干活、关掉”这个骨架。

Documents.Open的参数比较多，但常用的就前几个：文件名（可以带路径）、是否只读、打开时要不要密码。比如你只想读内容不想改，就加ReadOnly:=True；如果文件有打开密码，用PasswordDocument:="你的密码"传进去。这些参数不写也有默认值，但默认值不一定符合你的场景，所以知道它们存在很重要。

关闭的时候有一个关键参数叫SaveChanges，它决定关的时候要不要存。教程里给了三个常量：wdSaveChanges表示自动保存，wdDoNotSaveChanges表示不保存直接关，wdPromptToSaveChanges表示弹窗问用户。批量处理文件时最怕的就是弹窗——你写了循环关十个文档，每个都弹一次“要不要保存”，人得守在旁边点十次，自动化就失去了意义。所以批量场景下通常显式指定wdDoNotSaveChanges或wdSaveChanges，把决定权握在代码手里。

' 批量关闭所有文档，且不保存任何更改 Dim doc As Document For Each doc In Documents doc.Close savechanges:=wdDoNotSaveChanges Next doc

这段循环遍历Documents集合里的每一个Document对象，逐个关闭并明确不保存。For Each的好处是你不用管一共有几个、当前处理到第几个，集合里有几个它就转几圈。注意这里用的是doc.Close而不是ActiveDocument.Close，因为在循环过程中“当前活跃文档”会变，用循环变量doc才稳。

3. Range 与 Selection：Word 里“一段内容”的两种指法

3.1 Range 是看不见的荧光笔，Selection 是看得见的光标

这是 Word VBA 里最容易混淆的一对概念，也是这份教程花篇幅最多的部分。通俗地讲，Range是你脑子里划出的一段范围，它不需要在屏幕上高亮显示，程序知道从第几个字符到第几个字符就行；Selection则是你眼睛能看到的那片蓝色高亮，是用户当前用鼠标拖出来的或者光标所在的位置。两者都能代表“一段内容”，但脾气完全不同。

Range的写法是Range(开始下标, 结束下标)，注意第二个参数是“结束下标的前一个字符”。教程里举的例子很典型：假设文档内容是“跟着孙兴华学习VBA第四季”，字符下标从 0 开始数，Range(2, 5)取的是下标 2 到下标 4 这三个字符，也就是“孙兴华”里的前三个字（具体取到哪几个取决于你怎么数，关键是理解“含头不含尾”这个规则）。这个规则跟很多编程语言里截取字符串的substring(start, end)是一致的，end 位置本身不包含在内。

Selection则不需要你指定下标，它自动指向用户当前选中的东西。如果用户什么都没选，光标停在一个位置，那Selection就是一个“塌缩的”零长度范围。你可以对Selection调用TypeText直接打字，调用Copy复制，调用Cut剪切，这些动作跟用户手动按快捷键效果一样。教程里列了Selection.Activate、Selection.Copy、Selection.Paste这些方法，它们都是“动作”，作用在“当前选中的内容”上。

3.2 为什么批量处理要用 Range 而不是 Selection

这里有一条血泪经验：凡是循环处理大量内容的宏，优先用Range，尽量别碰Selection。原因在于Selection依赖“当前焦点”，你在循环里每操作一次，焦点可能就跳一下，屏幕跟着闪，速度慢不说，还容易因为焦点跑到别的窗口而翻车。Range是纯逻辑上的范围，不依赖屏幕状态，处理起来安静又稳定。

举个例子，你想把文档里所有数字变成红色加粗。用Selection的思路是“选中一个、改一个、再选下一个”，而用Range的思路是“遍历字符集合，对每个字符的 Range 改属性”。教程里那段示例代码走的就是后一条路：

Sub 将数字变成红色粗体() Dim i As Long Dim 每个字符 As Range ' 遍历文档中的每一个字符 For i = 1 To ActiveDocument.Characters.Count Set 每个字符 = ActiveDocument.Characters(i) ' 判断该字符是不是数字 If IsNumeric(每个字符.Text) Then 每个字符.Bold = True 每个字符.Font.ColorIndex = wdGreen End If Next i End Sub

这段代码里，Characters(i)返回的是第 i 个字符对应的Range对象，IsNumeric判断它的文本是不是数字，是的话就把Bold属性设为True、把字体颜色设为绿色（wdGreen是 Word 内置的颜色常量）。注意Set关键字不能省——给对象变量赋值必须用Set，这是 VBA 的硬规矩，漏了会报“对象变量未设置”。另外Characters.Count在大文档上可能比较慢，实际项目里如果只处理某一段，可以先缩小 Range 范围再遍历，不必每次都扫全文。

3.3 Characters、Words、Sentences、Paragraphs：四种粒度的集合

Word 把文档内容按不同粒度切成了四种集合：Characters是字符级，Words是词级，Sentences是句子级，Paragraphs是段落级。它们都返回Range对象，也就是说你拿到其中任何一个元素，都可以继续对它设字体、改颜色、插文字。粒度越细，数量越多，遍历越慢；粒度越粗，操作越省事，但精度下降。

Paragraphs是日常用得最多的一个。ActiveDocument.Paragraphs(1).Range.Text取第一段的文字，注意段落文本末尾通常带一个回车符，实际比较时可能要Trim一下。Paragraphs.Count数段落数，这个数字跟你肉眼数的段数基本对得上。教程里还提到Sentences集合，它按句号、问号、感叹号切句子，中文标点也能识别，但遇到省略号或者英文缩写时偶尔会切得不如人意，用之前最好拿实际文档试一下。

提示：Characters、Words、Sentences、Paragraphs这四个集合里的元素都是Range对象，不是Character或Word之类的独立类型。所以你对它们用的属性方法，跟对普通Range用的一模一样。

4. 属性与方法：对象“有什么”和“能做什么”

4.1 属性是名词，方法是动词

把对象想成一个具体的人，属性就是他的特征——身高、体重、发色；方法就是他能做的动作——跑、跳、说话。在 VBA 里，属性用等号读写，方法用括号调用（或者直接写方法名加参数）。ActiveDocument.Name是属性，返回文档名；ActiveDocument.Close是方法，执行关闭动作。这个区分看起来简单，但初学者常犯的错是把方法当属性用，比如写If ActiveDocument.Close = True，这就闹笑话了——Close是动作，没有“真假”可言。

教程里那段改字体颜色的代码，每个字符.Bold = True是在设属性，每个字符.Font.ColorIndex = wdGreen也是在设属性（Font本身是个对象，ColorIndex是它下面的属性）。而Selection.Copy、Selection.Paste是调方法，因为它们执行的是“复制”“粘贴”这种动作，不返回一个值让你读。记住这个区分，你看到一句代码就能判断它是在“问状态”还是在“下命令”。

4.2 常量：那些以 wd 开头的名字是什么

教程里反复出现wdGreen、wdSaveChanges、wdDoNotSaveChanges、wdPrintCurrentPage这类以wd开头的词。它们是 Word 内置的常量，本质上是给某个数字起了个好记的名字。比如wdGreen背后可能对应一个颜色编号，wdSaveChanges背后对应 -1，wdDoNotSaveChanges对应 0。你用常量名写代码，可读性比直接写数字强得多，而且不同版本的 Word 里数字可能变，常量名不变。

这些常量不需要你定义，VBA 编辑器里直接敲就能用（前提是引用了 Word 对象库）。如果你不确定某个常量叫什么，可以在代码里写个问号加常量名，或者查对象浏览器。实际写宏的时候，凡是涉及“保存选项”“打印范围”“颜色索引”这类枚举值，优先用常量，别硬编码数字，这是让代码能长期维护的基本习惯。

4.3 打印相关的属性和方法：从 PrintOut 看参数怎么读

教程里给了好几个打印的例子，从打印全文到打印指定页，参数逐渐变复杂。ActiveDocument.PrintOut不带参数就是打印整份文档；加Range:=wdPrintCurrentPage只打当前页；加Range:=wdPrintFromTo, From:="1", To:="3"打第 1 到第 3 页；加Range:=wdPrintRangeOfPages, Pages:="1,3,6"打指定的几页。你看，同一个方法，靠不同参数组合覆盖了不同需求，这就是“方法加参数”的典型用法。

读这类带很多参数的方法，不需要一次记住全部。先看必填的（PrintOut的FileName在批量打印时必填），再看跟你需求最相关的那个（打印范围就盯Range），其余的用默认值先跑通，跑通了再按需加。教程里还演示了用Dir循环打印一个文件夹下所有 docx 文件的写法，核心就是Dir("*.docx")拿到第一个文件名，Do While循环里打印，然后Dir()不带参数拿下一个，直到返回空字符串为止。这个套路在处理批量文件时反复出现，值得记牢。

5. 常见误区与易混概念：这几对词别再搞反了

5.1 Document 和 Documents：单数和复数差了一个集合

最容易混的一对。Document是一份文档的类型，Documents是所有打开文档的集合。你写Documents.Count得到数量，写Document.Count直接报错，因为单份文档没有“数量”这个属性。同理，ActiveDocument是当前那一份，Documents("名字")是从集合里按名取一份。区分方法很简单：看到复数 s，就想“一摞”；没有 s，就想“一张”。

5.2 Range 和 Selection：逻辑范围与屏幕焦点

Range是程序算出来的一段下标区间，不依赖用户当前选了什么；Selection是用户当前高亮的那片区域，依赖屏幕焦点。批量处理用Range，需要模拟用户操作（比如在光标处打字）才用Selection。混用的后果是：循环里用Selection可能导致焦点乱跳，处理结果时对时错，排查起来很折磨人。

5.3 属性和方法：等号右边是值，括号里面是动作

ActiveDocument.Name是属性，读出来是一个字符串；ActiveDocument.Close是方法，执行关闭。判断依据：如果这个词描述的是“状态或特征”，多半是属性；如果描述的是“做一个动作”，多半是方法。写代码时属性用=赋值或读取，方法直接调用，别给方法加= True这种判断。

5.4 Word 的 Cells 和 Excel 的 Cells：同名不同命

教程特意点了一句：Excel 里Cells(5,2)是第 5 行第 2 列的单元格，而 Word 里Characters(3)是第 3 个字符。Word 的Cells属于表格对象，得先有Tables才能谈Cells，跟 Excel 那种整张表铺满单元格的模型不是一回事。从 Excel VBA 转过来的人特别容易在这里想当然，以为Cells(1,1)在 Word 里也能直接取第一格，结果发现根本没这个用法。

5.5 Range 的“含头不含尾”：下标从 0 起，结束位不包含

Range(2, 5)取的是下标 2、3、4 这三个位置，下标 5 本身不在内。这跟很多语言截字符串的规则一致，但跟人的直觉（“从 2 到 5 不是应该包含 5 吗”）有偏差。写范围操作时，心里默念“结束位是墙，不进去”，能少犯很多差一位的错。

6. 什么时候该用这套对象模型，什么时候别硬上

先说该用的场景。只要你面对的是“重复性的文档操作”——比如把几十份 Word 里的特定段落抽出来汇总、批量给文档加页眉页脚、按模板生成一批格式统一的文件、把表格里的数据读出来写到别处——这套Application → Documents → Document → Range的层级就是最直接的路径。它的好处是你不需要装任何额外的东西，Word 自带，写几行就能跑，改起来也快。教程里那些新建、打开、保存、关闭、打印的例子，本质上都是在给你搭一个“文档流水线”的骨架，你把中间的处理逻辑换掉，就能套到自己的任务上。

再说别硬上的场景。如果你要处理的是几百上千份文档、每份几十页，纯用 VBA 逐字符遍历会慢到让你怀疑人生，这时候更合适的是先把内容导出来用别的工具批处理，或者至少把Range缩小到必要范围再操作。另外，如果你的需求是“一次性、不重复”的，比如就改这一份文档的格式，手动点几下比写宏快得多，没必要为了自动化而自动化。还有一种情况：文档结构极其复杂（大量嵌套表格、文本框、域代码），Range的下标计算容易跟你想的不一样，这时候先拿一份样本文档把Characters.Count、Paragraphs.Count打出来看看实际数字，再决定从哪下手，比闷头写强。

我自己的习惯是，每次写涉及Range下标的宏之前，先插一句MsgBox ActiveDocument.Characters.Count把总数打出来，再拿一两个位置试Range(i, i+1).Text看看取到的是不是我以为的那个字。这个动作花不了十秒钟，但能挡掉后面半小时的“为什么取出来是乱码”的排查。从那以后我每次碰下标相关的操作都强制先打一遍边界值，希望这个习惯也能帮到你。

本文还有配套的精品资源，点击获取