简介在 Visual Basic 中操作 Word 的自动化编程资料内容聚焦于如何使用 VB 控制 Word 完成创建、编辑、格式化文档以及后台模板生成等任务。资源共 1 个 doc 文档大小约 366KB源自作者早期实际项目的经验沉淀覆盖 Word 对象模型的完整知识链从 Application 对象作为全局入口到 Document 与 Documents 集合的文档管理、Bookmark 定位、Selection 内容操作再到对象方法属性的具体调用均配有通俗说明与可直接套用的代码示例。文档还专门介绍了如何通过共用属性访问下层对象、如何查阅 Word Visual Basic 帮助和对象模型层次图便于读者系统理解自动化流程的设计思路。当前该资源已有 486 人学习对从事 Office 二次开发或需要以编程方式处理 Word 文档的技术人员具有直接的参考价值。1. VB 操作 Word 的自动化边界与常见误区很多老 ERP、工控上位机里还留着一批 VB6 写的报表导出模块业务说“不要 Excel 了要 Word 报价单”。这时候最直接的做法不是转 C#而是用 VB 里的 CreateObject 启动一个隐藏在后台的 Word.Application按对象模型往里写文字、换格式、生成表格。VB 操作 Word 的核心不是录制宏而是把 Word 当成一个 COM 组件用后期绑定或前期绑定拿到它的 Application、Document、Range、Selection、Find 等对象再按批次处理文档。这篇文章我按“连接 Word 进程 → 操作内容层 → 批量收尾”这条路径讲代码都按 VB6 和 VBA 通用写法给参数都标了取值含义。适合正在维护 VB6 项目、想把报表导出从 Excel 切换到 Word或者想用 VBA 做 Word 批处理的人。2. 连接 Word.Application前期绑定、后期绑定与对象生命周期VB 操作 Word 的所有能力都来自 Word.Application 这个 COM 对象。在 VB6 里你可以通过“工程 → 引用”勾选 Microsoft Word Object Library拿到强类型对象也可以什么都不勾直接用 CreateObject。先理解这两种绑定方式的差异才能决定项目里用哪一种。2.1 用 CreateObject 还是 New前期绑定与后期绑定前期绑定指的是在 VB IDE 里勾选 Word 对象库后写Dim wdAppEarly As Word.Application Set wdAppEarly New Word.Application wdAppEarly.Visible False前期绑定有智能提示编译期间就能找到属性名拼写错误调用速度快。缺点是目标机器上必须安装对应版本的 Word 类型库如果你的 VB6 编译后的程序要发给客户客户机器上 Office 版本不一致偶尔会出现“无法加载 DLL”或者类型库版本不正确。后期绑定则完全不依赖 IDE 里的引用运行期由 COM 解析参数代码长这样Dim wdApp As Object Set wdApp CreateObject(Word.Application) wdApp.Visible False我一般默认用后期绑定尤其是 VB6 写独立 EXE 交出去时。后期绑定没有智能提示但可以避开 Office 16.0 对象库在不同 Office 版本间的注册表差异。VBA 里则优先早期绑定因为你操作的本来就是宿主 Office 环境不会把问题带到别的机器上。还有一个常见误区是Dim wdApp As New Word.Application这种“自动实例化”写法。它确实会在第一次访问属性时创建对象但对象被销毁后再次访问又会自动重建调试时很难判断生命周期。做 Word 批处理时建议显式Set wdApp New Word.Application或Set wdApp CreateObject(Word.Application)结束时主动Set wdApp Nothing。2.2 打开、保存、关闭最小可用流程先给一个能直接跑的完整流程它只做三件事打开 D:\tmp\demo.doc往文档里写一段文字另存成新文件。Dim wdApp As Object Dim wdDoc As Object Set wdApp CreateObject(Word.Application) wdApp.Visible False wdApp.DisplayAlerts 0 Set wdDoc wdApp.Documents.Open(FileName:D:\tmp\demo.doc, _ ReadOnly:False, _ AddToRecentFiles:False) wdDoc.Content.Text 用 VB 写入的第一段内容 wdDoc.SaveAs FileName:D:\tmp\demo_new.doc, FileFormat:0 wdDoc.Close SaveChanges:False wdApp.Quit Set wdDoc Nothing Set wdApp Nothing这里用命名参数传值是为了读代码的人一眼看出 FileName、ReadOnly、AddToRecentFiles 的含义。如果你要用位置参数Documents.Open 的完整参数顺序很长中间还有 PasswordDocument、Revert、Encoding 这类不常用参数漏一个就会把后面的值传错。连接阶段常用的参数值如下参数取值作用容易踩的坑wdApp.VisibleTrue / False是否显示 Word 窗口调试时设 True正式批处理必须 FalsewdApp.DisplayAlerts0 / 1 / -1是否弹提示框0 是 wdAlertsNone避免另存时弹交互框Documents.Open ReadOnlyTrue / False是否只读打开要写回原文件时不能设 TrueAddToRecentFilesTrue / False是否加入最近文件列表大批量处理建议 False减轻缓存负担Documents.Close SaveChanges0 / -1 / -2关闭时是否保存0 是 wdDoNotSaveChanges1 是保存Close 的 SaveChanges 参数我习惯直接写 0语义是“不保存关闭”。代码里wdDoc.SaveAs已经写了 FileFormat:00 在 Word 里表示 wdFormatDocument也就是 .doc 格式如果改成 12保存出来的就是 .docx。这一点在批处理时尤其重要下面会再讲。2.3 VB 在 Win8 和新版 Windows 的兼容性配置VB6 程序在 Win8 之后的系统上跑常见的坑是窗体用了 mscomctl.ocx 里的 TreeView、ListView 或 StatusBar报“不能在 Win8 下加载 mscomctl.ocx”。这和 Word 本身不是一回事但它会卡在程序启动阶段让你连 Word.Application 都碰不到。常见做法是把 32 位版本 mscomctl.ocx 放到 C:\Windows\SysWOW64然后以管理员身份执行cd C:\Windows\SysWOW64 regsvr32 mscomctl.ocx如果程序是 64 位进程则放 C:\Windows\System32。注意 VB6 的 EXE 编译出来默认是 32 位所以 SysWOW64 是主路径。Word.Application 的 COM 调用不受这个影响Office 32 位和 64 位都能通过 CreateObject 启动关键是 VB6 进程本身要能正常起来。3. VB 操作 Word 内容层Range、Find、表格列宽与格式控制连接成功后真正的工作全在内容层。Word 对象模型里最常用的是 Document、Range、Selection、Find、Tables 这几个对象。这一章把读文字、替换文字和生成表格这三块讲透。3.1 用 Selection 还是 Range 写入和读取文本Selection 模拟的是用户在 Word 里移动光标选中的区域适合录制宏但在批处理里每访问一次 Selection 都要让 Word 更新一次光标状态慢而且容易受窗口状态影响。Range 是文档里的一个不连续区域不依赖光标更适合 VB 自动化。我的习惯是批处理只用 Range只有需要模拟用户操作时才碰 Selection。向文档末尾追加文字可以这么写Dim rngAll As Object Set rngAll wdDoc.Content rngAll.Collapse Direction:0 0 表示 wdCollapseEnd折叠到文档末尾 rngAll.Text vbCrLf 追加的一行 Debug.Print wdDoc.Paragraphs(1).Range.TextwdDoc.Content返回整个主故事流对应的 RangeCollapse 指定折叠方向0 是折叠到末尾1 是折叠到开头。把 Text 赋值给一个折叠后的 Range等于在光标处插入文字不会覆盖旧内容。用 Paragraphs(1).Range.Text 读第一段是因为 Range.Text 按字符读直接读 Content 会带回段落结束符和最后的 \r 等字符调试时看着很乱。如果要在文档中间插入内容可以取一个局部 RangeDim rngInsert As Object Set rngInsert wdDoc.Range(Start:100, End:100) rngInsert.InsertAfter 插入在 100 字符后的内容这个写法在目标文档小于 100 字符时会收到一个运行时错误正式项目里要先判断 wdDoc.Characters.Count。更稳的做法是查找定位到一段已知文字再基于找到的范围插入后面讲 Find 时会用到。3.2 Find 批量替换时最容易忽略的 4 个参数Find 对象是 Word 自动化里最常用也最容易写错的。很多人都知道 Text 和 Replacement.Text但没设置 Forward、Wrap、MatchWildcards、MatchCase导致替换只做了第一处或者卡在选择框弹窗上。批量替换最小代码Dim rngFind As Object Set rngFind wdDoc.Content With rngFind.Find .Text 2024 .Replacement.Text 2025 .Forward True .Wrap 1 1 是 wdFindContinue .MatchWildcards False .MatchCase False .Execute Replace:2 2 是 wdReplaceAll End With这里最关键的是 Wrap 和 Replace 两个参数。Wrap 决定查到文档末尾后怎么处理0 是 wdFindStop 停止1 是 wdFindContinue 从头继续2 是 wdFindAsk 弹询问框。批处理必须用 1否则遇到最后一个查找点时可能会误以为替换完成。Replace 的 1 是 wdReplaceOne2 是 wdReplaceAll忘了传 2 就永远只替换第一处。参数取值作用ForwardTrue / FalseTrue 从前往后查False 从后往前查Wrap0 / 1 / 20 停止1 继续2 询问MatchWildcardsTrue / FalseTrue 启用通配符匹配不是正则MatchCaseTrue / FalseFalse 忽略英文大小写Execute Replace1 / 21 替换首次出现2 替换全部如果你想匹配任意数字Word 通配符里用[0-9]而不是\d想匹配任意字符用?多个字符用*。开启 MatchWildcards 后Text 属性里出现这些符号会被当成通配符解析替换文本里要写\1才能引用捕获组。3.3 表格列宽无法拖动的根因与代码修正很多 VB 程序生成的 Word 表格打开后用户想拖列宽拖完一松手又弹回原位。这不是代码没写列宽而是表格的自动调整策略参与了计算。用 VB 创建表格的标准写法Dim tblRng As Object Dim wdTbl As Object Set tblRng wdDoc.Paragraphs(1).Range tblRng.Collapse Direction:1 1 是 wdCollapseStart落在段落开头 Set wdTbl wdDoc.Tables.Add(Range:tblRng, _ NumRows:3, _ NumColumns:4) wdTbl.AllowAutoFit False wdTbl.Columns(1).Width 60 wdTbl.Columns(2).Width 90 wdTbl.Columns(3).Width 120 wdTbl.Columns(4).Width 80 wdTbl.Rows.AllowBreakAcrossPages FalseTables.Add的第一个参数必须是一个 Range传入关闭后的段落 Range 会在段落开头插入一个 3 行 4 列的表格。AllowAutoFit False是解决拖动问题的最关键一行它关闭 Word 对表格的自动适应窗口功能。表格总宽度超过页面版心时Word 会按页面宽度重算各列所以手动设置的 Width 经常被忽略。如果用户在 Word 里能看到列宽但无法拖动常见原因是这行代码后又被设置了PreferredWidthType wdPreferredWidthPercent也就是按百分比布局。VB 里设置成按固定磅值处理即可wdTbl.PreferredWidthType 2 wdPreferredWidthPoints固定宽度 wdTbl.PreferredWidth 350这样表格不会因为窗口大小变化而重新分配列宽。使用“无法拖动”的场景时也要检查是否存在合并单元格合并后的列边界不是真正的列边界Word 不允许拖。4. 把 VB 操作 Word 做成批处理文件夹遍历、错误隔离与输出检查单文档操作跑通后下一个问题是“怎么处理几千个文件”。这一章给出可复用的遍历函数、错误隔离和格式转换参数。4.1 用 Dir 遍历 doc/docx 的最小代码VB6 自带 Dir 函数遍历一个目录里的 .doc 和 .docx 不需要引入额外组件。先写一个处理单文件的函数Public Sub ReplaceInDoc(ByVal sPath As String) Dim wdApp As Object Dim wdDoc As Object Set wdApp CreateObject(Word.Application) wdApp.Visible False wdApp.DisplayAlerts 0 Set wdDoc wdApp.Documents.Open(sPath, _ ReadOnly:False, _ AddToRecentFiles:False) With wdDoc.Content.Find .Text 旧客户名称 .Replacement.Text 新客户名称 .Execute Replace:2 End With wdDoc.Save wdDoc.Close SaveChanges:False wdApp.Quit Set wdDoc Nothing Set wdApp Nothing End Sub然后在外层遍历Dim fName As String Dim fullPath As String fName Dir(D:\invoice\*.doc*) Do While fName fullPath D:\invoice\ fName ReplaceInDoc fullPath fName Dir Loop*.doc*能同时匹配 .doc 和 .docx也可以匹配 .docm。Dir 第一次调用传入路径模式后续调用用空参获取下一个匹配项找不到返回空字符串。这个函数不搜索子目录如果需要递归嵌套目录用 FileSystemObject 的 GetFolder 遍历 SubFolders 更合适这里不展开。4.2 错误处理与超时控制的三个参数批处理最怕 Word 弹一个“文档正在被占用”或“文件是只读”的模态框然后整个循环卡死。第一道防线是 wdApp.DisplayAlerts 0它让 Word 放弃大部分警告弹窗。第二道防线是 On Error GoTo出错时把 Word 进程退出来不要让进程残留在任务管理器里。第三道防线是每次处理都新建一个 Application 实例文件打开失败就 Quit而不是复用一个长期运行的 wdApp 实例。一个带错误隔离的函数Public Function ReplaceInDoc2(ByVal sPath As String) As Boolean On Error GoTo ErrHandler Dim wdApp As Object Dim wdDoc As Object Set wdApp Nothing Set wdDoc Nothing Set wdApp CreateObject(Word.Application) wdApp.Visible False wdApp.DisplayAlerts 0 wdApp.AutomationSecurity 3 msoAutomationSecurityForceDisable Set wdDoc wdApp.Documents.Open(sPath, ReadOnly:False, AddToRecentFiles:False) wdDoc.Save wdDoc.Close SaveChanges:False wdApp.Quit ReplaceInDoc2 True Exit Function ErrHandler: On Error Resume Next If Not wdDoc Is Nothing Then wdDoc.Close SaveChanges:False If Not wdApp Is Nothing Then wdApp.Quit ReplaceInDoc2 False End FunctionAutomationSecurity 3用于禁用文件里的宏防止打开陌生 Word 文档时触发宏病毒警告或自动运行脚本这是批量处理外部文件的必要配置。On Error Resume Next 写在错误处理块里是为了保证 Quit 本身出错时不会二次弹出。4.3 把常用操作封装成可复用函数批处理脚本写到第三个文件时打开和关闭逻辑就是重复代码。我会把连接和退出抽成两个函数Public Function OpenWordApp() As Object Set OpenWordApp CreateObject(Word.Application) OpenWordApp.Visible False OpenWordApp.DisplayAlerts 0 End Function Public Sub CloseWordApp(ByVal wdApp As Object, ByVal wdDoc As Object) On Error Resume Next If Not wdDoc Is Nothing Then wdDoc.Close SaveChanges:False If Not wdApp Is Nothing Then wdApp.Quit End Sub这样每个处理函数里只需要写核心逻辑。如果项目里同时要导出 .doc 和 PDF可以统一用一张格式映射表文件格式FileFormat 数值说明.doc0Word 97-2003 文档旧系统对接常用.docx12Word 2007 后默认格式.dot1Word 模板.pdf17导出 PDF适合分发和盖章转换格式时调用wdDoc.SaveAs outFile, 12第一个参数是完整路径第二个参数是 FileFormat。注意 SaveAs 的 Encoding 参数不传时默认用系统代码页中文文档在简体中文系统上通常没问题但要生成给其他区域用户看的文档建议先wdDoc.Range.Text检查乱码再决定是否需要显式传 UTF-8 编码值。5. VB 操作 Word 的收尾域代码刷新、关闭卡顿排查与结果验证文档内容改完、保存完还要处理两类问题Word 里的页码、目录是域代码程序改完文本后它们不会自动刷新关闭 Word 时如果很卡多半是加载项、剪贴板或未保存提示在拖后腿。5.1 用 Fields.Update 重算页码与目录域代码是 Word 里比较特殊的内容页码、目录、交叉引用都以域字段形式存在。VB 改完文档文字后直接读页码看到的还是旧的。刷新全部域字段可以执行wdDoc.Fields.Update wdDoc.Repaginate但目录不是一个普通域字段它还需要 TOC 对象自己更新If wdDoc.TablesOfContents.Count 0 Then wdDoc.TablesOfContents(1).Update End If同理wdDoc.Indexes.Update更新索引。正式项目里我一般先wdDoc.Fields.Update再检查 TablesOfContents.Count这样页码和目录都能刷新到新内容。5.2 关闭 Word 时卡顿的三个排查点Word 关闭卡顿在自动化脚本里特别容易误判成死循环。第一排查点在wdDoc.Close之前是否有未定稿的域字段或修订Word 关闭时计算域会占用时间可以提前把文档的TrackRevisions False关掉。第二排查点是剪贴板里有大对象VB 代码如果在操作过程中调用过 Copy关闭 Word 时它要清空剪贴板会卡住批处理里不需要复制内容避免使用 Selection.Copy。第三排查点是加载项自动化启动的 Word 会加载用户安全中心里启用的 COM 加载项可以在连接阶段加一行wdApp.AddIns.Unload False这个函数执行得慢但对安装在公共 Office 环境里的机器很有效。如果某个脚本在用户机器上关闭时必卡优先看 Word 的 COM 加载项不是代码问题。5.3 验证生成结果的一分钟检查保存前用几个 Debug.Print 检查文档状态Debug.Print 段落数: wdDoc.Paragraphs.Count Debug.Print 字段数: wdDoc.Fields.Count Debug.Print 表格数: wdDoc.Tables.Count If wdDoc.Tables.Count 0 Then Debug.Print 第1个表格行数: wdDoc.Tables(1).Rows.Count End If数字明显不对时就不要再 SaveAs 了直接wdDoc.Close SaveChanges:False退出避免把错误结果写进生产文档。最后还有一个实用技巧如果不关心 Word 的修订记录和未保存标记关闭前把wdDoc.Saved True置位可以强制跳过“是否保存更改”的弹窗但也意味着后续如果发现内容改错原文件的旧版本已经没了。所以这个技巧只放在验证逻辑最后一行使用前面无论如何都不要打开它。本文还有配套的精品资源点击获取