次の方法で共有

TextRange.Expand メソッド (Publisher)

  • [アーティクル]

指定範囲または選択範囲を拡張します。 取得または設定、 時間 範囲または選択範囲に追加された、指定された単位の数を表す。

構文

式。展開 (単位)

式TextRange オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Unit 必須 PbTextUnit 範囲を拡張する単位です。 Microsoft Publisher タイプ ライブラリで宣言されている PbTextUnit クラスの定数の 1 つを指定できます。

戻り値

Long

注釈

Expand メソッドは、必要に応じて範囲の両方のエンドポイントを移動します。範囲のエンドポイントを 1 つだけ移動するには、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 のサポートおよびフィードバックを参照してください。