怎么用 word vba插入公式？

lidejun_55

怎么用vba 向  word插入公式？
就是公式编辑器的公式

chylhr

VBA中没有提供控制公式编辑器的对象模型,但我们可以使用SendKeys模拟键盘操作在Word中输入公式.
我写了一个例子,可以生成如图所示的公式,代码如下.
Sub VBA生成公式示例()
   Selection.InlineShapes.AddOLEObject ClassType:="Equation.3"
   
   '输入积分符
   SendKeys "{F2}", True
   SendKeys "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}", True
   SendKeys "{ENTER}", True
   SendKeys "{ENTER}", True
   
   '输入分式
   SendKeys "{F2}", True
   SendKeys "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}", True
   SendKeys "{ENTER}", True
   SendKeys "{ENTER}", True
   
   SendKeys "du", True
   
   '输入(u+a)
   SendKeys "{DOWN}", True
   SendKeys "{F2}", True
   SendKeys "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}", True
   SendKeys "{ENTER}", True
   SendKeys "{ENTER}", True
   SendKeys "u{+}a", True
   SendKeys "{RIGHT}", True
   
   '输入(u-a)
   SendKeys "{F2}", True
   SendKeys "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}", True
   SendKeys "{ENTER}", True
   SendKeys "{ENTER}", True
   SendKeys "u-a", True
   
   '输入=
   SendKeys "{RIGHT}" & "{RIGHT}", True
   SendKeys "=", True
   
   '输入分式
   SendKeys "{F2}", True
   SendKeys "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}", True
   SendKeys "{ENTER}", True
   SendKeys "{ENTER}", True
   
   SendKeys "1", True
   
   '输入b-a
   SendKeys "{DOWN}", True
   SendKeys "b-", True
   SendKeys "a", True
   
   '输入ln
   SendKeys "{RIGHT}", True
   SendKeys "ln", True
   
   '输入分式
   SendKeys "{F2}", True
   SendKeys "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}" & "{LEFT}", True
   SendKeys "{ENTER}", True
   SendKeys "{ENTER}", True
   
   '输入u+a
   SendKeys "u{+}a", True
   
   '输入u+b
   SendKeys "{DOWN}", True
   SendKeys "u{+}b", True
   '输入+C
   SendKeys "{RIGHT}", True
   SendKeys "{+}C", True
   
   '退出公式编辑器
   SendKeys "{ESC}", True
End Sub

sqhsqhli

应该用域输吧，录制？？？明天试验一下》》》》》》》》》》》》》》》

lidejun_55

谢谢二楼，发送按键也是可行的办法

jisx0404

不错,作个标记