footnote renumbering

[Liz]

Working with Word footnotes, we have a document that does
not number footnotes correctly. It will show a 1 and then
further down, another 1. It could be because some sections
of the doc came from WordPerfect. However there are no
section breaks, and all the footnote nos. have been
formatted with the correct style. There seems to be no
renumber command to adjust them. The only workaround so
far is to delete the reference in the text and redo it.
Any suggestions?

 

[Klaus Linke]

Hi Liz,

You could test the macro below, which should reset all footnotes to use
default autonumbering.

It's nothing fancy. The macro works the brutal way by deleting each
footnote and immediately inserting a new one with the same text.

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

 

[Liz]

The macro worked great! Thanks so much!

-----Original Message-----
Hi Liz,

You could test the macro below, which should reset all footnotes to use
default autonumbering.

It's nothing fancy. The macro works the brutal way by deleting each
footnote and immediately inserting a new one with the same text.

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





.

 

[Klaus Linke]

The macro worked great! Thanks so much!

Wow, that was fast: Found my post, copied the macro and ran it, verified
that it fixed the footnotes, and all in 11 minutes!

If you ever need a new job, might you consider moving to Stuttgart?

Regards,
Klaus

 

[Liz]

Stuttgart sounds wonderful! Much better than Houston which
is now on the cusp of a raging hurricane as we speak! I
had better be fast before we are blown out of our
skyscraper!