PageSetup.TextColumns property (Word)

Returns a TextColumns collection that represents the set of text columns for the specified PageSetup object.


expression. TextColumns

expression An expression that returns a PageSetup object.


There will always be at least one text column in the collection. When you create new text columns, you are adding to a collection of one column.

For information about returning a single member of a collection, see Returning an object from a collection.


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

See also

PageSetup Object

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.