LineBetween Property Example

This example cycles through each section in the active document and displays a message box if the text columns in the section are separated by vertical lines.

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