Publisher (的 TextRange.Lines 方法)

會傳回代表指定行的 TextRange 物件。

語法

運算式。開始時間 (行、長度)

表達 代表 TextRange 物件的 變數。

參數

名稱	必要/選用	資料類型	描述
Start	必要	Long	傳回之範圍內的第一行。
Length	選用	Long	要傳回的行數。 預設值為 1。

傳回值

TextRange

註解

如果 Start 大於指定文字中的行數，則傳回範圍從指定範圍的最後一行開始。

如果 Length 大於從指定之起始行到文字結束之間的行數，則傳回的範圍會包含所有的這些行。

範例

本範例會將第一頁上第一個圖案的前三行以指定的字串取代。

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