TextColumns 集合对象

         
PageSetup
TextColumns (TextColumn)

该对象为 TextColumn 对象组成的集合,这些元素对象代表文档或文档中某一节的所有栏。

使用 TextColumns 集合

可用 TextColumns 属性返回一个 TextColumns 集合。下例将活动文档第一节的各栏格式设为均匀间隔,在各栏之间设置分割线。

With ActiveDocument.Sections(1).PageSetup.TextColumns
    .EvenlySpaced = True
    .LineBetween = True
End With

可用 Add 方法在栏集合中添加一新栏。默认情况下,TextColumns 集合中有一栏。下例在活动文档中添加一个 2.5 英寸宽的栏。

ActiveDocument.PageSetup.TextColumns.Add _
    Width:=InchesToPoints(2.5), _
    Spacing:=InchesToPoints(0.5), EvenlySpaced:=False

说明

可用 SetCount 方法将文本分栏排列。下例将活动文档中的文本分成三栏。

ActiveDocument.PageSetup.TextColumns.SetCount NumColumns:=3