Appliquer la macro ci-dessous :

 

Sub RenumNotes()
'macro écrite par Geo
Dim i As Integer
Dim MaNote As Footnote
Dim texte As Range
' Met en numérotation automatique les notes de bas de page
Selection.HomeKey Unit:=wdStory
For i = 1 To ActiveDocument.Footnotes.Count
Set MaNote = ActiveDocument.Footnotes(i)
texte = MaNote.Range
Selection.GoTo What:=wdGoToFootnote, Which:=wdGoToNext, Count:=1
MaNote.Delete
ActiveDocument.Footnotes.Add Range:=Selection.Range, Text:=texte
Next
End Sub