Answer: A macro to reinsert Word footnotes

OK, try this then:

Sub A_macro_to_reinsert_Word_footnotes()
    Dim ft As Footnote, ftNew As Footnote, i As Long, ftcntr As Long, d As Document, ur As UndoRecord
    Set ur = Word.Application.UndoRecord
    ur.StartCustomRecord "A_macro_to_reinsert_Word_footnotes"
    Set d = ActiveDocument
    ftcntr = d.Footnotes.Count
    For i = 1 To ftcntr
        Set ft = d.Footnotes(i)
        Rem just