Range.MoveEndUntil (Word)

Move a posição final do intervalo especificado até um dos caracteres especificados ser localizado no documento. Se o movimento for para frente no documento, o intervalo será expandido.

Esse método retorna o número de caracteres pelos quais a posição final do intervalo especificado foi movida, como um valor Long . Se Count for maior do que 0 (zero), esse método retorna o número de caracteres movidos mais 1. Se Count for menor que 0 (zero), esse método retorna o número de caracteres movidos menos 1. Se nenhum caractere Cset forem encontrada, o intervalo não for alterado e o método retornará 0 (zero). Se a posição final for movida para trás até um ponto que precede a posição inicial original, a posição inicial é definida para a nova posição final.

MoveEndUntil (Cset, Count)

With Selection.Range 
 .MoveEndUntil Cset:="a", Count:=wdForward 
 .MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend 
End With

Arguments

O seguinte argumento é necessário

Cset (Characters) - Um ou mais caracteres. Esse argumento diferencia maiúsculas de minúsculas.

Optional arguments

The following argument is optional

Count (Long) - O número máximo de caracteres pelo qual o intervalo especificado deve ser movido. Pode ser um número ou o wdForward ou wdBackward constante. Se Count for um número positivo, o intervalo será movido para frente no documento. Se for um número negativo, o intervalo é movido para trás. O valor padrão é wdForward.