EnableFirstPageInSection 属性

       

如果该属性值为 True,则可为节内第一页设置页面边框。Boolean 类型,可读写。

示例

本示例为所选内容的第一节的首页添加页面边框。

Dim borderLoop As Border

With Selection.Sections(1)
    .Borders.EnableFirstPageInSection = True
    .Borders.EnableOtherPagesInSection = False
    For Each borderLoop In .Borders
        borderLoop.ArtStyle = wdArtPeople
        borderLoop.ArtWidth = 15
    Next borderLoop
End With