Previous Document Next Document

Object Model Reference : Classes : T : TextRange : Properties : TextRange.Columns


TextRange.Columns

Property Columns As TextColumns

Description

Member of TextRange

The Columns property returns all the text columns in a text range.

The Columns property returns a read-only value.

VBA example

The following VBA example links frames of paragraph text. Three columns are created in the first frame, and the second column is filled with red.

Sub Test()
 Dim s As Shape
 Dim s1 As Shape
 Dim s2 As Shape
 Dim d As Document
 Dim t As Text
 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 s1 = d.ActiveLayer.CreateParagraphText(5, 5, 8, 8)
 Set s2 = d.ActiveLayer.CreateParagraphText(8, 8, 10, 10)
 Set t = s.Text
 ' Link the frames together.
 t.Frame.LinkTo s1
 s1.Text.Frame.LinkTo s2
 ' set the columns
 t.Frame.SetColumns 3, False, Array(0.7, 0.1, 1, 0.1, 1)
 t.Story.Columns.Item(2).Fill.UniformColor.RGBAssign 155, 0, 0
End Sub

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.