TextRange.Expand 方法 (Publisher)

會指定的範圍或選取範圍。 會傳回或設定 Long ，代表新增至範圍或選取指定的單位數目。

語法

運算式。展開[單元) (

表達 代表 TextRange 物件的 變數。

參數

名稱	必要/選用	資料類型	描述
Unit	必要	PbTextUnit	用來展開範圍單位。 可以是 Microsoft Publisher 類型程式庫中所宣告的 PbTextUnit 常數之一。

傳回值

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 支援與意見反應。