Метод Selection.EndOf (Word)
Перемещает или расширяет конечную позицию символов диапазона или выделенного фрагмента до конца ближайшей указанной текстовой единицы.
Синтаксис
выражение. EndOf( _Unit_ , _Extend_ )
выражение (обязательно). Переменная, представляющая объект Selection .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Единицы | Необязательный | Variant | Единица, на которую перемещается конечная позиция символа. WdUnits. |
| Extend | Необязательный | Variant | Может быть любой из констант WdMovementType . Если wdMove, оба конца диапазона или выделенного объекта перемещаются в конец указанной единицы. Если используется wdExtend , конец диапазона или выделенного фрагмента расширяется до конца указанной единицы. Значение по умолчанию — wdMove. |
Замечания
Этот метод возвращает значение, указывающее количество позиций символов, которые были перемещены или расширены (в документе выполняется перемещение вперед).
Если начальная и конечная позиции для диапазона или выделенного фрагмента уже находятся в конце указанной единицы, этот метод не перемещает или не расширяет диапазон или выделение. Например, если выделение находится в конце слова и в конце, следующая инструкция не изменяет выделение ( char равно 0 (ноль)).
char = Selection.EndOf(Unit:=wdWord, Extend:=wdMove)
Пример
В этом примере выделение расширяется до конца абзаца.
charmoved = Selection.EndOf(Unit:=wdParagraph, Extend:=wdExtend)
If charmoved = 0 Then MsgBox "Selection unchanged"
В этом примере myRange перемещается в конец первого слова в выделенном фрагменте (после конечного пробела).
Set myRange = Selection.Characters(1)
myRange.EndOf Unit:=wdWord, Extend:=wdMove
В этом примере добавляется таблица, выбирается первая ячейка во второй строке, а затем выделенная область расширяется до конца столбца.
Set myRange = ActiveDocument.Range(0, 0)
Set myTable = ActiveDocument.Tables.Add(Range:=myRange, _
NumRows:=5, NumColumns:=3)
myTable.Cell(2, 1).Select
Selection.EndOf Unit:=wdColumn, Extend:=wdExtend
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.