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.

MoveWhile (Cset, Count)

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.