Range.Next (Word)
Retorna um objeto Range que representa a unidade especificada em relação ao intervalo especificado.
Se o intervalo estiver exatamente antes da Unit especificada, o intervalo é movido para a unidade seguinte. Por exemplo, se o intervalo estiver exatamente antes de uma palavra, a instrução seguinte moverá o texto selecionado para frente até a palavra seguinte.
Selection.Range.Next(Unit:=wdWord, Count:=1).Select
Arguments
Optional arguments
Os seguintes argumentos são opcionais
Unit (WdUnits) - O tipo de unidades pelas quais contar. Pode ser qualquer constante WdUnits .
Aqui você pode encontrar os valores possíveis para
Count (Long) - O número de unidades que você quer se mover para frente. O valor padrão é um.