Как переместить сноски MS Word в основной текст

Question

У меня есть документ MS Word с более чем 100 сносками. Я хочу перенести их в текст (там, где в настоящее время находится верхний индекс) с <ref></ref> чтобы я мог поместить документ в вики. Как мне это сделать?

Answer 1

Я закончил с макросом:

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