Footnotes moved to their actual position in the text
Hi Aart,
The following macro will replace each footnote reference with the number of
the footnote followed by a hyphen and then the text of the footnote, all
inside square brackets [ ]
Dim afn As Footnote
For Each afn In ActiveDocument.Footnotes
afn.Reference.InsertAfter "[" & afn.Index & " - " & afn.Range & "]"
Next afn
For Each afn In ActiveDocument.Footnotes
afn.Reference.Delete
Next afn
Please post any follow-up or new questions to the Newsgroups so that others
may benefit therefrom or contribute thereto.
Hope this helps,
Doug Robbins - Word MVP
Quote:
> Has anyone tried to create a macro which move the content of the footnote
to
> the place in the text where the reference is to that footnote?
> What should be the approach to create such a macro?
