使用vba在word中输入数学公式代码错误不会看

未闻花名字

这是第一段源码，提示编译错误，方法和数据未找到
Sub InsertMathEquation()
    Dim doc As Document
    Set doc = Documents.Add ' 新建 Word 文档

    ' 引用 Microsoft Equation 3.0 库
    With doc.VBProject.References
        If Not .Exists("Equation") Then
            .AddFromFile "C:\Program Files\Common Files\Microsoft Shared\Equation\EQNEDT32.EXE"
        End If
    End With

    ' 插入数学公式
    Selection.InlineShapes.AddOLEObject ClassType:="x = (-b ± √(b^2 - 4ac)) / (2a)", Range:=Selection.Range

    ' 保存文档
    doc.SaveAs "C:\路径\文件名.docx" ' 替换为你想保存的路径和文件名

    ' 关闭文档
    doc.Close
End Sub

未闻花名字

这是第二段，在公式那一行报错，其他都可运行
Sub 插入随机文本和数学公式()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim rng As Object
   
    ' 创建 Word 应用程序对象
    Set wdApp = CreateObject("Word.Application")
   
    ' 创建新的 Word 文档
    Set wdDoc = wdApp.Documents.Add
   
    ' 获取文档的范围
    Set rng = wdDoc.Content
   
    ' 插入一行随机文本
    rng.InsertAfter "这是一行随机文本。"
   
    ' 插入一个数学公式
    rng.InsertParagraphAfter
    rng.Collapse 0
    rng.InsertFormula formula:="x = (-b ± √(b^2 - 4ac)) / (2a)"
   
    ' 保存文档
    wdDoc.SaveAs "D:\文件名.docx" ' 替换为你想保存的路径和文件名
   
    ' 关闭文档
    wdDoc.Close
   
    ' 退出 Word 应用程序
    wdApp.Quit
   
    ' 释放对象变量
    Set rng = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub