Klasse Revision (Word VBA)

Die Klasse Revision stellt eine Änderung dar, die mit einer Überarbeitungsmarkierung gekennzeichnet ist.

Set

Um eine Revision -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim rvs as Revision
Set rvs = ActiveDocument.Range.Revisions(Index:=1)

Die folgenden Prozeduren können zum Festlegen der Revision Klassenvariablen verwendet werden : Revisions.Item, Selection.NextRevision, Selection.PreviousRevision, Document.Revisions und Range.Revisions

For Each

Hier ist ein Beispiel für die Verarbeitung der Revision -Elemente in einer Sammlung

Dim rvs As Revision
For Each rvs In ActiveDocument.Range.Revisions
	
Next rvs

Themas

Die folgenden Prozeduren in dieser Klasse wurden zusammengefasst und auf eine separate Themenseite beschrieben

Format with its procedures FormatDescription und Style

Eigenschaften

Author Gibt den Namen des Benutzers zurück, von dem die angegebene Überarbeitung vorgenommen wurde.

Dim strAuthor As String
strAuthor = ActiveDocument.Range.Revisions(1).Author

Cells Gibt eine Cells -Auflistung zurück, die die Tabellenzellen darstellt, die mit Überarbeitungsmarkierungen markiert wurden.

Dim cllsCells As Cells
Set cllsCells = ActiveDocument.Range.Revisions(1).Cells

Date Das Datum und die Uhrzeit der Überarbeitung.

Dim dtToday As Date
dtToday = ActiveDocument.Range.Revisions(1).Date

Index Gibt einen Wert vom Typ Long zurück, der die Position eines Elements in einer Auflistung darstellt.

Dim lngIndex As Long
lngIndex = ActiveDocument.Range.Revisions(1).Index

MovedRange Gibt ein Range -Objekt zurück, das einen Textbereich darstellt, der in einem Dokument mit nachverfolgten Änderungen von einer Stelle an eine andere verschoben wurde.

Dim rngMovedRange As Range
Set rngMovedRange = ActiveDocument.Range.Revisions(1).MovedRange

Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen Revision-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Revisions(1).Parent

Range Gibt ein Range -Objekt zurück, das den Teil eines Dokuments darstellt, der in einer Überarbeitungsmarkierung enthalten ist.

Dim rngRange As Range
Set rngRange = ActiveDocument.Range.Revisions(1).Range

Type Gibt den Typ der Überarbeitung zurück.

Dim wrtType As WdRevisionType
wrtType = ActiveDocument.Range.Revisions(1).Type

Revisions.Count Gibt einen Wert vom Typ Long zurück, der die Anzahl der Überarbeitungen in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveDocument.Range.Revisions.Count

Revisions.Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen Revisions-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Revisions.Parent