Mismatched Footnote Numbering

[Mischa Daniels]

I am using Word 2007 and having difficulties with a document I'm editing for
someone with over 300 footnotes. I am not tracking changes and am working
with the document in the Final View. My problem is: as I'm moving working
the document, the superscripts marking a footnote are not matching the
numbering of the footnotes displayed at the end of the page. For instance, a
sentence will read:

blah blah blah.32

But, the footnote will read:

______________________________
34. blah blah blah footnote

The numbering at the bottom of the page is correct as I add and delete
footnotes, but the numbers on the superscripts within the document are
incorrect. How do I correct the numbering within the document?

Thanks.

 

[Klaus Linke]

[footnote numbers wrong with "Track Changes"]


Hi Mischa,

Neither turning off "Track Changes" nor switching to Final View fixes the
numbering issues.
You'll have to accept all changes.

I'm surprised that the numbers in the text are different from those below in
the footnotes.
I thought "Track changes" would just mess with both equally (so you'd see
footnotes numbered out of order, both up in the text and below).
But then I don't work with footnotes and "Track changes" often.

Regards,
Klaus

 

[Mischa Daniels]

Hi Klaus,

I've tried this several times and it has not resolved the issue. I'm not
sure what's going on. I'm afraid I may have to retype the entire document
(90 pages) to erase whatever formatting problems other authors have placed
into the document.

 

[Klaus Linke]

Hi Klaus,

I've tried this several times and it has not resolved the issue. I'm not
sure what's going on. I'm afraid I may have to retype the entire document
(90 pages) to erase whatever formatting problems other authors have
placed into the document.

Hi Mischa,

Maybe the authors overtyped Word's footnote references. The macro below will
delete and reinsert all footnotes... That should fix *that* problem (if that
is the problem that is <g>).

Re-typing sounds drastic. You can remove all formatting (Ctrl+A to select
everything, Ctrl+N to apply Normal style, Ctrl+Q to remove paragraph
formatting, Ctrl+Spacebar to remove character formatting).
Then you can apply proper formatting.

Regards,
Klaus

Sub RepairFootnotes()
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