如何將 Word 中的註解轉換為腳註或尾註？

假設您的 Word 文件中包含多則註解，該如何一次性將它們全部轉換為腳註或尾註？本文將透過 VBA 方法，協助您輕鬆達成此目標。

使用 VBA 程式碼將註解轉換為腳註或尾註

---

使用 VBA 程式碼將註解轉換為腳註或尾註

下列 VBA 程式碼可協助您快速將目前文件中的所有註解轉換為腳註或尾註。請依照以下步驟操作：

1. 開啟包含欲轉換為腳註或尾註之註解的文件，按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，點選插入＞ 模組，然後將下方的 VBA 程式碼複製到模組視窗中。

VBA 程式碼：將註解轉換為腳註：

Sub ConvertCommentsToFootnotes()
    Dim xComm As Comment
    Dim xCommRange As Range
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    For Each xComm In xDoc.Comments
        Set xCommRange = xComm.Range
        xDoc.Footnotes.Add xComm.Scope, , xCommRange.Text
        xComm.Delete
    Next
    Application.ScreenUpdating = True
End Sub

VBA 程式碼：將註解轉換為尾註：

Sub ConvertCommentsToEndnotes()
    Dim xComm As Comment
    Dim xCommRange As Range
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    For Each xComm In xDoc.Comments
        Set xCommRange = xComm.Range
        xDoc.Endnotes.Add xComm.Scope, , xCommRange.Text
        xComm.Delete
    Next
    Application.ScreenUpdating = True
End Sub

3. 按下 F5 鍵，立即執行程式碼！

接著，您套用的 VBA 程式碼會立即將目前文件中的所有註解轉換為腳註或尾註。

---

相關文章：

• 如何在 Word 文件的尾註後新增頁面或文字？
• 如何選取 Word 文件中的所有腳註？