' Macro created 29/09/99 by Doug Robbins to replace endnotes with textnotes at end of document
' to replace the endnote reference in the body of the document with a superscript number.
'
    Dim aendnote As Endnote
    For Each aendnote In ActiveDocument.Endnotes
        ActiveDocument.Range.InsertAfter vbCr & aendnote.Index & vbTab & aendnote.Range
        aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
    Next aendnote
    For Each aendnote In ActiveDocument.Endnotes
        aendnote.Reference.Delete
    Next aendnote
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Superscript = True
    End With
    With Selection.Find
        .Text = "(a)([0-9]{1,})(a)"
        .Replacement.Text = "\2"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll