SurroundFooter Property Example

This example formats the page border in section one in the active document so that it encompasses the header and footer on each page in the section.

With ActiveDocument.Sections(1).Borders
    .SurroundFooter = True
    .SurroundHeader = True
End With

This example adds a graphical page border around each page in section one. The page border doesn't encompass the header and footer areas.

With ActiveDocument.Sections(1)
    .Borders.SurroundFooter = False
    .Borders.SurroundHeader = False
    For Each aBord In .Borders
        aBord.ArtStyle = wdArtPeople
        aBord.ArtWidth = 15
    Next aBord
End With