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


Метод TextRange.Move (Издатель)

Сворачивает указанный диапазон в начальную или конечную позицию, а затем перемещает свернутый объект на указанное количество единиц. Этот метод возвращает значение Long , представляющее количество единиц, на которые был фактически перемещен объект, или возвращает 0 (ноль), если перемещение было неудачным.

Синтаксис

expression. Перемещение (единица, размер)

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

Параметры

Имя Обязательный или необязательный Тип данных Описание
Единицы Обязательный PbTextUnit Единица перемещения свернутого диапазона или выделенного фрагмента. Может быть одной из констант PbTextUnit , объявленных в библиотеке типов издателя Майкрософт.
Размер Обязательный Long Количество единиц, на которые будет перемещен указанный диапазон или выбор.

Если размер является положительным числом, объект сворачивается до конечной позиции и перемещается вперед в документе на указанное количество единиц. Если size является отрицательным числом, объект свернут в начальную позицию и перемещается назад на указанное количество единиц.

Вы также можете управлять направлением сворачивания с помощью метода Collapse перед использованием метода Move .

Возвращаемое значение

Длинное целое

Пример

В этом примере происходит сворачивание указанного диапазона и вставка нового предложения в начале диапазона.

Sub MoveText() 
 Dim rngText As TextRange 
 Set rngText = ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
 .TextRange.Words(Start:=1, Length:=5) 
 With rngText 
 .Move Unit:=pbTextUnitParagraph, Size:=-1 
 .Text = "This adds new text to the beginning of the range. " 
 End With 
End Sub

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

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