通过

Document.DeleteAllCommentsShown 方法 (Word)

  • 项目

删除显示在屏幕上的指定文档的所有修订。

重要

DeleteAllCommentsShown 删除注释的可见子集。 这包括) 显示的活动批注 (，以及注释提示) 指示 (已解决的批注。

语法

expression. DeleteAllCommentsShown

表达式是必需的。 一个代表 Document 对象的变量。

示例

本示例隐藏“Jeff Smith”所做的所有备注，并删除显示的其他备注。

Sub HideDeleteComments() 
 Dim rev As Reviewer 
 With ActiveWindow.View 
 'Display all comments and revisions 
 .ShowRevisionsAndComments = True 
 .ShowFormatChanges = True 
 .ShowInsertionsAndDeletions = True 
 
 For Each rev In .Reviewers 
 rev.Visible = True 
 Next 
 
 'Hide only the revisions/comments made by the 
 'reviewer named "Jeff Smith" 
 .Reviewers(Index:="Jeff Smith").Visible = False 
 End With 
 
 'Delete all comments displayed in the active view 
 ActiveDocument.DeleteAllCommentsShown 
End Sub

另请参阅

Document 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。