[=X=]

Hi Hadrien,
Try this, see code comments proceeded with ' for descriptions
=X=

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