Метод 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 и обратная связь.