Есть 10 тыс. ссылок, которые надо сверить с 40 тыс. ссылок и удалить совпадающие

Public Sub HypLinks_copy()
    Dim DataDoc As Document, TargetDoc As Document
    Dim HLobj As Hyperlink
    Set DataDoc = Application.ActiveDocument
    Set TargetDoc = Application.Documents.Add
    TargetDoc.Activate
    For Each HLobj In DataDoc.Hyperlinks
        If HLobj.Address Like "*db.chgk.info/question*" Then
            
            TargetDoc.Hyperlinks.Add Anchor:=Selection.Range, Address:=HLobj.Address, TextToDisplay:=HLobj.Address
            Selection.TypeParagraph
            
        End If
    Next HLobj
    Set DataDoc = Nothing
    Set TargetDoc = Nothing
    
End Sub

Public Sub HypLinks_audit()
    Dim DataDoc As Document, TargetDoc As Document
    Dim HLobj As Hyperlink, HL2obj As Hyperlink
    
    Set DataDoc = Application.Documents.Item("10.docm")
    Set TargetDoc = Application.Documents.Item("40 all.docm")
    
    
    For Each HLobj In DataDoc.Hyperlinks
        If HLobj.Address Like "*db.chgk.info/question*" Then
            For Each HL2obj In TargetDoc.Hyperlinks
                If HLobj.Address = HL2obj.Address Then
                    HLobj.Range.Delete
                    HL2obj.Range.Delete
                    Exit For
                End If
            Next
        End If
    Next HLobj
    Set DataDoc = Nothing
    Set TargetDoc = Nothing
    
End Sub

Public Sub HypLinks_audit()
    Dim DataDoc As Document, TargetDoc As Document
    Dim HLobj As Hyperlink, HL2obj As Hyperlink
    Dim j1, j2, spath
    spath = Word.ActiveDocument.Path & ""
    Set DataDoc = Application.Documents.Item(spath & "10.docx")
    Set TargetDoc = Application.Documents.Item(spath & "40.docx")
    
    j1 = DataDoc.Hyperlinks.Count
    Debug.Print j1, DataDoc.Name
    
    Do While j1 > 0
    Set HLobj = DataDoc.Hyperlinks(j1)
    
        If HLobj.Address Like "*db.chgk.info/question*" Then
        Debug.Print j1, HLobj.Address
        
        j2 = TargetDoc.Hyperlinks.Count
        Debug.Print j2, TargetDoc.Name
            Do While j2 > 0
            Set HL2obj = TargetDoc.Hyperlinks(j2)
                If HLobj.Address = HL2obj.Address Then
                 Debug.Print j1, j2, HLobj.Address
                    HLobj.Range.Delete
                    HL2obj.Range.Delete
                   
                    Exit Do
                End If
            j2 = j2 - 1
            Loop
        End If
    j1 = j1 - 1
    Loop
    Set DataDoc = Nothing
    Set TargetDoc = Nothing
    
End Sub

Public Sub HypLinks_audit_index()
    Dim DataDoc As Document, TargetDoc As Document
    Dim i As Long, j As Long, n1 As Long
    
    Set DataDoc = Application.Documents.Item("10.docm")
    Set TargetDoc = Application.Documents.Item("40 all.docm")
    n1 = DataDoc.Hyperlinks.Count
    
    For i = n1 To 1 Step -1
        If DataDoc.Hyperlinks.Item(i).Address Like "*db.chgk.info/question*" Then
            For j = TargetDoc.Hyperlinks.Count To 1 Step -1
                If DataDoc.Hyperlinks.Item(i).Address = TargetDoc.Hyperlinks.Item(j).Address Then
                    DataDoc.Hyperlinks.Item(i).Range.Delete
                    TargetDoc.Hyperlinks.Item(j).Range.Delete
                    Exit For
                End If
            Next j
        End If
    Next i
    
    Set DataDoc = Nothing
    Set TargetDoc = Nothing
    
End Sub