TextRange.Move メソッド (Publisher)

  • [アーティクル]

指定した範囲を開始位置または終了位置に折りたたみ、折りたたまれたオブジェクトを指定した単位数だけ移動します。 このメソッドを返します、 時間 単位、オブジェクトが実際に移動すると、移動が失敗した場合は、0 (ゼロ) を返しますの数を表す。

構文

式。移動 (単位、 サイズ)

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

パラメーター

名前 必須 / オプション データ型 説明
Unit 必須 PbTextUnit 折りたたまれた範囲 (選択範囲) を移動する単位を指定します。 Microsoft Publisher タイプ ライブラリで宣言されている PbTextUnit クラスの定数の 1 つを指定できます。
サイズ 必須 長整数型 (Long) 指定範囲または選択範囲を移動する単位の数。

サイズ が正の数値の場合は、オブジェクトが終了位置で解除し、指定された単位数だけ文書の末尾方向に移動します。 サイズ が負の数値の場合は、オブジェクトが開始位置で折りたたまれ、指定された単位数だけ後ろに移動します。

Move メソッドを使用する前に Collapse メソッドを使用して折りたたみ方向を制御することもできます。

戻り値

Long

例

次の使用例は、指定した範囲の選択を解除し、その範囲の先頭に新しい文を挿入します。

Sub MoveText() 
 Dim rngText As TextRange 
 Set rngText = ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
 .TextRange.Words(Start:=1, Length:=5) 
 With rngText 
 .Move Unit:=pbTextUnitParagraph, Size:=-1 
 .Text = "This adds new text to the beginning of the range. " 
 End With 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。