返回一个 Frame 对象,该对象代表了格式设置为指定样式的或查找并替换操作所涉及的图文框。只读。
本示例创建一个带图文框格式的样式,然后将该样式用于所选内容的第一段。
Dim styleNew As Style
Set styleNew = ActiveDocument.Styles _
.Add(Name:="frame", Type:=wdStyleTypeParagraph)
With styleNew.Frame
.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionMargin
.HeightRule = wdFrameAuto
.WidthRule = wdFrameAuto
.TextWrap = True
End With
Selection.Paragraphs(1).Range.Style = "frame"
本示例查找第一个带环绕格式的图文框。如果找到了,则在状态栏显示一条信息。
With ActiveDocument.Content.Find
.Text = ""
.Frame.TextWrap = True
.Execute Forward:=True, Wrap:=wdFindContinue, Format:=True
If .Found = True Then StatusBar = "Frame was found"
.Parent.Select
End With