Selection.PreviousRevision-Methode (Word)

  • Artikel

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

Selection-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.