Метод Selection.MoveEndUntil (Word)

Перемещает конечную позицию указанного выделенного фрагмента до тех пор, пока в документе не будут найдены какие-либо из указанных символов.

Синтаксис

выражение. MoveEndUntil( _Cset_ , _Count_ )

выражение (обязательно). Переменная, представляющая объект Selection .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Cset	Обязательный	Variant	Один или несколько символов. Этот аргумент учитывает регистр.
Count	Необязательный	Variant	Максимальное количество символов, на которое будет перемещен указанный выделенный фрагмент. Может быть числом или wdForward или wdBackward. Если count является положительным числом, выделение перемещается вперед в документе. Если это отрицательное число, выделение перемещается назад. Значение по умолчанию — wdForward.

Возвращаемое значение

Long

Замечания

Этот метод возвращает значение Long , представляющее количество символов, на которые была перемещена конечная позиция указанного выделенного фрагмента. Если значение Count больше 0 (ноль), этот метод возвращает количество перемещенных символов плюс 1. Если значение Count меньше 0 (ноль), этот метод возвращает количество перемещенных символов минус 1. Если символы Cset не найдены, выделение не изменяется и метод возвращает значение 0 (ноль). Если конечная позиция перемещается назад в точку, которая предшествует исходной начальной позиции, начальная позиция устанавливается в новую конечную позицию.

Если в документе выполняется движение вперед, выделение разворачивается.

Пример

В этом примере выделение в документе расширяется до тех пор, пока не будет найдена буква "a". Затем в примере выделенная область расширяется на один символ, чтобы включить букву "a".

With Selection 
 .MoveEndUntil Cset:="a", Count:=wdForward 
 .MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend 
End With

В этом примере выделение в документе расширяется до тех пор, пока не будет найдена вкладка. Если символ табуляции не найден в следующих 100 символах, выделение не перемещается.

char = Selection.MoveEndUntil(Cset:=vbTab, Count:=100) 
If char = 0 Then StatusBar = "Selection not moved"

См. также

Объект selection

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.