Hello!
I've found a number of macro's which copy the text of footnotes into the body text. However, I haven't been able to find a macro that does this for all footnotes in the document, while retaining the hyperlinks.
For instance, this works well, but with hyperlinks being lost:
Code:
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 "$%" & f.Range.Text & "%$"
Next f
End Sub
Any help would be much appreciated!