Метод Selection.MoveEndUntil (Word)
Перемещает конечную позицию указанного выделенного фрагмента до тех пор, пока в документе не будут найдены какие-либо из указанных символов.
Синтаксис
выражение. MoveEndUntil( _Cset_ , _Count_ )
выражение (обязательно). Переменная, представляющая объект Selection .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Cset | Обязательный | Variant | Один или несколько символов. Этот аргумент учитывает регистр. |
| Count | Необязательный | Variant | Максимальное количество символов, на которое будет перемещено указанное выделение. Может быть числом или wdForward или wdBackward. Если count является положительным числом, выделение перемещается вперед в документе. Если это отрицательное число, выделение перемещается назад. Значение по умолчанию — wdForward. |
Возвращаемое значение
Длинное целое
Замечания
Этот метод возвращает значение 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 и обратная связь.