Прочитать на английском

Поделиться через


Метод 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

См. также

Объект Range

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

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