TextRange.Lines

Property Lines As TextLines

Member of TextRange

The Lines property returns all the lines in a text range.

The Lines property returns a read-only value.

The following VBA example fills the second and third lines of the paragraph with red.

Sub Test

Dim t As Text

Dim s As Shape

Dim d As Document

Dim strText As String

strText = "This is a test. This is a test. This is a test. " & _

"This is a test. This is a test. This is a test. "

strText = strText & " This is the next sentence. " & strText

Set d = CreateDocument

Set s = d.ActiveLayer.CreateParagraphText(2, 2, 5, 5, strText)

Set t = s.Text

t.Story.Lines.Item(2, 2).Fill.UniformColor.RGBAssign 155, 0, 0

End Sub