Publisher.TextRange.Lines.md

title	keywords	f1_keywords	api_name	ms.assetid	ms.date	ms.localizationpriority
TextRange.Lines method (Publisher)	vbapb10.chm5308455	vbapb10.chm5308455	Publisher.TextRange.Lines	56862090-b2ff-403b-d016-e37108d5ccc1	06/15/2019	medium

TextRange.Lines method (Publisher)

Returns a TextRange object that represents the specified lines.

Syntax

expression.Lines (Start, Length)

expression A variable that represents a TextRange object.

Parameters

Name	Required/Optional	Data type	Description
Start	Required	Long	The first line in the returned range.
Length	Optional	Long	The number of lines to be returned. The default is 1.

Return value

TextRange

Remarks

If Start is greater than the number of lines in the specified text, the returned range starts with the last line in the specified range.

If Length is greater than the number of lines from the specified starting line to the end of the text, the returned range contains all those lines.

Example

This example replaces the first three lines of the first shape on the first page with the specified string.

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

[!includeSupport and feedback]