Document.RejectAllRevisionsShown method (Word)
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.
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
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Feedback
https://aka.ms/ContentUserFeedback.
Kommer snart: Under hela 2024 kommer vi att fasa ut GitHub-problem som feedbackmekanism för innehåll och ersätta det med ett nytt feedbacksystem. Mer information finns i:Skicka och visa feedback för