ApplyPageBordersToAllSections Method Example

This example adds a single-line page border to all sections in the active document.

With ActiveDocument.Sections(1)
    For Each aBord In .Borders
        aBord.LineStyle = wdLineStyleSingle
        aBord.LineWidth = wdLineWidth050pt
    Next aBord
    .Borders.ApplyPageBordersToAllSections
End With