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