如何在 Word 文件中一次性將所有「標題 1」樣式改為「標題 2」？

作者Siluvia修改日期2025-11-05

處理包含多種樣式（例如標題、副標題、標題 1、標題 2 等）的 Word 文件時，您可能需要重新組織文件結構，以提升清晰度與一致性。舉例來說，假設您的文件中某些章節使用「標題 1」樣式，但審閱後發現這些章節其實更適合統一改用「標題 2」樣式。若手動逐一修改每個標題，在長篇文件中（尤其是包含數十甚至上百個標題時）將極為耗時。本文將介紹幾種實用方法，協助您在 Word 中高效地將所有「標題 1」一次批次變更為「標題 2」樣式。

一次變更所有標題 1 為標題 2

VBA 程式碼－批次將全文的標題 1 轉換為標題 2

一次變更所有標題 1 為標題 2

以下方法運用 Word 內建的「樣式」窗格，只需單一操作即可將文件中所有「標題 1」樣式一鍵變更為「標題 2」。此方式適合偏好視覺化操作，並希望在執行過程中即時確認變更內容的使用者。

1. 將游標置於文件中任一採用「標題 1」樣式的段落內，然後前往開始索引標籤，並點擊樣式群組中的對話方塊啟動器，即可啟用該樣式。這會開啟「樣式」窗格，列出文件目前使用的所有樣式！

2. 在右側出現的樣式窗格中，找到 標題 1 樣式，對其按一下滑鼠右鍵，並從出現的選單中選擇全選。此動作將自動選取文件中所有「標題 1」段落，特別適合大型文件——無需逐一搜尋與手動選取每個標題，大幅提升效率！

樣式窗格中的「全選」選項

3. 選取所有「標題 1」文字後，只需在 標題 2 樣式窗格中點擊即可，所有已選取的標題將立即從「標題 1」變更為「標題 2」。此批次作業不僅節省時間，更能確保文件格式的一致性！

所有選取的標題1均已變更為標題2

提示與注意事項：開始前，請務必確認所有欲轉換的文字已正確套用「標題 1」樣式。部分手動設定格式的文字（例如僅手動加粗並放大字體，卻未套用「標題 1」樣式）將不會被轉換。若您的文件中大量標題採用手動格式，建議先統一改為「標題 1」樣式，以確保轉換順利進行。轉換完成後，請仔細檢查結果，確認僅有預期的文字被變更。如不慎選取非目標文字，可立即使用復原功能（Ctrl + Z）回復變更，調整範圍後再重新執行。

此方法操作簡單，無需進階技術能力，非常適合一般使用者處理中等規模的文件。

VBA 程式碼－批次將全文的標題 1 轉換為標題 2

針對更進階的情境（例如處理大型或高度複雜的文件），VBA 巨集提供了一種自動化且高效的方式，能一次將所有「標題 1」樣式的段落變更為「標題 2」。若您需要重複執行此任務，或快速處理多份文件，這項解決方案尤其實用。

適用情境：當文件包含多層級標題、篇幅過長不便手動編輯，或全文散佈多處「標題 1」且需確保完整涵蓋所有實例時，建議採用此方法。VBA 可透過程式化方式快速執行轉換，有效降低人為疏失風險。

限制條件：VBA 可能需在 Word 中啟用巨集安全性設定，且直接編輯巨集不建議不熟悉腳本的使用者操作。執行巨集前，務必備份文件，以防資料意外遺失！

1. 開啟您的 Word 文件。執行巨集前無需選取任何文字——巨集將自動處理整份文件！

2. 按下 Alt+F11 鍵，開啟 Microsoft Visual Basic for Applications 視窗；接著點擊插入> 模組，建立新模組，並將下列 VBA 程式碼複製貼上至該模組中。

VBA 程式碼：將文件中所有標題 1 段落變更為標題 2

Sub ChangeHeading1toHeading2()
    Dim para As Paragraph
    Dim countChanged As Long
    Dim xTitleId As String
    On Error Resume Next

    xTitleId = "Kutools for Word"
    countChanged = 0

    For Each para In ActiveDocument.Paragraphs
        ' Built-in style names include a space: "Heading 1"
        If para.Style = ActiveDocument.Styles("Heading 1") Then
            para.Style = ActiveDocument.Styles("Heading 2")
            countChanged = countChanged + 1
        End If
    Next para

    MsgBox countChanged & " Heading 1 paragraphs changed to Heading 2.", _
           vbInformation, xTitleId
End Sub

3. 關閉 VBA 編輯器，返回 Word 視窗後，按下 Alt+F8 以開啟巨集清單，選取 ChangeHeading 1toHeading 2，然後點擊執行。巨集將自動掃描整份文件，並將所有套用「標題 1」樣式的段落更新為「標題 2」。完成後，系統會彈出對話方塊，顯示總共變更了多少個標題。

提示：執行巨集前，請務必先儲存文件，以便必要時能立即復原操作！此巨集僅會變更完全符合「標題 1」樣式的段落—自訂名稱或已修改的樣式將不受影響。若您使用了自訂樣式名稱，請記得同步調整程式碼。若執行時出現錯誤或未產生任何變更，請確認您的標題是否已正確套用樣式。萬一結果不如預期，隨時按下 Ctrl + Z 即可輕鬆復原巨集操作！

此 VBA 方法在批次處理上極具成效，非常適合執行大規模或重複性的格式設定任務。