Метод TextRange.Expand (Publisher)

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

Синтаксис

выражение. Expand (единица)

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

Параметры

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

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

Long

Примечания

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