Compartilhar via

Document.DeleteAllCommentsShown Method

  • Artigo
Word Developer Reference

Deletes all revisions in a specified document that are displayed on the screen.

Syntax

expression.DeleteAllCommentsShown

expression   Required. A variable that represents a Document object.

Example

This example hides all comments made by "Jeff Smith" and deletes all other displayed comments.

Visual Basic for Applications 
  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.<strong class="bterm">DeleteAllCommentsShown</strong>



End Sub

See Also