Comment renumeroter des notes de bas de page

En écriture sur une these , certaines notes de bas de page ont été faites
manuellement et d'autre en automatique.
Comment puis-je remettre toutes ces notes bas de page par une numérotation
automatique et croissante ?

Je ne sais pas s'il y a un truc automatique mais j'ai une vieille macro
:
Sub RenumNotes()
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

--
A+