TextColumn 对象

         
PageSetup
TextColumns (TextColumn)

该对象代表一个单独的文本栏。TextColumn 对象为 TextColumns 集合的一个成员。TextColumns 集合包含了文档或文档中一节的所有栏。

使用 TextColumn 对象

可用 TextColumns(index) 返回一个 TextColumns 对象,其中 index 为索引号。索引号代表 TextColumns 集合中栏的位置(从左向右)。

下例将活动文档第一栏文本后的距离设为 0.5 英寸。

ActiveDocument.PageSetup.TextColumns(1).SpaceAfter = _
    InchesToPoints(0.5)

可用 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