collection that represents the set of text columns for the specified PageSetup
object.
expression.TextColumns
expression Required. An expression that returns a PageSetup object.
Remarks
There will always be at least one text column in the collection. When you create new text columns, you're adding to a collection of one column.
For information about returning a single member of a collection, see Returning an Object from a Collection.
Example
This example creates four evenly-spaced text columns that are applied to section two in the active document.
With ActiveDocument.Sections(2).PageSetup.TextColumns
.SetCount NumColumns:=3
.Add EvenlySpaced:=True
End With
This example creates a document with two text columns. The first column is 1.5 inches wide and the second is 3 inches wide.
Set myDoc = Documents.Add
With myDoc.PageSetup.TextColumns
.SetCount NumColumns:=1
.Add Width:=InchesToPoints(3)
End With
With myDoc.PageSetup.TextColumns(1)
.Width = InchesToPoints(1.5)
.SpaceAfter = InchesToPoints(0.5)
End With