When I run ReLinkFootNotes(), I get an error on this line:

k = .Paragraphs(1).Range.Words(1) - 1

That says "Type mismatch." Would you have any recommendations how to resolve this issue?

The unlinking macro ran perfectly.

Thank you so much!