TextColumns Property

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