end notes problem, pushlisher request and not authors

A

Andy Flagg

The publisher has requested that a book with chapters as separate files have
the end notes not at the end of the chapter in the file, but part of a
merged file. The separate chapters will have end note markers in the body of
the text like it should be, but not at the footer nor at the end of the
document by design.

Is there a way to accomplish this?
 
D

Daiya Mitchell

If you want to effectively cut all the endnotes from the chapter file and
paste them into a separate file, Doug Robbins has written a macro that will
do that, I believe. The original macro replaces the endnote reference with a
superscript number, and copies the text of the note as plain text at the end
of the document--he modified it to copy the notes into different doc, but
once the numbers and text are sorted out, you could easily do that part
yourself. Below are the two macros,, read the descriptions, see here for
what to do with them,

What do I do with macros sent to me by other newsgroup readers to help me
out?
I don't know how to install them and put them to use
http://word.mvps.org/FAQs/MacrosVBA/CreateAMacro.htm

EXPERIMENT ON A COPY OF YOUR DOCUMENT!

Quoting:

This is an untested modification of a macro that converted endnotes to
ordinary text at the end of a document:

Dim aendnote As Endnote, Source As Document, Target As Document
Set Source = ActiveDocument
Set Target = Documents.Add
For Each aendnote In Source.Endnotes
Target.Range.InsertAfter vbCr & aendnote.Index & vbTab &
aendnote.Range
aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
Next aendnote
For Each aendnote In Source.Endnotes
aendnote.Reference.Delete
Next aendnote
Source.Activate
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

Here is the original macro

' 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
 
Top