Inside Property Example

If the current selection supports inside borders (that is, if multiple paragraphs or cells are selected), this example applies a single inside border.

For Each aBorder In Selection.Borders
    If aBorder.Inside = True Then _
        aBorder.LineStyle = wdLineStyleSingle
Next aBorder