NextRevision Method

Applies To

Selection object.

Description

Locates and returns the next tracked change as a Revision object.

Syntax

expression.NextRevision(Wrap)

expression Required. An expression that returns a Selection object.

Wrap Optional Variant. True to continue searching for a revision at the beginning of the document when the end of the document is reached. The default value is False.

See Also

Next property, PreviousRevision method.

Example

This example rejects the next tracked change found after the fifth paragraph in the active document. The myRev variable is set to Nothing if a change is not found.

If ActiveDocument.Paragraphs.Count >= 5 Then
    Set myRange = ActiveDocument.Paragraphs(5).Range
    myRange.Select
    Set myRev = Selection.NextRevision
    If Not (myRev Is Nothing) Then myRev.Reject
End If

This example accepts the next tracked change found if the change type is inserted text.

Set myRev = Selection.NextRevision(Wrap:=True)
If Not (myRev Is Nothing) Then
    If myRev.Type = wdRevisionInsert Then myRev.Accept
End If