Word VBA教程:DistanceRight属性

对于 Rows对象:返回或设置指定文档右边缘与文档文字之间的距离(以磅为单位)。如果WrapAroundText 为 False,则该属性无效。Single 类型,可读写。

对于 WrapFormat对象:返回或设置文档文字与指定图形周围的非文本区右边缘之间的距离(以磅为单位)。非文本区的大小和图形,取决于所指定图形的大小和形状,以及 WrapFormat对象的 Type 和 Side属性。Single 类型,可读写。

VBA示例

本示例设定文字环绕在活动文档中第一个表格的周围,并且环绕文字与该表格各边的间距为 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号