如果为 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