Revisions-Objekt (Word)
Eine Auflistung von Revision-Objekten , die die änderungen darstellen, die in einem Bereich oder Dokument mit Revisionsmarkierungen markiert sind.
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.
Name |
---|
Application |
Count |
Creator |
Parent |
Referenz zum Word-Objektmodell
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.