Home |
Search |
Today's Posts |
#1
|
|||
|
|||
end notes problem, pushlisher request and not authors
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? |
#2
|
|||
|
|||
Manually, I'm afraid.
-- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA Word MVP FAQ site: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. "Andy Flagg" Andy wrote in message ... 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? |
#3
|
|||
|
|||
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 On 2/2/05 11:57 AM, "Andy Flagg" wrote: 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? -- Daiya Mitchell, MVP Mac/Word Word FAQ: http://www.word.mvps.org/ MacWord Tips: http://www.word.mvps.org/MacWordNew/ What's an MVP? A volunteer! Read the FAQ: http://mvp.support.microsoft.com/ |