Document.AcceptAllRevisionsShown (Word)

Übernimmt alle auf dem Bildschirm angezeigten Überarbeitungen im angegebenen Dokument.

Verwenden Sie die RejectAllRevisions -Methode, um alle Überarbeitungen in einem angegebenen Dokument abzulehnen, die auf dem Bildschirm angezeigt werden.

Sub AcceptAllChanges() 
 Dim rev As Reviewer 
 With ActiveWindow.View 
 'Display all comments and revisions 
 .ShowRevisionsAndComments = True 
 .ShowFormatChanges = True 
 .ShowInsertionsAndDeletions = True 
 
 For Each rev In .Reviewers 
 rev.Visible = True 
 Next 
 
 'Hide only the revisions/comments made by the 
 'reviewer named "Jeff Smith" 
 .Reviewers(Index:="Jeff Smith").Visible = False 
 End With 
 
 'Accept all revisions displayed in the active view 
 ActiveDocument.AcceptAllRevisionsShown 
 
End Sub