MoveEndUntil Method
Applies To
Range object, Selection object.
Description
Moves the end position of the specified range or selection until any of the specified characters are found in the document. If the movement is forward in the document, the range or selection is expanded.
Remarks
This method returns the number of characters by which the end position of the specified range or selection was moved, as a Long value. If Count is greater than 0 (zero), this method returns the number of characters moved plus 1. If Count is less than 0 (zero), this method returns the number of characters moved minus 1. If no Cset characters are found, the range or selection isn't changed and the method returns 0 (zero). If the end position is moved backward to a point that precedes the original start position, the start position is set to the new ending position.
Syntax
expression.MoveEndUntil(Cset, Count)
expression Required. An expression that returns a Range or Selection object.
Cset Required Variant. One or more characters. This argument is case sensitive.
Count Optional Variant. The maximum number of characters by which the specified range or selection is to be moved. Can be a number or either the wdForward or wdBackward constant. If Count is a positive number, the range or selection is moved forward in the document. If it's a negative number, the range or selection is moved backward. The default value is wdForward.
See Also
Extend method, MoveEnd method, MoveEndWhile method, MoveUntil method.
Example
This example extends the selection forward in the document until the letter "a" is found. The example then expands the selection by one character to include the letter "a."
With Selection
.MoveEndUntil Cset:="a", Count:=wdForward
.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End With
This example extends the selection forward in the document until a tab is found. If a tab character isn't found in the next 100 characters, the selection isn't moved.
char = Selection.MoveEndUntil(Cset:=vbTab, Count:=100)
If char = 0 Then StatusBar = "Selection not moved"