简介：这份PDF教程面向已具备VBA基础、希望深入掌握Office自动化的办公人员与开发者，聚焦ExcelVBA与WordVBA第4季内容，系统讲解对象、集合、属性与方法等核心概念，帮助读者从零散语法走向对文档内容的精细操控。资源包仅含1个PDF文件，大小约1.92MB，便于随身查阅与打印研读。教程以Word对象模型为主线，逐一剖析Application、Documents与Document的引用方式，对比Excel中ActiveWorkbook、ThisWorkbook的用法；深入Range与Selection对象的区域选取、文本获取及复制粘贴操作，并梳理Characters、Words、Sentences、Paragraphs等集合的索引访问技巧，同时延伸至Tables、Columns、Rows、Cells等表格对象，配合字体颜色、加粗等属性设置与Activate、Copy、Cut、Paste等方法示例，形成完整知识链条。目前已有848人学习，适合希望编写自定义宏、提升办公效率、打通Excel与Word双剑合璧自动化流程的读者参考。
1. 从 Excel 思维切进 WordVBA：为什么你的第一行代码总是报错
很多人从 ExcelVBA 转 WordVBA，第一反应是把Cells(5,2)那套直接搬过来，结果一运行就翻车——Word 里根本没有Cells(5,2)这种写法，Cells在 Word 里是表格单元格集合，脱离Table对象单独用会直接抛错。这份《ExcelVBA与WordVBA教程第4季.pdf》解决的正是这个断层：它不教你 VBA 语法基础，而是把 Word 的对象模型（Application、Document、Range、Selection、Paragraphs 等）和 Excel 的对应物一一对照着讲，让你用已有的 ExcelVBA 直觉去理解 Word 的集合与对象层级。适合已经能写 Excel 宏、但一碰 Word 就不知道从哪个对象下手的从业者，尤其是要做批量文档处理、报告自动生成、格式清洗这类活的人。
2. 对象模型对照：把 Excel 的 Workbook 思维翻译成 Word 的 Document 层级
WordVBA 难上手，核心不在语法，而在对象模型的层级关系和 Excel 不一样。Excel 里你习惯Workbook → Worksheet → Range，Word 里是Application → Document → Range/Selection，中间少了“工作表”这一层，但多了Range和Selection两个容易混淆的入口。这份教程第 4 季开篇就用“集合好比多个团队，每个团队都是一个对象”这种类比把Documents、Paragraphs、Characters的集合关系讲透，下面按我实际拆解的路径重新组织一遍。
2.1 Application 与 Documents：先搞清楚你操作的是“软件”还是“文档”
Application代表 Word 软件本身，Documents是所有打开文档的集合，ActiveDocument是当前活动文档，ThisDocument是承载 VBA 代码的那个文档。这四个东西的区分是后面所有代码的地基。教程里给了一张很实用的对照：ActiveDocument、ThisDocument、Documents("文档名")相当于 ExcelVBA 里的ActiveWorkSheet、ThisWorkSheet、WorkSheets("工作表名")。这个类比一出来，选型就清楚了——批量处理用Documents遍历，操作当前界面用ActiveDocument，代码写在哪份文档里就用ThisDocument。
我一般会在模块顶部先做一次显式引用，避免ActiveDocument在切换窗口时指向漂移：
Sub 指定当前文档() Dim 文档 As Document ' 方法1：显式走 Application，语义最清楚 Set 文档 = Word.Application.ActiveDocument ' 方法2：简写，代码量少但依赖当前上下文 ' Set 文档 = ActiveDocument MsgBox 文档.FullName End Sub这段代码的逻辑是：Set 文档 = ...把文档对象赋给变量后，后续所有操作都走这个变量，不再依赖“当前活动”这个隐式状态。参数上没什么可调的，关键是养成“先 Set 再操作”的习惯——教程里反复强调ActiveDocument可以简写，但简写的前提是你确定当前焦点没跑偏。实际跑批量任务时，我见过太多因为用户中途点了另一个文档导致ActiveDocument指向错误、结果写错文件的案例，这就是血泪经验。
Application下还有一批只读属性值得先摸一遍，教程附 1 列了完整清单，我挑几个高频的：Application.Documents.Count返回打开文档数，Application.Version返回版本号，Application.Path返回程序路径，Application.System.FreeDiskSpace返回磁盘可用空间。这些在写健壮脚本时很有用，比如批量打印前先判断磁盘空间、或者根据版本号走不同分支。
2.2 Range 与 Selection：两个入口的边界决定代码稳不稳
Range和Selection是 WordVBA 里最容易混的一对。教程的定义很干脆：Range代表文档中的一段区域，用Range(开始下标, 结束下标前一个字符)构造；Selection代表当前所选内容，跟用户鼠标操作强相关。Range(2,5)取的是从下标 2 开始到下标 5 之前那个字符，也就是第 2、3、4 三个字符——这个“结束下标前一个字符”的语义是新手第一个坑，教程用“跟着孙兴华学习VBA第四季”这句 16 个字符的示例把下标算得明明白白。
两者的核心差别在于：Range是“无界面”的，你构造它、操作它，用户看不到光标动；Selection是“有界面”的，操作它会移动光标、改变用户当前选中。批量处理一律用Range，需要模拟用户交互或依赖当前光标位置时才用Selection。教程里Selection.Activate、Selection.Copy、Selection.Cut、Selection.Paste、Selection.Select这五个方法就是围绕“当前选中”设计的。
Sub 在文档开头插入文本并打印() Dim 文档 As Document Dim 范围或位置 As Range Set 文档 = ActiveDocument ' 构造一个零长度 Range，定位到文档最开头 Set 范围或位置 = 文档.Range(Start:=0, End:=0) With 范围或位置 .InsertBefore "报告标题" .Font.Name = "Arial" .Font.Size = 30 .InsertParagraphAfter End With 文档.PrintOut End Sub逻辑说明：Range(Start:=0, End:=0)构造一个起点终点重合的空 Range，相当于在文档开头插了一个“插入点”，InsertBefore在这个点之前塞文本，InsertParagraphAfter补一个段落标记。参数上Start和End都是字符下标，从 0 开始；Font.Name和Font.Size是 Range 的字体属性，改的是这段 Range 覆盖的文本格式。这里用With块是为了避免反复写范围或位置.，但注意With里改的是 Range 的格式，不是整个文档——这是和Selection操作最容易搞混的地方。
2.3 Characters、Words、Sentences、Paragraphs：四级文本集合的索引方式
Word 把文本切成四级集合：Characters（字符）、Words（词）、Sentences（句）、Paragraphs（段）。教程明确说前三个返回Range对象，Paragraphs返回Paragraph对象。这个区别很关键：Document.Paragraphs(1).Range.Text取第一段文字，注意中间多了.Range——因为Paragraphs(1)是段落对象，不是 Range，要拿文字得再取它的 Range。
教程里那个“把数字变红色粗体”的遍历例子是理解Characters集合的最好素材：
Sub 将数字变成红色粗体() Dim i As Long Dim 每个字符 As Range ' 遍历全部字符，Count 是当前文档字符总数 For i = 1 To Word.Application.ActiveDocument.Characters.Count Set 每个字符 = Word.Application.ActiveDocument.Characters(i) If IsNumeric(每个字符.Text) Then 每个字符.Bold = True 每个字符.Font.ColorIndex = wdGreen End If Next End Sub逻辑说明：Characters.Count拿总数，Characters(i)按索引取第 i 个字符的 Range，IsNumeric判断是不是数字，是就改Bold和Font.ColorIndex。参数上wdGreen是 Word 内置颜色常量，教程里还提到wdGreen01这种写法是笔误，实际常量就是wdGreen。这段代码跑大文档会慢，因为逐字符访问 COM 接口开销大，实际项目里我一般先用Range.Find定位再批量改，但作为理解集合索引的教学例子它足够直观。
Words和Sentences的索引方式同理，但要注意 Word 对“词”和“句”的切分规则跟中文习惯不完全一致，中文文档里Words.Count的数值可能和你肉眼数的对不上，这是 Word 分词逻辑决定的，不是代码错。Paragraphs则稳定得多，Document.Paragraphs.Count返回段落数，遍历段落做格式清洗是最常见的批量任务。
3. 文档生命周期操作：新建、打开、保存、关闭的参数怎么设
对象模型搞清楚之后，落地第一件事就是文档的增删改查。教程附 2 和附 3 把Documents.Add、Documents.Open、ActiveDocument.Save、ActiveDocument.SaveAs2、ActiveDocument.Close这几个方法的参数列得很全，但参数多不代表都要设，关键是知道哪几个会改变行为。
3.1 新建与另存：Add 和 SaveAs2 的配合
Documents.Add往Documents集合里加一个空文档，SaveAs2指定路径另存。教程给的两段代码对比很能说明问题：
Sub 新建保存另存() ' 新建文档 Documents.Add ' 保存到原位置（新文档没位置，会弹框） ActiveDocument.Save ' 另存为，必须指定完整路径 ActiveDocument.SaveAs2 "c:\1.docx" ' 关闭 ActiveDocument.Close End Sub Sub 新建并另存() ' 链式调用：新建后立刻另存 Documents.Add.SaveAs2 "c:\1.docx" ActiveDocument.Close End Sub逻辑说明：第一段里Save对新建文档会弹保存对话框，因为新文档没有路径；第二段用Documents.Add.SaveAs2链式调用，一步到位指定路径，避免弹框。参数上SaveAs2的第一个参数是完整文件名含路径，教程用的是c:\1.docx这种绝对路径，实际项目里我一般用ThisDocument.Path & "\" & 文件名拼相对路径，避免硬编码盘符。注意SaveAs2是 Word 2010 之后的方法，老版本用SaveAs，教程没强调版本差异，但这是实际部署时会遇到的兼容问题。
3.2 Open 的关键参数：ReadOnly、PasswordDocument、Visible
Documents.Open的参数表很长，教程列了FileName、ConfirmConversions、ReadOnly、AddToRecentFiles、PasswordDocument、PasswordTemplate、Revert、WritePasswordDocument、Format、Encoding、Visible、OpenAndRepair等十几个。实际高频的就四个：FileName必填，ReadOnly控制只读打开，PasswordDocument传打开密码，Visible控制是否可见窗口。
Sub 打开文档示例() Dim 文档 As Document ' 只读打开，不加入最近文件列表，窗口可见 Set 文档 = Documents.Open( _ FileName:="c:\1.docx", _ ReadOnly:=True, _ AddToRecentFiles:=False, _ Visible:=True) ' 在光标位置插入文本 Selection.TypeText "示例文本" ' 不保存关闭 文档.Close savechanges:=wdDoNotSaveChanges End Sub逻辑说明：ReadOnly:=True防止误改源文件，AddToRecentFiles:=False避免批量打开时污染最近文件列表，Visible:=True让用户能看到处理过程（批量后台处理时设False提速）。Close的savechanges参数接受三个常量：wdDoNotSaveChanges（不保存）、wdSaveChanges（自动保存）、wdPromptToSaveChanges（提示用户）。教程附的关闭操作表把这三个常量的数值也列了（0、-1、-2），实际写代码用常量名更可读。
批量关闭所有文档不保存的写法教程也给了：
Sub 关闭所有文档不保存() Dim doc As Document For Each doc In Documents doc.Close savechanges:=wdDoNotSaveChanges Next doc End Sub这里有个坑：遍历Documents集合时关闭文档会改变集合大小，For Each在某些情况下会漏掉文档。稳妥做法是倒序For i = Documents.Count To 1 Step -1，教程没提这点，但实际跑批量关闭时我踩过——正序关到一半集合索引错位，剩下几个文档没关掉。
3.3 打印：PrintOut 的 Range 参数与批量打印文件夹
打印这块教程给了三个递进的例子：打印当前页、打印前 N 页或指定页、打印文件夹下所有 docx。PrintOut的Range参数接受wdPrintAllDocument（整个文档）、wdPrintCurrentPage（当前页）、wdPrintFromTo（指定范围，配From和To）、wdPrintRangeOfPages（指定页码列表，配Pages）、wdPrintSelection（当前选中）。
Sub 打印指定页面() Dim 文档 As Document Set 文档 = ActiveDocument ' 打印第 1 到第 3 页 文档.PrintOut Range:=wdPrintFromTo, From:="1", To:="3" ' 打印第 1、3、6 页 文档.PrintOut Range:=wdPrintRangeOfPages, Pages:="1,3,6" End Sub逻辑说明：wdPrintFromTo配From和To字符串参数，wdPrintRangeOfPages配Pages逗号分隔列表。注意From和To是字符串不是数字，传数字会类型不匹配。批量打印文件夹的写法用Dir循环：
Sub 打印当前文件夹下所有docx() Dim 文件 As String 文件 = Dir("*.docx") Do While 文件 <> "" Word.Application.PrintOut FileName:=文件 文件 = Dir() Loop End Sub这里Dir("*.docx")只匹配当前目录，不含子目录；PrintOut FileName:=文件直接传文件名，Word 会在当前目录找。实际项目里如果文件在别的路径，得先ChDir或传完整路径。教程这段代码注释里写“第二季笔记15课文件”，说明它是从实际课程素材里抠出来的，文件名匹配模式按需改*.doc或*.rtf即可。
4. 避坑与排查：WordVBA 里那些让脚本静默失败的细节
这一章是我拆这份教程时对照自己踩过的坑整理的，教程本身偏重“正确写法”，但实际跑起来失败往往不是语法错，而是对象状态和隐式行为。
4.1 现象：ActiveDocument指向了错误的文档
原因：ActiveDocument依赖当前焦点窗口，用户中途点击别的文档、或者代码里Documents.Open后没显式Activate，焦点就漂了。解决：所有操作前先Set 文档 = Documents("目标名.docx")或Set 文档 = Documents.Open(...)拿显式引用，后续全走变量，不碰ActiveDocument。教程 2.1 节其实给了这个思路，但没强调“为什么必须这样”，实际项目里这是最高频的翻车点。
4.2 现象：Range(2,5)取出来的字符数对不上
原因：Range的End参数是“结束下标前一个字符”，不是包含式。Range(2,5)取下标 2、3、4 三个字符，不是 2 到 5 四个。解决：记牢“左闭右开”语义，或者干脆用Range.Start和Range.End属性读出来验证。教程用 16 字符示例算过一遍，但新手看一遍容易忘，我一般会在代码里加Debug.Print 范围.Text先打印确认再往下写。
4.3 现象：逐字符遍历大文档卡死
原因：Characters(i)每次访问都走 COM 接口，几千字符的文档遍历一遍要好几秒，几万字符直接卡到无响应。解决：改用Range.Find批量定位，或者先把Document.Range.Text一次性读成字符串在内存里处理，处理完再写回。教程的逐字符例子是教学用的，生产环境别照搬。
4.4 现象：Documents.Close后集合索引错乱
原因：For Each遍历集合时关闭元素会改变集合大小，迭代器行为不确定。解决：倒序For i = Documents.Count To 1 Step -1关闭，或者先把要关的文档名收集到数组再逐个关。教程 3.2 节的批量关闭示例用的是For Each，小规模没问题，文档多了会漏。
4.5 现象：SaveAs2在老版本 Word 报“方法不存在”
原因：SaveAs2是 Word 2010 引入的，2007 及更早只有SaveAs。解决：用Application.Version判断版本号走分支，或者统一用SaveAs（参数兼容性更好，但少了部分新格式支持）。教程没提版本差异，部署到混合版本环境时这是必查项。
5. 进阶验证：用 Application 属性做脚本自检与批量任务前置检查
教程附 1 那串Application属性清单，很多人扫一眼就过了，但实际写健壮脚本时它们是“后悔药”。我现在的习惯是：任何批量任务开跑前，先跑一段自检，把环境状态打出来，出问题能快速定位是环境还是逻辑。
Sub 环境自检() Dim 信息 As String 信息 = "Word版本: " & Application.Version & vbCrLf & _ "打开文档数: " & Application.Documents.Count & vbCrLf & _ "可用字体数: " & Application.FontNames.Count & vbCrLf & _ "磁盘可用空间: " & Application.System.FreeDiskSpace & " 字节" & vbCrLf & _ "最近文档数: " & Application.RecentFiles.Count Debug.Print 信息 ' 批量打印前判断磁盘空间，低于阈值就中止 If Application.System.FreeDiskSpace < 104857600 Then MsgBox "磁盘空间不足 100MB，中止批量任务" Exit Sub End If End Sub逻辑说明：Application.Version返回版本号字符串，用来走兼容分支；Documents.Count确认当前打开文档数符合预期；FontNames.Count在批量改字体前确认目标字体可用；System.FreeDiskSpace返回字节数，批量另存前判断空间；RecentFiles.Count在需要清理最近列表时用。参数上FreeDiskSpace是只读属性，单位字节，阈值按任务规模调，我一般留 100MB 余量。
再进一步，Application.Build返回编译序号，Application.UserName返回当前用户名，Application.Path返回程序路径——这几个在写日志、区分运行环境时有用。教程附 1 里还有Application.MacroContainer.FullName返回当前文档名含路径、Application.NormalTemplate.FullName返回标准模板位置，这两个在排查“宏为什么在别的机器上找不到模板”时是直接线索。
验证脚本是否按预期改了文档，我一般用“改前改后对比”的土办法：跑之前Debug.Print ActiveDocument.Range.Text打一份全文，跑完再打一份，肉眼比对关键段落。教程里ActiveDocument.Content返回文档全部内容，Document.Range.Text也是全文，两者在取全文时等价，但Content是 Range 对象可以直接接格式操作，Range.Text是字符串只能读——这个区别在写验证代码时要注意，别拿字符串去调.Font。
从那以后我每次写 WordVBA 批量脚本，都强制先跑一遍环境自检、再拿一份小样本文档试跑、确认Range下标和集合索引没算错，最后才上全量。这份教程第 4 季的价值不在于教你新语法，而在于把 Word 对象模型的层级和 Excel 的对应关系摆清楚，让你少走“用 Excel 思维写 Word 代码”的弯路。希望帮到你。
本文还有配套的精品资源，点击获取
