Como mover as notas de rodapé do MS Word para cima em texto do corpo

Question

Eu tenho um documento do MS Word com mais de 100 notas de rodapé. Eu quero trazê-los para o texto (onde o número sobrescrito atualmente é) medido por uma tag <ref></ref> para que eu possa colocar o documento em um wiki. Como faço isso?

    

Answer 1

Acabei indo com uma macro:

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