Метод TextRange.Expand (Publisher)

Статья
04/07/2023

Разворачивает указанный диапазон или выделенный фрагмент. Возвращает или задает значение Long , представляющее количество указанных единиц, добавленных в диапазон или выделение.

Синтаксис

expression. Развернуть (единица)

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

Параметры

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

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

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

Замечания

При необходимости метод Expand перемещает обе конечные точки диапазона. Чтобы переместить только одну конечную точку диапазона, используйте метод MoveStart или MoveEnd .

Пример

В этом примере создается диапазон, который ссылается на первое слово в первой фигуре активной публикации, форматирует шрифт для слова, а затем расширяет диапазон для ссылки на весь первый абзац и форматирует шрифт для всей строки.

Sub ExpandRange() 
 Dim rngText As TextRange 
 
 Set rngText = ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange.Words(Start:=1, Length:=1) 
 With rngText 
 With .Font 
 .Size = 20 
 .Italic = msoTrue 
 End With 
 .Expand Unit:=pbTextUnitLine 
 .Font.Bold = msoTrue 
 End With 
End Sub

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

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

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