有没有办法用VBA在MS Word中列出断开的内部超链接？(超链接子地址)

Sub ListBrokenHyperlinks()
    Dim hyperlink As Hyperlink
    Dim doc As Document
    
    Set doc = ActiveDocument
    
    ' 遍历文档中的每个超链接
    For Each hyperlink In doc.Hyperlinks
        ' 检查超链接是否为内部链接
        If hyperlink.Type = wdLinkTypeBookmark Then
            ' 检查超链接是否断开
            If hyperlink.SubAddress <> "" And hyperlink.Range Is Nothing Then
                ' 输出断开的超链接信息
                Debug.Print "断开的超链接地址: " & hyperlink.SubAddress
            End If
        End If
    Next hyperlink
End Sub