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.
--
Stefan Blom
Microsoft Word MVP
"NHMM" wrote:
[Quoted Text] > 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
|