TextRange.Lines メソッド (Publisher)

指定した行を表す TextRange オブジェクトを返します。

構文

式。行 (開始、 長さ)

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

パラメーター

名前	必須 / オプション	データ型	説明
Start	必須	長整数型 (Long)	返されるテキストの先頭行を指定します。
Length	省略可能	長整数型 (Long)	返される行数を指定します。 既定値は 1 です。

戻り値

TextRange

注釈

Start の値が、指定したテキストの行数より大きい場合、指定した範囲の最後の行を先頭とする範囲が返されます。

Length の値が、指定した開始行からテキストの最後までの行数より大きい場合、それらの行をすべて含む範囲が返されます。

例

次の使用例は、最初のページの最初の図形の先頭 3 行を、指定した文字列で置き換えます。

Sub ReplaceLines() 
 Dim rngText As TextRange 
 Set rngText = ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange.Lines(Start:=1, Length:=3) 
 
 rngText.Text = "This is replacement text." & vbCrLf 
 
End Sub

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

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