JoinBorders 属性

       

如果为 True,则删除段落和表格边缘的垂直边框,以使水平边框与页面边框相连。Boolean 类型,可读写。

expression.JoinBorders

expression   必需。该表达式返回一个 Borders 对象。

示例

本示例为所选内容的第一节中的每页添加边框。本示例还删除段落和表格边缘的垂直边框,以使水平边框能与页面边框相连。

Dim borderLoop As Border

With Selection.Sections(1)
    For Each borderLoop In .Borders
        borderLoop.ArtStyle = wdArtBalloonsHotAir
        borderLoop.ArtWidth = 15
    Next borderLoop
    With .Borders
        .DistanceFromLeft = 2
        .DistanceFromRight = 2
        .DistanceFrom = wdBorderDistanceFromText
        .JoinBorders = True
    End With
End With