Endnote Problem-HELP!

[Leslie Beebe]

Here's my problem. I have 6 separate documents, each
with their own set of endnotes. What I want to do is
create a separate document that has all the endnotes from
all the chapters. You would think that this would be
easy-WRONG! It won't let me cut the endnotes out of the
document to paste into another new document. Is it
possible to do this? Please, anyone HELP!!!!

 

[Doug Robbins - Word MVP]

Hi Leslie,

The following macro will convert the endnotes to ordinary text which you
will be able to copy to another document.

Do not save the document after running the macro if you want to retain the
endnotes as true endnotes.

' 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

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a consulting basis.

Hope this helps
Doug Robbins - Word MVP