Range.MoveEnd procedure builder

Range.MoveEnd (Word)

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.

MoveEnd (Unit, Count)

If ActiveDocument.Words.Count >= 3 Then 
 Set myRange = ActiveDocument.Words(2) 
 With myRange 
 .MoveEnd Unit:=wdWord, Count:=1 
 End With 
End If


Optional arguments

The following arguments are optional

Unit - The unit by which to move the ending character position

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