Collapse the table of content
Expand the table of content
Expand Minimize

Selection.MoveEndUntil Method (Word)

Office 2013 and later
GitHub-Mark-64px

Contribute to this content

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation.

Moves the end position of the specified selection until any of the specified characters are found in the document.

expression .MoveEndUntil(Cset, Count)

expression Required. A variable that represents a Selection object.

Parameters

Name

Required/Optional

Data Type

Description

Cset

Required

Variant

One or more characters. This argument is case sensitive.

Count

Optional

Variant

The maximum number of characters by which the specified selection is to be moved. Can be a number or either wdForward or wdBackward. If Count is a positive number, the selection is moved forward in the document. If it is a negative number, the selection is moved backward. The default value is wdForward.

Return Value

Long

This method returns a Long that represents the number of characters by which the end position of the specified selection was moved. 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 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.

If the movement is forward in the document, the selection is expanded.

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"
Show:
© 2016 Microsoft