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.

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