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

[Doug Robbins - Word MVP]

Hi Dawn,

If Klaus' code doesn't help, try mine:

Dim afnRange As Range, afntext As String, i As Integer
For i = 1 To ActiveDocument.Footnotes.Count
ActiveDocument.Footnotes(i).Reference.Select
Selection.Characters(1).Select
If Not Selection.Style = "Footnote Reference" Then
While Not Selection.Style = "Footnote Reference"
Selection.Collapse wdCollapseStart
Selection.MoveLeft wdCharacter
Selection.Characters(1).Select
Wend
Selection.Delete
End If
Set afnRange = ActiveDocument.Footnotes(i).Range
afntext = afnRange.Text
ActiveDocument.Footnotes(i).Delete
ActiveDocument.Footnotes.Add Range:=Selection.Range, Text:=afntext
Next i

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP
"Dawn" <dswee...@netscape.net> wrote in message
news:047401c35543$89876ef0$a101...@phx.gbl...