ArtStyle Property

WdPageBorderArt

WdPageBorderArt can be one of these WdPageBorderArt constants.

wdArtSeattle

wdArtSharksTeeth

wdArtSkyrocket

wdArtSnowflakes

wdArtSouthwest

wdArtStars3D

wdArtStarsShadowed

wdArtSun

wdArtTornPaper

wdArtTrees

wdArtTriangles

wdArtTribal2

wdArtTribal4

wdArtTribal6

wdArtTwistedLines2

wdArtWaveline

wdArtWeavingBraid

wdArtWeavingStrips

wdArtWoodwork

wdArtZanyTriangles

wdArtZigZagStitch

wdArtCirclesLines

wdArtClassicalWave

wdArtCompass

wdArtConfettiGrays

wdArtConfettiStreamers

wdArtCornerTriangles

wdArtCouponCutoutDots

wdArtCreaturesButterfly

wdArtCreaturesInsects

wdArtScaredCat

wdArtShadowedSquares

wdArtShorebirdTracks

wdArtSnowflakeFancy

wdArtSombrero

wdArtStars

wdArtStarsBlack

wdArtStarsTop

wdArtSwirligig

wdArtTornPaperBlack

wdArtTriangleParty

wdArtTribal1

wdArtTribal3

wdArtTribal5

wdArtTwistedLines1

wdArtVine

wdArtWeavingAngles

wdArtWeavingRibbon

wdArtWhiteFlowers

wdArtXIllusions

wdArtZigZag

wdArtChristmasTree

wdArtCirclesRectangles

wdArtClocks

wdArtConfetti

wdArtConfettiOutline

wdArtConfettiWhite

wdArtCouponCutoutDashes

wdArtCrazyMaze

wdArtCreaturesFish

wdArtCreaturesLadyBug

wdArtCrossStitch

wdArtCup

wdArtDecoArch

wdArtDecoArchColor

wdArtDecoBlocks

wdArtDiamondsGray

wdArtDoubleD

wdArtDoubleDiamonds

wdArtEarth1

wdArtEarth2

wdArtEclipsingSquares1

wdArtEclipsingSquares2

wdArtEggsBlack

wdArtFans

wdArtFilm

wdArtFirecrackers

wdArtFlowersBlockPrint

wdArtFlowersDaisies

wdArtFlowersModern1

wdArtFlowersModern2

wdArtFlowersPansy

wdArtFlowersRedRose

wdArtFlowersRoses

wdArtFlowersTeacup

wdArtFlowersTiny

wdArtGems

wdArtGingerbreadMan

wdArtGradient

wdArtHandmade1

wdArtHandmade2

wdArtHeartBalloon

wdArtHeartGray

wdArtHearts

wdArtHeebieJeebies

wdArtHolly

wdArtHouseFunky

wdArtHypnotic

wdArtIceCreamCones

wdArtLightBulb

wdArtLightning1

wdArtLightning2

wdArtMapleLeaf

wdArtMapleMuffins

wdArtMapPins

wdArtMarquee

wdArtMarqueeToothed

wdArtMoons

wdArtMosaic

wdArtMusicNotes

wdArtNorthwest

wdArtOvals

wdArtPackages

wdArtPalmsBlack

wdArtPalmsColor

wdArtPaperClips

wdArtPapyrus

wdArtPartyFavor

wdArtPartyGlass

wdArtPencils

wdArtPeople

wdArtPeopleHats

wdArtPeopleWaving

wdArtPoinsettias

wdArtPostageStamp

wdArtPumpkin1

wdArtPushPinNote1

wdArtPushPinNote2

wdArtPyramids

wdArtPyramidsAbove

wdArtQuadrants

wdArtRings

wdArtSafari

wdArtSawtooth

wdArtSawtoothGray

wdArtApples

wdArtArchedScallops

wdArtBabyPacifier

wdArtBabyRattle

wdArtBalloons3Colors

wdArtBalloonsHotAir

wdArtBasicBlackDashes

wdArtBasicBlackDots

wdArtBasicBlackSquares

wdArtBasicThinLines

wdArtBasicWhiteDashes

wdArtBasicWhiteDots

wdArtBasicWhiteSquares

wdArtBasicWideInline

wdArtBasicWideMidline

wdArtBasicWideOutline

wdArtBats

wdArtBirds

wdArtBirdsFlight

wdArtCabins

wdArtCakeSlice

wdArtCandyCorn

wdArtCelticKnotwork

wdArtCertificateBanner

wdArtChainLink

wdArtChampagneBottle

wdArtCheckedBarBlack

wdArtCheckedBarColor

wdArtCheckered

expression.ArtStyle

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

Example

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

  Dim borderLoop As Border

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

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

  Dim borderLoop As Border

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