删除显示在屏幕上的指定文档的所有修订。
expression.DeleteAllCommentsShown
expression 必需。该表达式返回一个 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