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