Appliquer la macro ci-dessous :

 

Sub RenumNotes()
'macro écrite par Geo
DimAs 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= 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

 

 

Statistiques

Aujourd'hui302
Hier1237
Cette semaine14323
Total depuis 20049552863

15
visiteurs actuellement en ligne