TextLines.Item

Property Item(Index As Long, [Count As Long = 1]) As TextRange

The Item property returns a TextRange object that contains the specified lines.

The Item property returns a read-only value.


Parameters	Description
Index	Specifies the line by its index number
Count	Specifies the number of lines This parameter is optional, and its default value is 1.

The following code example creates paragraph text, applies bold formatting to the first line, and fills the second and third lines 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(1).Bold = True 
 t.Story.Lines.Item(2, 2).Fill.UniformColor.RGBAssign 155, 0, 0 
End Sub