HasVertical Property

True if a vertical border can be applied to the specified object. Read-only Boolean.

Remarks

Vertical borders can be applied to ranges that contain cells in two or more columns of a table.

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