如果为 True,则 TextColumns 集合的所有栏之间置有垂直分隔线。该属性值可取 True、False 或 wdUndefined。Long 类型,可读写。
expression.LineBetween
expression 必需。该表达式返回一个 TextColumns 集合对象。
本示例将在活动文档每节中循环搜索,如果某节中的文本栏是用垂直分隔线分开的,就显示一个消息框。
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