Hi Michael,

The following macro could probably be modified to do that:

' 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