以磅为单位返回或设置图文框与环绕文字之间的水平距离。Single 类型,可读写。
本示例在所选内容四周添加一个图文框,并将图文框与文字之间的水平距离设置为 12 磅。
Dim frmNew As Frame
Set frmNew = ActiveDocument.Frames.Add(Range:=Selection.Range)
frmNew.HorizontalDistanceFromText = 12
本示例为第一段添加一个图文框,并设置该图文框的多个属性。
Dim frmNew As Frame
Set frmNew = ActiveDocument.Frames.Add _
(Range:=ActiveDocument.Paragraphs(1).Range)
With frmNew
.HorizontalDistanceFromText = InchesToPoints(0.25)
.VerticalDistanceFromText = InchesToPoints(0.25)
.HeightRule = wdFrameAuto
.WidthRule = wdFrameAuto
.Borders.Enable = False
End With