TextRange.MoveEnd メソッド (Publisher)

範囲の末尾の文字位置を移動します。 このメソッドは、範囲または選択範囲が実際に移動した単位数を表す Long を返します。移動が失敗した場合は 0 (ゼロ) を返します。

構文

式。MoveEnd (単位、 サイズ)

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

パラメーター

名前	必須 / オプション	データ型	説明
Unit	必須	PbTextUnit	折りたたまれた範囲 (選択範囲) を移動する単位を指定します。 Microsoft Publisher タイプ ライブラリで宣言されている PbTextUnit クラスの定数の 1 つを指定できます。
サイズ	必須	長整数型 (Long)	移動する構成単位の数を指定します。 単位の数が正の値の場合は、末尾の文字位置は文書の末尾方向に移動します。 単位の数が負の値の場合は、末尾は文書の先頭方向に移動します。 終了位置を開始位置より前に移動しようとすると、範囲の選択が解除され、両方の文字位置が一緒に移動します。

戻り値

Long

例

次の使用例は、テキスト範囲を設定し、範囲の開始位置と終了位置を移動し、その範囲にフォントを設定します。

Sub MoveStartEnd() 
 Dim rngText As TextRange 
 
 Set rngText = ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
 .TextRange.Paragraphs(Start:=3, Length:=1) 
 
 With rngText 
 .MoveStart Unit:=pbTextUnitLine, Size:=-2 
 .MoveEnd Unit:=pbTextUnitLine, Size:=1 
 With .Font 
 .Bold = msoTrue 
 .Size = 15 
 End With 
 End With 
 
End Sub

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

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