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 !