Метод Range.EndOf (Word)
Перемещает или расширяет позицию конечного символа диапазона до конца ближайшей указанной текстовой единицы.
выражение. EndOf
( _Unit_
, _Extend_
)
выражение (обязательно). Переменная, представляющая объект Range .
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
Единицы | Необязательный | Variant | Единица, на которую перемещается конечная позиция символа. Может быть любым WdUnits, кроме wdLine. Значение по умолчанию — wdWord. |
Extend | Обязательный | 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 и обратная связь.