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