Range.MoveUntil (Word)
Move o intervalo especificado até um dos caracteres especificados ser localizado no documento.
Esse método retorna o número de caracteres pelo qual o intervalo especificado foi movido, como um valor Long . Se Count for maior do que 0 (zero), esse método retorna o número de caracteres movidos mais um. Se Count for menor que 0 (zero), esse método retorna o número de caracteres movidos menos um. Se nenhum caractere de Cset for localizado, o intervalo não será alterado e o método retornará 0 (zero).
Set myRange = ActiveDocument.Words(1)
myRange.MoveUntil Cset:="t", Count:=100
Arguments
O seguinte argumento é necessário
Cset (String) - Um ou mais caracteres. Se algum caractere de Cset for localizado antes de o valor Count expirar, o intervalo especificado será posicionado como um ponto de inserção imediatamente antes desse caractere. 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, começando na posição final. Se for um número negativo, o intervalo é movido para trás, começando à meia a posição inicial. O valor padrão é wdForward.