Footnotes won't renumber

[Dawn]

I'm working in a Word 2000 document with 300 footnotes.
(The original author may have used another program at some
point.) Half the footnotes will not renumber when a
footnote is added to the document. The problem footnotes
are identifiable as such only when the Show/Hide button is
pressed because their markers are not surrounded by a box.

Is there an easy way to fix this?

 

[Klaus Linke]

Hi Dawn,

Probably somebody has overtyped the footnote references in the footnote
pane (or they have been messed up by a file conversion).

The macro below deletes all footnotes, and reinserts them.

If you haven't used macros before, the article from Dave Rado will help you
to get it running:
http://www.mvps.org/word/FAQs/MacrosVBA/CreateAMacro.htm


Sub RepairFootnotes()
' Disclaimer: Make a backup of the file!
' This macro will remove any manually applied
' footnote numbering.
Dim myFootnote As Footnote
Dim i
For i = ActiveDocument.Footnotes.Count To 1 Step -1
Set myFootnote = ActiveDocument.Footnotes(i)
myFootnote.Range.Copy
myFootnote.Reference.Select
myFootnote.Delete
ActiveDocument.Footnotes.Add Selection.Range
Selection.Footnotes(1).Range.Paste
Next i
End Sub


Regards,
Klaus