How do I move endnotes to a new document?

[Guest]

I have am formatting articles to submit to a publishing house, and they have
very specific guidelines about how the documents should be orgainzed. I need
every section (article, references, endnotes) in a seperate document.

I do not want to have the ends as a subdocument to a master document - I
need them in a completely seperate Word file. When in the OUTLINE view, I
can cut and paste them from the subdocument, but then I (1) lose all
numbering when I paste them to a new document, and (2) have the problem of
what to do w/the endnotes in the original document.

Is it even possible to do this? Or should I contact the publishing house?

Thanks!

 

[Robert M. Franz (RMF)]

Hi kitty

I have am formatting articles to submit to a publishing house, and they have
very specific guidelines about how the documents should be orgainzed. I need
every section (article, references, endnotes) in a seperate document.

I do not want to have the ends as a subdocument to a master document - I
need them in a completely seperate Word file. When in the OUTLINE view, I
can cut and paste them from the subdocument, but then I (1) lose all
numbering when I paste them to a new document, and (2) have the problem of
what to do w/the endnotes in the original document.

Problem #1 is easily solved: Don't bother about the numbering, just past
it. Now, format the style you used in this endnote document to have an
automatic numbering.

#2, hmm, I would do it like this: create an SEQ field like this
(anywhere in your document, or in a new empty one, doesn't matter):

{ SEQ endnotes }

[Note: the curly braces are Word's field braces, you need to create
these with CTRL-F9! You may read up on field codes and SEQ in Word's
offline Help ... And you can put anything else like a square bracket
around the whole field if that's how you'd like your references to look
like in the end.]

Now copy the whole field into the clipboard. Then switch back to the
document, use Edit | Replace, and

Search for: ^e
Replace with: ^c

This replaces all endnote references with the contents of your clipboard.

HTH
Robert

 

[Doug Robbins - Word MVP]

Running a macro containing the following code should do what you want. You
should always save your original document first, just in case something goes
wrong

Dim aendnote As Endnote
Dim target As Document, source As Document
Set source = ActiveDocument
Set target = Documents.Add
source.Activate
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
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