ArtStyle 属性

返回或设置文档的艺术型页面边框。WdPageBorderArt，可读写。

expression   必需。该表达式返回“应用于”列表中的一个对象。

示例

本示例为所选内容的第一节的每个页面添加由黑点构成的边框。

Dim borderLoop As Border

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

本示例为活动文档中的第一节的每个页面添加由特定图片所构成的边框。

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