Share via


Lines Method

Lines Method
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

Returns a TextRange object that represents the specified lines.

expression.Lines(Start, Length)

expression   Required. An expression that returns one of the objects in the Applies To list.

Start  Required Long. The first line in the returned range.

Length  Optional Long. The number of lines to be returned. Default is 1.

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