对于 Rows 对象:返回或设置指定表格顶边与文档文字之间的距离(以磅为单位)。如果 WrapAroundText 为 False,则该属性无效。Single 类型,可读写。
对于 WrapFormat 对象:返回或设置文档文字与指定图形周围的非文本区顶边之间的距离(以磅为单位)。非文本区的大小和图形,取决于所指定图形的大小和形状,以及 WrapFormat 对象的 Type 和 Side 属性。Single 类型,可读写。
本示例设定文字环绕在活动文档中第一个表格的周围,并且环绕文字与该表格各边的间距为 20 磅。
With ActiveDocument.Tables(1).Rows
.WrapAroundText = True
.DistanceLeft = 20
.DistanceRight = 20
.DistanceTop = 20
.DistanceBottom = 20
End With
本示例在活动文档中添加一个椭圆,并指定文档文字环绕该椭圆外接矩形的左右两侧。本示例将文档文字与该外接矩形四边之间的边距设置为 0.1 英寸。
Dim
shapeOval As Shape Set shapeOval = ActiveDocument.Shapes.AddShape(msoShapeOval, _ 0, 0, 200, 50) With shapeOval.WrapFormat .Type = wdWrapSquare .Side = wdWrapBoth .DistanceTop = InchesToPoints(0.1) .DistanceBottom = InchesToPoints(0.1) .DistanceLeft = InchesToPoints(0.1) .DistanceRight = InchesToPoints(0.1) End With