本示例为选定文本添加图文框。
Set addFrams = Selection.Frames.Add(Range:=Selection.Range)