Previous Document Next Document

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


TextParagraphs.Item

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

Description

Member of TextParagraphs

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

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.