如何用VBA向创建的对象中粘东西

在WORD里选择一段文字（或是公式），剪切该内容，建一个公式编职器对象，但是却粘不进去内容：
我用的代码如下：
Selection.Cut
Selection.InlineShapes.AddOLEObject ClassType:="Equation.3", FileName:= _
"", LinkTofile:=False, DisplayAsIcon:=False
SendKeys "%"
SendKeys "{RIGHT}{down}{down}{down}{down}{enter}"  

测试运行时就是打开公式编辑器后，宏并没有把剪贴板中的内容粘进去
我希望它粘进去，然后退出公式编辑器。
真的好想知道怎么弄，谢谢大家了。

路过学习一下，高手快来。