Selection.PreviousRevision-Methode (Word)
Sucht die vorherige Überarbeitung und gibt sie als Revision-Objekt zurück.
Syntax
Ausdruck. PreviousRevision( _Wrap_ )
Ausdruck: Erforderlich. Eine Variable, die ein Selection-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Wrap | Optional | Variant | True, wenn die Suche nach einer Korrektur am Ende des Dokuments fortgesetzt werden soll, nachdem der Anfang des Dokuments erreicht wurde. Der Standardwert ist False. |
Rückgabewert
Revision
Beispiel
In diesem Beispiel wird die letzte Überarbeitung im ersten Abschnitt des aktiven Dokuments markiert, und das Datum sowie die Uhrzeit der Überarbeitung werden angezeigt.
Selection.EndOf Unit:=wdStory, Extend:=wdMove
Set myRev = Selection.PreviousRevision
If Not (myRev Is Nothing) Then MsgBox myRev.Date
In diesem Beispiel wird die vorherige gefundene Überarbeitung abgelehnt, wenn die Art der Überarbeitung gelöschter oder eingefügter Text ist. Ist die Überarbeitung ein Wechsel der Formatvorlage, wird die Überarbeitung angenommen.
Set myRev = Selection.PreviousRevision(Wrap:=True)
If Not (myRev Is Nothing) Then
Select Case myRev.Type
Case wdRevisionDelete
myRev.Reject
Case wdRevisionInsert
myRev.Reject
Case wdRevisionStyle
myRev.Accept
End Select
End If
Siehe auch
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.