Convert footnotes to ordinary text

[Fredrik E. Nilsen]

Hello,

I have a large document with several hundred footnotes. I'm looking
for a code to replace the footnote reference with the actual footnote
text. Any ideas on where to start?

 

[Shauna Kelly]

Hi Fredrik

The following should get you started:

Sub ReplaceFootnotesWithTheirText()

Dim nCounter As Long
Dim fn As Word.Footnote
Dim rngFN As Word.Range

For nCounter = ActiveDocument.Footnotes.Count To 1 Step -1
'Get a reference to our footnote
Set fn = ActiveDocument.Footnotes(nCounter)

'Work out where to copy the text
Set rngFN = fn.Reference
rngFN.Collapse wdCollapseEnd

'Copy the text of the footnote into the body of the document
rngFN.FormattedText = fn.Range.FormattedText

'Delete the footnote
fn.Delete

Next nCounter

End Sub


Hope this helps.

Shauna Kelly. Microsoft MVP.
http://www.shaunakelly.com/word

 

[Fredrik]

Not only did it get me started, it worked like a charm right out of
the box. Thanks a lot!

 

[Shauna Kelly]

Hi Fredrik

I'm glad it worked. Thanks for letting us know.

Shauna

Shauna Kelly. Microsoft MVP.
http://www.shaunakelly.com/word

 

[Raul Garcia]

Thank you very much, Shauna. I had been looking for a script like this. I do have an additional question, though.
How could I keep the reference numbers (or letters) instead of deleting them, and enclose the formatted footnotes, say, in angle brackets or some other symbol, to make them stand out in the body of the text?

Thanks so much!