Range.MoveWhile (Word)

Moves the specified range while any of the specified characters are found in the document.

While any character in Cset is found, the specified range is moved. The resulting Range object is positioned as an insertion point after whatever Cset characters were found. This method returns the number of characters by which the specified range was moved, as a Long value. If no Cset characters are found, the range isn't changed and the method returns 0 (zero).

MoveWhile (Cset, Count)

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

Arguments

The following argument is required

Cset (String) - One or more characters. This argument is case-sensitive.

Optional arguments

The following argument is optional

Count (Long) - The maximum number of characters by which the specified range is to be moved. Can be a number or either the wdForward or wdBackward constant. If Count is a positive number, the specified range is moved forward in the document, beginning at the end position. If it is a negative number, the range is moved backward, beginning at the start position. The default value is wdForward.