Метод Selection.MoveEndUntil (Word)

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

Синтаксис

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

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

Параметры

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

См. также

Объект выделения

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

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