Freigeben über

Document.RejectAllRevisionsShown-Methode (Word)

  • Artikel

Lehnt alle auf dem Bildschirm angezeigten Korrekturen eines Dokuments ab.

Syntax

expression. RejectAllRevisionsShown

Ausdruck erforderlich. Eine Variable, die ein Document-Objekt darstellt.

Beispiel

In diesem Beispiel werden alle Korrekturen von Jeff Smith ausgeblendet und alle anderen angezeigten Korrekturen abgelehnt.

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

Siehe auch

Document-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.