How to Move MS Word Footnotes Up Into Body Text

Question

I have a MS Word document with 100+ footnotes. I want to bring them into the text (where the superscript number currently is) spanned by a <ref></ref> tag so I can place the document on a wiki. How do I do this?

Answer 1

I ended up going with a 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