Home |
Search |
Today's Posts |
#1
|
|||
|
|||
How can I copy endnotes to a new document?
A manuscript has been created with seprate documents for each chapter. Each
of these documents has endnotes. A publisher has requested that all the endnotes for each chapter be separated into one document for publication at the end of the book. Is there any way to copy just the endnotes from each chapter document into one new endnote only document? |
#2
|
|||
|
|||
Use google to search the archives of these groups. Doug Robbins has created
some macros that will convert endnotes to plain text, which you could then cut and paste as you like and have the numbers follow, so look for Doug Robbins as the author, and try various keywords. I know the question has come up a few times. This link should search all Word-dedicated groups hosted by MS, though you might need to add the .* at the end back, if the link broke. http://groups.google.com/advanced_gr....public.wor d ..* On 7/15/05 12:18 PM, "orioles29" wrote: A manuscript has been created with seprate documents for each chapter. Each of these documents has endnotes. A publisher has requested that all the endnotes for each chapter be separated into one document for publication at the end of the book. Is there any way to copy just the endnotes from each chapter document into one new endnote only document? -- 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/ |
#3
|
|||
|
|||
Here is the macro to which Daiya referred you. SAVE each document BEFORE
running it. ' Macro created 29/09/99 by Doug Robbins to replace endnotes with textnotes at end of document and ' 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 "orioles29" wrote in message news A manuscript has been created with seprate documents for each chapter. Each of these documents has endnotes. A publisher has requested that all the endnotes for each chapter be separated into one document for publication at the end of the book. Is there any way to copy just the endnotes from each chapter document into one new endnote only document? |
#4
|
|||
|
|||
On 7/16/05 2:09 AM, "Doug Robbins" wrote:
Here is the macro to which Daiya referred you. SAVE each document BEFORE running it. Do you mean do a Save As and do this on a COPY? That's what I would do anyhow, as these numbers will never update after running this and you may someday need to go back to the original doc. ' Macro created 29/09/99 by Doug Robbins to replace endnotes with textnotes at end of document and ' to replace the endnote reference in the body of the document with a superscript number. ' |
#5
|
|||
|
|||
Or, Save, run the macro and then do the Save As.
-- 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 "Daiya Mitchell" wrote in message .. . On 7/16/05 2:09 AM, "Doug Robbins" wrote: Here is the macro to which Daiya referred you. SAVE each document BEFORE running it. Do you mean do a Save As and do this on a COPY? That's what I would do anyhow, as these numbers will never update after running this and you may someday need to go back to the original doc. ' Macro created 29/09/99 by Doug Robbins to replace endnotes with textnotes at end of document and ' to replace the endnote reference in the body of the document with a superscript number. ' |
#6
|
|||
|
|||
Thanks for the help!
One more plea for assistance - Is there a good primer that you can point me to for creating a macro like this one? I'm trying to "cut and paste" but running into a bit of difficulty - getting "syntax errors" when I try to run the macro. Thanks again. "Doug Robbins" wrote: Or, Save, run the macro and then do the Save As. -- 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 "Daiya Mitchell" wrote in message .. . On 7/16/05 2:09 AM, "Doug Robbins" wrote: Here is the macro to which Daiya referred you. SAVE each document BEFORE running it. Do you mean do a Save As and do this on a COPY? That's what I would do anyhow, as these numbers will never update after running this and you may someday need to go back to the original doc. ' Macro created 29/09/99 by Doug Robbins to replace endnotes with textnotes at end of document and ' to replace the endnote reference in the body of the document with a superscript number. ' |
#7
|
|||
|
|||
One more plea for assistance - Is there a good primer that you can point me
to for creating a macro like this one? I'm trying to "cut and paste" but running into a bit of difficulty - getting "syntax errors" when I try to run the macro. Start here, if necessary: 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 Then see if this info helps, once you have the macro in the Visual Basic Editor: Common Problems: All macros must start with a Sub statement and end with an End Sub. If the code someone gave you already had the Sub/End Sub in it, you will need to delete the extra Sub lines. It is conceivable that a sophisticated piece of code may also contain Function() and End Function statements: for the purposes of this article, treat them as equivalent. Lines that show up in red have errors. This is most likely because there are line breaks in the wrong place, since newsgroups and email can force shorter line breaks. To fix these, place your cursor at the end of the first red line, and start tapping Delete. When you delete all the invisible spaces and carriage returns, the next line will move up and that may fix the problem. Do not delete any visible characters. Be aware that the statement in red may continue over three or four lines. You may need to re-enter a space that you delete. Laptop users: the delete key usually behaves as a backspace key. You could also backspace from the beginning of the lines in red, to let the VBE wrap the lines naturally. And perhaps see also: Guide to Installing Macros http://www.gmayor.com/installing_macro.htm -- 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/ |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I keep the bold font when I copy an paste a document into W | Microsoft Word Help | |||
How do I preserve hyperlinks when I copy (burn) Word document to a | Microsoft Word Help | |||
Document Map Question | Page Layout | |||
How do I copy certain text from a protected document? | Microsoft Word Help | |||
how to copy word document with header and paste in data base | Microsoft Word Help |