如何删除 Word 中的注释栏

在 Word 中添加注释是很有用的功能。但有时候，我们可能需要将文档中的注释删除掉。本文将介绍如何删除 Word 中的注释栏。

方法一：手动删除注释

手动删除注释是最简单的方法。请按照以下步骤操作：

1. 在 Word 中打开包含注释的文档。

2. 单击鼠标右键，选择“删除注释”。

3. 在弹出的对话框中选择“全部删除”，然后单击“确定”按钮。

请注意，手动删除注释可能比较耗时，特别是对于大型文档或有很多注释的文档。

方法二：使用宏自动删除注释

如果您需要频繁地删除 Word 文档中的注释，可以使用宏实现自动删除。下面是如何编写一个简单的宏来删除注释。

1. 打开 Word，按下“Alt + F11”组合键打开 Visual Basic 编辑器。

2. 在 Visual Basic 编辑器窗口中，单击“插入”菜单，然后选择“模块”。

3. 在新模块窗口中，复制以下代码：

Sub RemoveComments()
    Dim oCmt As Comment
    
    For Each oCmt In ActiveDocument.Comments
        oCmt.Range.Delete
    Next oCmt
    
    ActiveDocument.DeleteAllComments
    
    MsgBox "All comments have been removed."
End Sub

4. 单击菜单中的“文件”，选择“保存”，并将模块命名为“RemoveComments”。

5. 关闭 Visual Basic 编辑器，在 Word 中打开要删除注释的文档。

6. 按下“Alt + F8”组合键打开宏对话框。

7. 选择“RemoveComments”，然后单击“运行”。

在宏运行后，所有的注释栏将自动被删除。

方法三：使用 VBA 自动删除注释

在方法二中，我们使用了一个简单的宏来自动删除注释。现在我们将使用 VBA 编写更为灵活的宏。

1. 在 Word 中打开要删除注释的文档。

2. 按下“Alt + F11”组合键打开 Visual Basic 编辑器。

3. 在 Visual Basic 编辑器窗口中，单击“插入”菜单，然后选择“模块”。

4. 在新模块窗口中，复制以下 VBA 代码：

Sub RemoveComments()
    Dim oCmt As Comment
    Dim oRngStart As Range
    Dim oRngEnd As Range
    Dim oRngTarget As Range
    
    For Each oCmt In ActiveDocument.Comments
        Set oRngStart = oCmt.Range.Start
        Set oRngEnd = oCmt.Scope.End
        Set oRngTarget = ActiveDocument.Range(Start:=oRngStart, End:=oRngEnd)
        oRngTarget.Delete
    Next oCmt
    
    ActiveDocument.DeleteAllComments
    
    MsgBox "All comments have been removed."
End Sub

5. 单击菜单中的“文件”，选择“保存”，并将模块命名为“RemoveComments”。

6. 关闭 Visual Basic 编辑器，在 Word 中打开要删除注释的文档。

7. 按下“Alt + F8”组合键打开宏对话框。

8. 选择“RemoveComments”，然后单击“运行”。

宏运行后，所有的注释栏将被自动删除。与方法二不同的是，本方法仅删除注释栏的内容，而不删除注释的标记。

总结

本文介绍了三种方法来删除 Word 中的注释栏。手动删除注释可能比较耗时，而使用宏或 VBA 代码可以实现自动删除，提高工作效率。我们希望这篇文章能够帮助到您。