So you just want to mark the broken cross-references to check out, right?
How about this:
Sub MarkInvalidCrossReferences()
    Dim ref
    Dim f As Field
    Dim d As Document, rng As Range
    Dim cln As New VBA.Collection, ur As UndoRecord
    Set ur = word.Application.UndoRecord
    ur.StartCustomRecord "MarkInvalidCrossReferences"
    Set d = ActiveDocument
    For 

 
    
Top comments (0)