[Stefan Blom]

Doug Robbins has posted a macro that does this. You may want to try it
on a copy of the document first:

Sub ReplaceEndnotes()


' Macro created 29/09/99 by Doug Robbins to replace endnotes
'with textnotes
'at end of document
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)" 'Use ";" instead of ","
'if you're using comma as a
'decimal sign.

.Replacement.Text = "\2"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

--
Stefan Blom
Microsoft Word MVP


" roland" wrote in message
ups.com...
I have used the Insert Endnote facility to insert numbered
references
at the end of a document. I know want to split the manuscript into
two
separate files, one with the text and another with the references.
Is
it possible to keep the endnote numbers in the text and the
reference
file? I learned to do this for the crossreferences by pressing ctrl-
shift-F9. I want a similar solution for the end note numbers.