Auf Englisch lesen

Freigeben über


Revisions-Objekt (Word)

Eine Auflistung von Revision-Objekten , die die änderungen darstellen, die in einem Bereich oder Dokument mit Revisionsmarkierungen markiert sind.

Hinweise

Mit der Revisions-Eigenschaft können Sie die Revisions-Auflistung zurückgeben. Im folgenden Codebeispiel wird die Anzahl der Überarbeitungen im Haupttextartikel angezeigt.

MsgBox ActiveDocument.Revisions.Count

Im folgenden Codebeispiel werden alle Überarbeitungen in der Auswahl angenommen.

For Each myRev In Selection.Range.Revisions 
 myRev.Accept 
Next myRev

Im folgenden Codebeispiel werden alle Revisionen im ersten Absatz der Auswahl akzeptiert.

Set myRange = Selection.Paragraphs(1).Range 
myRange.Revisions.AcceptAll

Die Add-Methode ist für die Revisions-Auflistung nicht verfügbar. Revision-Objekte werden hinzugefügt, wenn Nachverfolgen von Änderungen aktiviert ist. Legen Sie die TrackRevisions-Eigenschaft auf True fest, um Überarbeitungen zu verfolgen, die am Dokumenttext vorgenommen wurden. Im folgenden Codebeispiel wird das Nachverfolgen von Änderungen im aktiven Dokument aktiviert und anschließend vor die Auswahl "The" eingefügt.

ActiveDocument.TrackRevisions = True 
Selection.InsertBefore "The "

Verwenden Sie Revisions (Index), wobei Index die Indexnummer ist, um ein einzelnes Revision-Objekt zurückzugeben. Die Indexnummer stellt die Position der Revision im Bereich oder Dokument dar. Im folgenden Codebeispiel wird der Name des Autors für die erste Revision im ersten Abschnitt angezeigt.

MsgBox ActiveDocument.Sections(1).Range.Revisions(1).Author

Die Count-Eigenschaft gibt für diese Auflistung in einem Dokument nur die Anzahl der Elemente im Hauptartikel zurück. Verwenden Sie zum Zählen der Elemente in anderen Artikeln die Auflistung mit dem Range-Objekt.

Methoden

Eigenschaften

Siehe auch

Referenz zum Word-Objektmodell

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.