Moves the ending character position of a range.
This method returns an integer that indicates the number of units the range actually moved, or it returns 0 (zero) if the move was unsuccessful.
If ActiveDocument.Words.Count >= 3 Then Set myRange = ActiveDocument.Words(2) With myRange .MoveEnd Unit:=wdWord, Count:=1 .Select End With End If
The following arguments are optional
Count - The number of units to move. If this number is positive, the ending character position is moved forward in the document. If this number is negative, the end is moved backward. If the ending position overtakes the starting position, the range collapses and both character positions move together. The default value is 1