假如您的 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 代码，立即转换为脚注或尾注。