本示例为活动文档中的第二节创建四个等宽的文本栏。

With ActiveDocument.Sections(2).PageSetup.TextColumns
    .SetCount NumColumns:=3
    .Add EvenlySpaced:=True
End With

 

本示例创建一个具有两个文本栏的文档。

Set myWps = Documents.Add
With myWps.PageSetup.TextColumns
    .SetCount NumColumns:=1
    .Add Width:=InchesToPoints(3)
End With