EvenlySpaced 属性

如果该属性为 True，则文本栏是等宽的。属性值可以取 True、False 或 wdUndefined。Long 类型，可读写。

说明

如果您设置了 TextColumns 对象的 Spacing 或 Width 属性，则 EvenlySpaced 属性自动设置为 True。同样，设置 EvenlySpaced 属性将会改变 TextColumns 对象的 Spacing 或 Width 属性的设置。

示例

本示例将活动文档中的文本栏设置为等宽。

Dim colTextColumns

Set colTextColumns = ActiveDocument.PageSetup.TextColumns

If colTextColumns.Count > 1 Then _
    colTextColumns.EvenlySpaced = True
End If

本示例返回“格式”菜单上的“分栏”对话框中的“栏宽相等”选项的状态。

Dim lngSpaced As Long

lngSpaced = ActiveDocument.PageSetup.TextColumns.EvenlySpaced