Range.MoveWhile (Word)
Mueve el intervalo especificado mientras se encuentre en el documento alguno de los caracteres especificados.
Mientras se encuentre cualquier carácter de Cset, se moverá el intervalo especificado.
Dim aRange As Range
Set aRange = ActiveDocument.Characters(1)
aRange.MoveWhile Cset:="atiATI", Count:=wdForward
Arguments
Un argumento con nombre
Cset (String) - Uno o más caracteres.
Optional arguments
Los siguientes argumentos son opcionales
Count (Long) - El número máximo de caracteres que se va a mover el intervalo especificado.