ArtStyle Property

Microsoft Word Visual Basic

ArtStyle Property

       

Returns or sets the graphical page-border design for a document. Read/write 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