Footnote Summary

[NHMM]

Is there a way to print a summary of the footnotes in a document? (i.e. a
list showing the footnotes and the page where it is used)
Thanks

 

[Stefan Blom]

This simple macro should work:

Sub TestFootNotes()
Dim f As Footnote
Dim d As Document
Dim n As Document
Set d = ActiveDocument
Set n = Documents.Add

n.Content.InsertAfter "Footnotes in document " & d.FullName
n.Content.InsertParagraphAfter

For Each f In d.Footnotes

n.Content.InsertAfter f.Index & " " & f.Range.Text & _
" on page: " & f.Range.Information(wdActiveEndPageNumber)
n.Content.InsertParagraphAfter
Next f
End Sub

For assistance, see http://www.gmayor.com/installing_macro.htm.