本示例为选定文本添加图文框。

Set addFrams = Selection.Frames.Add(Range:=Selection.Range)