HasVertical Property Example

If the selection supports vertical borders, this example applies a single vertical border.

If Selection.Borders.HasVertical = True Then
    Selection.Borders(wdBorderVertical).LineStyle = _
        wdLineStyleSingle
End If