Footnote Summary

  • Thread starter Thread starter NHMM
  • Start date Start date
N

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
 
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.
 
Back
Top