Sub Test() Dim d As Document Dim s As Shape Dim s1 As Shape Dim s2 As Shape Dim t As Text Dim f As TextFrame Set d = CreateDocument Set s = d.ActiveLayer.CreateParagraphText(2, 2, 5, 5, String$(750, "Z")) Set s1 = d.ActiveLayer.CreateParagraphText(5, 5, 8, 8) Set s2 = d.ActiveLayer.CreateEllipse(1, 1, 3, 3) Set t = s.Text ' Fit the text to path. s1.Text.FitToPath s2 ' Link the frames together. t.Frame.LinkTo s1 ' Get the first frame. Set f = t.Frames(1) ' Set the columns f.SetColumns 3, False, Array(1, 0.3, 2, 0.3, 3) For Each f In t.Frames If f.Multicolumn Then MsgBox "There are " & f.ColumnCount & " columns in frame " & f.Index End If Next fEnd Sub