在撰寫論文、技術文檔或報告時，我們經常需要為表格添加題注（如“表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 追求“立刻見效、零依賴”。