' copyright 2003 Robert M. Horton <rmhorton@attotron.com>
' This is open source software released under the GNU GPL (www.gnu.org/copyleft/gpl.html)

Sub getEndnoteRefs()

    Dim en As Endnote
    Dim i As Integer
    Dim cnt As Integer
    Dim refs(1 To 100) As String ' for no more than 100 refs...
	' use range to preserve endnote formatting?
    Dim endRng As Range
    Set endRng = ActiveDocument.Range
    endRng.Collapse wdCollapseEnd
    endRng.InsertAfter "References:" + vbCr
    
    Let cnt = ActiveDocument.Endnotes.Count

    For i = cnt To 1 Step -1
        Set en = ActiveDocument.Endnotes.Item(i)
        Let refs(i) = en.Index
        refs(i) = refs(i) + ". " + en.Range.Text
        en.Reference.Select
        Selection.Text = en.Index
        Selection.Font.ColorIndex = wdRed
    Next i
    For i = 1 To cnt
        'Debug.Print refs(i)
        endRng.InsertAfter refs(i) + vbCr
    Next i

End Sub


Sub getFootnoteRefs()

    Dim fn As Footnote
    Dim i As Integer
    Dim cnt As Integer
    Dim refs(1 To 100) As String ' for no more than 100 refs...
    ' use range to preserve endnote formatting?
    Dim endRng As Range
    Set endRng = ActiveDocument.Range
    endRng.Collapse wdCollapseEnd
    endRng.InsertAfter "References:" + vbCr
    
    Let cnt = ActiveDocument.Footnotes.Count

    For i = cnt To 1 Step -1
        Set fn = ActiveDocument.Footnotes.Item(i)
        Let refs(i) = fn.Index
        refs(i) = refs(i) + ". " + fn.Range.Text
        fn.Reference.Select
        Selection.Text = fn.Index
        Selection.Font.ColorIndex = wdRed
    Next i
    For i = 1 To cnt
        'Debug.Print refs(i)
        endRng.InsertAfter refs(i) + vbCr
    Next i

End Sub