RejectAllRevisionsShown Method

expression.RejectAllRevisionsShown

expression    Required. An expression that returns a Document object.

Example

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

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.RejectAllRevisionsShown
End Sub