Hi Hadrien,
Try this, see code comments proceeded with ' for descriptions
=X=
Code:
Dim oFeets As Footnotes
Dim oFoot As Footnote
Dim oRange As Range
Dim szFootNoteText As String
' Grabs the collection of FootNotes
Set oFeets = Word.ActiveDocument.Footnotes
' Iterates through each footnote
For Each oFoot In oFeets
'See the footnote text
MsgBox oFoot.Range.Text
szFootNoteText = oFoot.Range.Text
'Start search from beginning of document
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^f" ' Looks for all footnotes
.Forward = True
.Wrap = wdFindStop
End With
Selection.Find.Execute
' Delete the footnote
oFoot.Delete
'Insert the footnote text
'Here you do whatever format tickles your fancy
Selection.Text = "<" + szFootNoteText + ">"
Selection.InsertParagraphBefore
Selection.InsertParagraphAfter
Selection.Font.Bold = wdToggle
Next