Document.RejectAllRevisionsShown Method (Word)
Rejects all revisions in a document that are displayed on the screen.
expression Required. A variable that represents a Document object.
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