[margarok]

I am preparing a book for publication and need to save the Endnotes separate
from the numbered chapters. I can copy and paste the endnotes into a
separate document, but then I have to renumber them, using section breaks to
restart numbering.

However, I need to be able to save the chapters with the superscripted
endnote numbers intact. Can anyone help me do this without having to jump
through the text and insert the numbers manually?

[Doug Robbins - Word MVP]

' 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


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"margarok" wrote in message
...
I am preparing a book for publication and need to save the Endnotes
separate
from the numbered chapters. I can copy and paste the endnotes into a
separate document, but then I have to renumber them, using section breaks
to
restart numbering.

However, I need to be able to save the chapters with the superscripted
endnote numbers intact. Can anyone help me do this without having to jump
through the text and insert the numbers manually?

[margarok]

Thanks for the help. I'll try this and really appreciate your advice.

"Doug Robbins - Word MVP" wrote:

' 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


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"margarok" wrote in message
...
I am preparing a book for publication and need to save the Endnotes
separate
from the numbered chapters. I can copy and paste the endnotes into a
separate document, but then I have to renumber them, using section breaks
to
restart numbering.

However, I need to be able to save the chapters with the superscripted
endnote numbers intact. Can anyone help me do this without having to jump
through the text and insert the numbers manually?