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