Share via

DistanceFrom Property

  • Article

WdBorderDistanceFrom

WdBorderDistanceFrom can be one of these WdBorderDistanceFrom constants.
wdBorderDistanceFromPageEdge
wdBorderDistanceFromText

expression.DistanceFrom

expression Required. An expression that returns one of the objects in the Applies To list.

Example

This example adds a single border around each page in section one in the active document and then sets the distance between each border and the corresponding edge of the page.

Dim borderLoop As Border

With ActiveDocument.Sections(1)
    For Each borderLoop In .Borders
        borderLoop.LineStyle = wdLineStyleSingle
        borderLoop.LineWidth = wdLineWidth050pt
    Next borderLoop
    With .Borders
        .DistanceFrom = wdBorderDistanceFromPageEdge
        .DistanceFromTop = 20
        .DistanceFromLeft = 22
        .DistanceFromBottom = 20
        .DistanceFromRight = 22
    End With
End With

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

Dim borderLoop As Border

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

Applies to | Borders Collection Object

See Also | DistanceFromBottom Property | DistanceFromLeft Property | DistanceFromRight Property | DistanceFromTop Property | JoinBorders Property | SurroundFooter Property | SurroundHeader Property