如何在Microsoft Word中將註釋轉換為腳註或尾註？

假設您的Word文檔中有多個註釋，如何將所有這些註釋同時轉換為腳註或尾註？本文提供了VBA方法來實現它。

使用VBA代碼將註釋轉換為腳註或尾註

下面的VBA代碼可以幫助您快速將當前文檔中的所有註釋轉換為腳註或尾註。請執行以下操作。

1.打開包含要轉換為腳註或尾註的註釋的文檔，然後按其他 + 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代碼，當前文檔中的所有註釋將立即轉換為腳註或尾註。