TextLines.Count

Property Count As Long

Member of TextLines

The Count property returns the number of lines in a TextLines collection.

The Count property returns a read-only value.

The following VBA example creates paragraph text and displays the number of lines in the paragraph.

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, 8, 8, strText)

Set t = s.Text

MsgBox "The number of lines in the text is " & t.Story.Lines.Count

End Sub