Range.MoveUntil (Word)
Moves the specified range until one of the specified characters is found in the document.
This method returns the number of characters by which the specified range was moved, as a Long value. If Count is greater than 0 (zero), this method returns the number of characters moved plus one. If Count is less than 0 (zero), this method returns the number of characters moved minus one. If no Cset characters are found, the range isn't not changed and the method returns 0 (zero).
Set myRange = ActiveDocument.Words(1)
myRange.MoveUntil Cset:="t", Count:=100
Arguments
The following argument is required
Cset (String) - One or more characters. If any character in Cset is found before the Count value expires, the specified range is positioned as an insertion point immediately before that character. 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 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.