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.
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