Document.RejectAllRevisionsShown (Word)
Rechaza todas las revisiones de un documento que aparecen en pantalla.
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