Word VBA教程:LineBetween属性

如果为 True,则TextColumns集合的所有栏之间置有垂直分隔线。该属性值可取 True、False 或 wdUndefined。Long 类型,可读写。

expression.LineBetween

expression   必需。该表达式返回一个 TextColumns集合对象。

VBA示例

本示例将在活动文档每节中循环搜索,如果某节中的文本栏是用垂直分隔线分开的,就显示一个消息框。


i = 1
For each s in ActiveDocument.Sections
    If s.PageSetup.TextColumns.LineBetween = True Then
        MsgBox "The columns in section " & i & " contain lines."
    End If
    i = i + 1
Next s

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号