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 
 .Select 
 End With 
End If

Arguments

Optional arguments

The following arguments are optional

Unit (WdUnits) - The unit by which to move the ending character position.

Here you can find possible values for WdUnits

Count (Long) - 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.