Jak przenieść przypisy MS Word do tekstu podstawowego

Mam dokument MS Word z ponad 100 przypisami. Chcę umieścić je w tekście (gdzie obecnie znajduje się numer indeksu górnego) za pomocą <ref></ref>znacznika, dzięki czemu mogę umieścić dokument na wiki. Jak mam to zrobic?

Skończyło się na makrze:

Sub AddFnTextInBodyOfDoc()
Dim f As Footnote
Dim r As Range

For Each f In ActiveDocument.Footnotes
Set r = f.Reference
r.Collapse wdCollapseEnd
r.InsertAfter "<ref>" & f.Range.Text & "</ref>"

Next f
End Sub