Range.MoveEnd (Word)

Move a posição de caractere final de um intervalo.

Este método retorna um inteiro indicando o número de unidades pelas quais o intervalo realmente se moveu ou retorna 0 (zero) se a movimentação não tiver êxito.

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

Os seguintes argumentos são opcionais

Unit (WdUnits) - A unidade pela qual mover a posição do caractere final.

Aqui você pode encontrar os valores possíveis para WdUnits

Count (Long) - O número de unidades pelo qual mover. Se esse número for positivo, a posição de caractere final será movida para frente no documento. Se esse número for negativo, o final será movido para trás. Se a posição final ultrapassar a posição inicial, o intervalo será recolhido e ambas as posições de caractere serão movidas juntas. O valor padrão é 1.