This example arranges the text in the active document into two columns of equal width.
ActiveDocument.PageSetup.TextColumns.SetCount NumColumns:=2
This example arranges the text in the first section of Brochure.doc into three columns of equal width.
Documents("Brochure.doc").Sections(1) _
.PageSetup.TextColumns.SetCount NumColumns:=3