Range.MoveWhile (Word)

Move o intervalo especificado enquanto um dos caracteres especificados é localizado no documento.

Enquanto qualquer caractere de Cset for localizado, o intervalo especificado é movido. O objeto Range resultante é posicionado como um ponto de inserção depois de qualquer caractere Cset encontrado. Esse método retorna o número de caracteres pelos quais o intervalo especificado foi movido, como um valor Long. Se nenhum caractere Cset forem encontrada, o intervalo não for alterado e o método retornará 0 (zero).

MoveWhile (Cset, Count)

Dim aRange As Range 
Set aRange = ActiveDocument.Characters(1) 
aRange.MoveWhile Cset:="atiATI", Count:=wdForward

Arguments

O seguinte argumento é necessário

Cset (String) - 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 especificado será movido para frente no documento, começando à meia a 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.