TextColumns.All

Property All As TextRange

The All property returns a TextRange object that contains all of the columns in the collection.

The All property returns a read-only value.

The following code example links frames of paragraph text. It then creates three columns in the first frame and applies bold formatting to all of the text in the columns.

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 text must be long enough to span " 
& _ 
  "across multiple columns in this frame. By adding this sentence, 
" & _ 
  "this text is now long enough." 
 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 columns 
 t.Frame.SetColumns 3, False, Array(0.7, 0.1, 1, 0.1, 1) 
 t.Frame.Range.Columns.All.Bold = True 
End Sub