Recherche

Avec une macro :

Sub notes()
'macro écrite par m@rina
Dim note As Footnote, notetexte As String
Selection.HomeKey Unit:=wdStory
For Each note In ActiveDocument.Footnotes
notetexte = ActiveDocument.Footnotes(1).Range.Text
Selection.GoTo What:=wdGoToFootnote, Which:=wdGoToNext
note.Delete
Selection.InsertAfter "(" & notetexte & ")"
Next
End Sub

 

Ici le texte des notes s'insère à la place des appels de notes, entre parenthèses. On peut choisir autre chose bien entendu !
 

Statistiques

France 72,5% France
Canada 7,2% Canada
Belgique 4,0% Belgique

Total:

123

Pays
018328275
Aujourd'hui: 18
Hier: 427
Cette semaine: 854
Semaine dernière: 2.756
Ce mois: 3.993