HasHorizontal Property
True if a horizontal border can be applied to the object. Read-only Boolean.
Remarks
Horizontal borders can be applied to ranges that contain cells in two or more rows of a table or ranges that contain two or more paragraphs.
Example
This example applies single-line horizontal borders, if the selection supports horizontal borders.
If Selection.Borders.HasHorizontal = True Then
Selection.Borders(wdBorderHorizontal).LineStyle = _
wdLineStyleSingle
End If