Word VBA教程:TextColumns属性

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

expression.TextColumns

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

说明

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

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

VBA示例

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


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

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号