TextColumns 属性

该属性返回一个 TextColumns 集合，该集合代表指定的 PageSetup 对象的文本栏集合。

expression   必需。该表达式返回一个 PageSetup 对象。

说明

集合中至少包含一个文本栏。创建新文本栏时，会将一个文本栏添至集合中。

有关返回集合中单独成员的内容，请参阅返回集合中的对象。

示例

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

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

本示例创建一个具有两个文本栏的文档。第一个文本栏宽 1.5 英寸，第二个文本栏宽 3 英寸。

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