DistanceFromTop Property Example

This example adds a border around each paragraph in the selection and sets the distance between the text and the top border to 3 points.

With Selection.Borders
    .Enable = True
    .DistanceFromTop = 3
End With

This example adds a border around each page in the first section in the selection. The example also sets the distance between the text and the page border to 6 points.

With Selection.Sections(1)
    For Each aBorder In .Borders
        aBorder.ArtStyle = wdArtSeattle
        aBorder.ArtWidth = 22
    Next aBorder
    With .Borders
        .DistanceFrom = wdBorderDistanceFromText
        .DistanceFromTop = 6
        .DistanceFromLeft = 6
        .DistanceFromBottom = 6
        .DistanceFromRight = 6
    End With
End With