Share via

Merge docs, putting all endnotes at end of doc, but preserving endnote numbering for each chaper

Anonymous
2018-01-24T20:31:13+00:00

I am combining chapters into one Word doc to submit to my publisher. All endnotes should appear at the end of the document, but should retain the numbering that appears in the individual chapters (endnotes 1-90 for Chapter 1; 1-88 for Chapter Two, etc.). Any tips on how to do so? Thanks!!!

Moved from Office / Word / Windows 10 / Office 2010

Microsoft 365 and Office | Word | For home | Windows

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments No comments

1 answer

Sort by: Most helpful
  1. Doug Robbins - MVP - Office Apps and Services 323K Reputation points MVP Volunteer Moderator
    2018-01-24T23:38:37+00:00

    IF each chapter contains only one Section, and you insert each chapter into a separate Section (insert a Section Break), then after combining the documents, if you go to the access the Footnote and Endnote dialog and set the options as shown below, I think that the Endnotes will be relocated to the End of the document with their original numbering retained.

    If each chapter contains multiple Sections, then, you could run the following macro on each of the chapter documents before combining them and the manually copy and replace the "textnotes" from the end of each chapter to the end of the document (in the appropriate order)

    ' 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

    Was this answer helpful?

    2 people found this answer helpful.
    0 comments No comments