Endnotes at end of document with text to start each chapter's endn

[Guest]

My publisher wants the endnotes at the end of my book, and with the numbering
starting over for each chapter. And, the number for each chapter's endnotes
is supposed to start over at 1.

I'm getting all the endnotes to come out at the end of the document okay.
However, so far, the effect of this is that the notes all appear together,
and when the switch between chapters occurs, the sequence of notes
will, for example, go from number 20 to number 1, with no extra vertical
blank space, nor other indication that another chapters note's are coming
next.

I would like for Word to add some vertical blank space, and some kind of
textual subheader for each chapter's notes. Something like "Notes for
Chapter One",
"Notes for Chapter Two", etc.

I think my version of Word is 2002 with Service Pack 3, or perhaps 2003.

 

[Stefan Blom]

You will have to add the spacing or "Notes for Chapter #" text manually,
I'm afraid; Word does not offer a way to do this automatically.

--
Stefan Blom
Microsoft Word MVP


in message
news:[email protected]...

 

[Guest]

Stefan, thanks for answering.

Everyone, I need help to know how to add the
"Notes for Chapter #" manually. I have tried setting the
seperator thingee and the continuation thingee and neither
of them had any effect. There is no seperator at all appearing
between the notes for each chapter, nor a continuation thingee
either.

thanks.

 

[Doug Robbins - Word MVP]

It would be possible to modify this macro to do what you want

' 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


--
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

 

[Stefan Blom]

You would have to make these manual changes in the actual endnotes area,
adding Spacing Before or Spacing After to the appropriate endnotes
and/or inserting typed text between them. In other words, this would be
completely manual work that had to be done after editing is completed
(at the point when you know that no notes will be added or removed).
Needless to say, if it's a long document, it will be very inconvenient.

Doug's suggestion, using a macro to convert endnotes to text, would be a
lot better--assuming that the macro can be modified to restart numbering
at the appropriate locations; in its current version, it just replaces
the endnotes with a single sequence (of Arabic numbers).

--
Stefan Blom
Microsoft Word MVP


in message

 

[Stefan Blom]

Of course, Doug's method also assumes that editing is complete, since it
will convert the endnote numbers to static text. The advantage is that
you will then be able to add headers and footers in the "endnote area,"
which will help readers of your document to find the notes more easily.

--
Stefan Blom
Microsoft Word MVP


in message