MS Wordの脚注を本文に移動する方法

100以上の脚注を含むMS Word文書があります。<ref></ref>タグで囲まれたテキスト（現在は上付き文字の番号）にそれらを持ち込み、ドキュメントをwikiに配置できるようにします。どうすればいいですか？

私はマクロで行くことになりました：

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