TextLines.Last

Property Last As TextRange

Member of TextLines

The Last property returns a text range (or TextRange object) containing the last line in a TextLines collection.

The Last property returns a read-only value.

The following VBA example creates paragraph text, filling the last line 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.Last.Fill.UniformColor.RGBAssign 155, 0, 0

End Sub