Word VBA教程:EvenlySpaced属性

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

说明

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

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号