Range.MoveEnd (Word)

Mueve la posición del carácter final de un intervalo.

Este método devuelve un número entero que indica el número de unidades que se ha movido realmente el intervalo, o bien devuelve un valor 0 (cero) si el movimiento no se ha realizado correctamente.

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

Los siguientes argumentos son opcionales

Unit (WdUnits) - Unidad que se va a utilizar para mover la posición del carácter final.

Aquí puede ver valores posibles para WdUnits

Count (Long) - Número de unidades que van a moverse.