WordVBA公式详解

WordVBA可以使用以下代码在Word文档中添加公式：

Sub AddFormula()
    Dim myFormula As String
    myFormula = "a^2 + b^2 = c^2"
    Selection.Range.Formula = myFormula
End Sub

上述代码中，我们首先定义了一个名为myFormula的字符串变量，其中包含了我们要添加的公式。然后，我们使用Selection.Range.Formula属性将公式添加到当前选定范围的位置。在这个例子中，我们假设用户已经选中了一个合适的位置来添加公式。

除了上述方法外，WordVBA还可以使用MathType插件来添加公式。使用这个插件，用户可以创建复杂的数学公式，并将其插入到Word文档中。以下是使用MathType插件添加公式的示例代码：

Sub AddMathTypeFormula()
    ' Create a new MathType equation object
    Dim objEq As OLEObject
    Set objEq = ActiveDocument.InlineShapes.AddOLEObject(ClassType:="Equation.3")
    ' Activate the MathType equation editor
    objEq.OLEFormat.DoVerb verbIndex:=0
    ' Wait for the user to finish editing the equation
    MsgBox "Please finish editing the equation and close MathType"
    ' Refresh the MathType equation object in the document
    objEq.OLEFormat.Activate
End Sub

上述代码中，我们首先创建了一个名为objEq的OLE对象，它代表了一个MathType公式对象。然后，我们通过调用DoVerb方法激活了MathType编辑器，让用户可以编辑公式。在用户完成编辑并关闭MathType编辑器后，我们再通过调用Activate方法刷新公式对象，在文档中显示最新的公式。