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)