TextParagraphs.Item

Object Model Reference : Classes : T : TextParagraphs : Properties : TextParagraphs.Item

TextParagraphs.Item

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

Description

The Item property returns a text range (or TextRange object) containing specified paragraphs. It is the default property of the TextParagraphs class.

The Item property returns a read-only value.


Parameter	Description
Index	Specifies the preset placeholder that uniquely identifies each member of the TextParagraphs collection
Count	Specifies the number of paragraphs. This parameter is optional, and its default value is 1.

VBA example

The following VBA example creates paragraph text, applying bold formatting to the second paragraph and filling the fifth and sixth paragraphs with uniform 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. " & vbCr & _

"This is still a test. This is still a test. This is still a test. " & _

"This is still a test. This is still a test. " & vbCr & _

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

"This is a test. This is a test. " & vbCr & _

"This is still a test. This is still a test. This is still a test. " & _

"This is still a test. This is still a test. " & vbCr & _

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

"This is a test. This is a test. " & vbCr & _

"This is still a test. This is still a test. This is still a test. " & _

"This is still a test. This is still a test. " & vbCr & _

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

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

Set d = CreateDocument

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

Set t = s.Text

t.Story.Paragraphs.Item(2).Bold = True

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

End Sub