Метод TextRange.MoveEnd (Publisher)

Статья
04/07/2023

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

Синтаксис

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

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

Параметры

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

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

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

Пример

Этот пример задает текстовый диапазон, перемещает начальные и конечные позиции символов диапазона, а затем форматирует шрифт для диапазона.

Sub MoveStartEnd() 
 Dim rngText As TextRange 
 
 Set rngText = ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
 .TextRange.Paragraphs(Start:=3, Length:=1) 
 
 With rngText 
 .MoveStart Unit:=pbTextUnitLine, Size:=-2 
 .MoveEnd Unit:=pbTextUnitLine, Size:=1 
 With .Font 
 .Bold = msoTrue 
 .Size = 15 
 End With 
 End With 
 
End Sub

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

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