Selection.NextRevision-Methode (Word)

Sucht die nächste Überarbeitung und gibt sie als Revision-Objekt zurück.

Syntax

Ausdruck. NextRevision( _Wrap_ )

expression 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 Anfang des Dokuments fortgesetzt werden soll, nachdem das Ende des Dokuments erreicht wurde. Der Standardwert ist False.

Rückgabewert

Revision

Bemerkungen

Der geänderte Text entspricht dann der aktuellen Markierung. Verwenden Sie die Eigenschaften des resultierenden Revision-Objekts, um zu ermitteln, um welche Art von Änderung es sich handelt, von welcher Person sie vorgenommen wurde usw. Verwenden Sie die Methoden des Revision-Objekts, um die Überarbeitungen anzunehmen oder abzulehnen.

Wenn keine Überarbeitungen vorhanden sind, wird die aktuelle Markierung nicht geändert.

Beispiel

In diesem Beispiel wird die nächste Überarbeitung, die nach dem fünften Absatz im aktiven Dokument gefunden wird, abgelehnt. Die revTempVariable wird auf Nothing festgelegt, wenn keine Änderung gefunden wird.

Dim rngTemp as Range 
Dim revTemp as Revision 
 
If ActiveDocument.Paragraphs.Count >= 5 Then 
 Set rngTemp = ActiveDocument.Paragraphs(5).Range 
 rngTemp.Select 
 Set revTemp = Selection.NextRevision(Wrap:=False) 
 If Not (revTemp Is Nothing) Then revTemp.Reject 
End If

In diesem Beispiel wird die nächste gefundene Überarbeitung angenommen, wenn die Art der Überarbeitung eingefügter Text ist.

Dim revTemp as Revision 
 
Set revTemp = Selection.NextRevision(Wrap:=True) 
If Not (revTemp Is Nothing) Then 
 If revTemp.Type = wdRevisionInsert Then revTemp.Accept 
End If

In diesem Beispiel wird die nächste vom Autor des Dokuments vorgenommene Überarbeitung nach der aktuellen Markierung gefunden.

Dim revTemp as Revision 
Dim strAuthor as String 
 
strAuthor = ActiveDocument.BuiltInDocumentProperties(wdPropertyAuthor) 
 
Do While True 
 Set revTemp = Selection.NextRevision(Wrap:=False) 
 If Not (revTemp Is Nothing) Then 
 If revTemp.Author = strAuthor Then 
 MsgBox Prompt:="Another revision by " & strAuthor & "!" 
 Exit Do 
 End If 
 Else 
 MsgBox Prompt:="No more revisions!" 
 Exit Do 
 End If 
Loop

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.