请教：参数定义提示“用户定义的类型未定义”如何解决

cqhaibo

Sub CheckStandard()
Dim ref As Reference
Dim doc As Document
Set doc = ActiveDocument
For Each ref In doc.Bibliography.Sources '遍历所有引用
If ref.Type = wdRefTypeLegalStatute Then '判断是否为法律条款/法规
    If ref.Tag <> "" Then '判断标签是否为空
        If ref.Style = "作废的标准" Then '判断是否为作废的标准，如果作废，提示最新的标准规范名称
            MsgBox "当前引用的标准已作废，最新的标准规范名称为：" & ref.Title
        End If
    End If
End If
Next ref
End Sub

请教各位老师，上述代码中红色部分提示“用户定义的类型未定义”，该如何解决？谢谢！

蓝桥玄霜

没有Reference这个对象，可以试试Dim ref

cqhaibo

蓝桥玄霜 发表于 2023-3-29 12:40
没有Reference这个对象，可以试试Dim ref

运行至：For Each ref In doc.Bibliography.Sources
弹出：运行时错误
请教老师，什么原因