在撰写论文、技术文档或报告时，我们经常需要为表格添加题注（如“表1 数据统计”），并且要求题注格式统一：居中、黑体、小四号字、段前段后间距等。手动逐个修改不仅耗时，还容易出错。

本文将展示如何使用 VBA宏*实现 批量自动修改Word文档中所有表格题注的格式，并提供两种实现方式：

1. ✅ 方式一：直接应用已定义的样式
2. ✅ 方式二：手动设置字体、字号、加粗等格式

---

📂 使用步骤

1. 打开你的 Word 文档。
2. 按 Alt + F11 打开 VBA编辑器。
3. 在左侧项目栏中右键 Normal 或当前文档 → 插入 → 模块。
4. 将以下代码（方式一/方式二中代码实现部分）粘贴进去。
5. 直接按 F5 可运行代码，在执行脚本之前记得备份文档，以防不测。

---

✅ 方式一：应用已有样式（推荐）

推荐按照此方法使用。前提是你的文档中已经定义了一个名为 "表题注" 的样式。

代码实现

Sub UpdateTableCaptionStyle_UsingStyle()Dim tbl As TableDim para As ParagraphDim sText As String' 遍历文档中的每个表格For Each tbl In ActiveDocument.Tables' 获取表格前一段文本（通常是题注）Set para = tbl.Range.Paragraphs(1).Previous' 判断是否为题注（以“表”开头）If Not para Is Nothing ThensText = Trim(para.Range.Text)If InStr(sText, "表") = 1 Then' 应用预定义样式para.Style = ActiveDocument.Styles("表题注")End IfEnd IfNext tblMsgBox "所有表格题注样式已更新！", vbInformation
End Sub

说明

这段代码就是“自动把每个表格前一段文字，只要以‘表’开头，就统一设成样式‘表题注’”。

• InStr(sText, "表") = 1：判断段落是否以“表”字开头。
• 表格如果嵌套在别的表格里，或者前面不是段落而是分页符、分节符，.Previous 可能拿到奇怪的对象。
• 如果文档中没有名为 "表题注" 的样式，会报错。请先在 Word 中创建该样式！！！。为了避免报错，可以将应用样式那行代码进行特殊处理：

         ' 应用预定义样式On Error Resume Next ' 防止样式不存在时出错para.Style = ActiveDocument.Styles("表题注")On Error GoTo 0

• 若只想处理“带题注标签的题注”（Word 自动插入的 SEQ 域），可以检查 para.Range.Fields 是否有 wdFieldSequence 类型。

---

✅ 方式二：手动设置字体格式（无需预定义样式）

如果你不想提前定义样式，或者希望更灵活地控制格式，可以直接在代码中设置字体、字号、加粗等属性。

代码实现

Sub UpdateTableCaptionStyle_ManualFormat()Dim tbl As TableDim para As ParagraphDim rng As RangeDim sText As String' 遍历文档中所有表格For Each tbl In ActiveDocument.Tables' 获取表格前一段Set para = tbl.Range.Paragraphs(1).PreviousIf Not para Is Nothing ThensText = Trim(para.Range.Text)' 判断是否为表格题注If InStr(sText, "表") = 1 ThenSet rng = para.RangeWith rng' 设置字体格式.Font.NameFarEast = "黑体"      ' 中文字体.Font.Name = "Times New Roman"  ' 西文字体.Font.Size = 14                 ' 小四 ≈ 14pt.Font.Bold = True               ' 加粗.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 居中.ParagraphFormat.SpaceBefore = 12 ' 段前12磅.ParagraphFormat.SpaceAfter = 6  ' 段后6磅End WithEnd IfEnd IfNext tblMsgBox "所有表格题注格式已设置完成！", vbInformation
End Sub

这段代码就是“扫描所有表格，把紧邻的前一段只要以‘表’开头，就一次性设成：黑体+Times New Roman、14 磅、加粗、居中、段前 12 磅、段后 6 磅”。好处是立刻见效，坏处是以后想统一改格式就得再跑宏；而上一段“用样式”的办法则只需改样式即可全局生效。

参数说明

属性	值	说明
.Font.Size	14	小四字号 ≈ 14 磅
.Font.Bold	True	加粗
.Font.NameFarEast	"黑体"	中文显示字体
.ParagraphFormat.Alignment	wdAlignParagraphCenter	居中对齐
SpaceBefore/After	12, 6	段前/段后间距（单位：磅）

💡 小技巧： wdAlignParagraphCenter 是 Word 内置常量，代表居中对齐。你也可以使用数字 1 代替。

---

如何运行宏？

可以直接在VBA编辑器中运行宏，或者：

1. 关闭VBA编辑器，回到Word。
2. 按 Alt + F8，打开“宏”对话框。

3. 选择你要运行的宏：

   • UpdateTableCaptionStyle_UsingStyle（方式一）
   • UpdateTableCaptionStyle_ManualFormat（方式二）

4. 点击“运行”按钮。

✅ 运行成功后会弹出提示框。

---

补充建议

• 备份文档：运行宏前建议先备份原始文件。
• 样式优先：推荐使用方式一，便于后期统一修改和维护。

---

总结

两段宏都解决“批量处理 Word 表格题注格式”的问题，但采取了两种截然不同的思路。

对比维度	示例 1：样式法	示例 2：手动法
更新方式	仅把段落样式设为“表题注”，外观由样式集中控制	直接将字体、段落等属性硬写到段落，脱离样式
维护性	后期统一改一次样式即可全文自动更新	需重新跑宏或逐段修改，维护成本高
可移植性	文档必须已含“表题注”样式，否则报错	不依赖样式，任何文档都能直接运行
粒度控制	只能套用样式，细节需预先在样式中设置	可精确调整字号、段前后间距等所有细节

示例 1 追求“长期、统一、易维护”，而示例 2 追求“立刻见效、零依赖”。