ArtStyle Property Example

This example adds a border of black dots around each page in first section in the selection.

For Each aBorder In Selection.Sections(1).Borders
    aBorder.ArtStyle = wdArtBasicBlackDots
    aBorder.ArtWidth = 6
Next aBorder

This example adds a picture border around each page in section one in the active document.

With ActiveDocument.Sections(1)
    .Borders.AlwaysInFront = True
    For Each aBord In .Borders
        aBord.ArtStyle = wdArtPeople
        aBord.ArtWidth = 15
    Next aBord
End With