Compartilhar via


Document.RejectAllRevisionsShown Method

Word Developer Reference

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

Syntax

expression.RejectAllRevisionsShown

expression   Required. A variable that represents a Document object.

Example

This example hides revisions made by Jeff Smith and rejects all remaining revisions that are displayed.

Visual Basic for Applications
  Sub RejectAllChanges()
    Dim rev As Reviewer
    With ActiveWindow.View
        'Show all revisions in the document
        .ShowRevisionsAndComments = True
        .ShowFormatChanges = True
        .ShowInsertionsAndDeletions = True
    For Each rev In .Reviewers
        rev.Visible = True
    Next

    'Hide revisions made by "Jeff Smith"
    .Reviewers(Index:="Jeff Smith").Visible = False
End With

'Reject all revisions displayed in the active view
ActiveDocument.<strong class="bterm">RejectAllRevisionsShown</strong>

End Sub

See Also