Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.docmanagement
LS LS is offline
external usenet poster
 
Posts: 30
Default Endnotes - Numbering, Pages Headers, Etc.

I am preparing a book in Word. Currently, I have all content (text +
endnotes) in a single matser document and need to create separate files for
each chapter. Once I do that, I will need to copy each chapter's endnotes
into a separate file.

I have two question:
1. Once I create the separate chapter files, is there any way to copy the
endnotes for a given chapter into a new document, without all the notes being
converted to "1" (which is what happens now)? In other words, how do I
preserve the numbering scheme across documents?

2. If I prefer to keep a copy of a chapter's endnotes within the chapter
file, is there a way to prevent the header's page number from numbering the
endnote pages? In other words, I want the numbering to stop on the last page
of content in a given chapter.

Any help would be appreciated.


  #2   Report Post  
Posted to microsoft.public.word.docmanagement
Doug Robbins - Word MVP Doug Robbins - Word MVP is offline
external usenet poster
 
Posts: 8,832
Default Endnotes - Numbering, Pages Headers, Etc.

This might help with the endnotes part:

' 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

"LS" wrote in message
news
I am preparing a book in Word. Currently, I have all content (text +
endnotes) in a single matser document and need to create separate files
for
each chapter. Once I do that, I will need to copy each chapter's endnotes
into a separate file.

I have two question:
1. Once I create the separate chapter files, is there any way to copy the
endnotes for a given chapter into a new document, without all the notes
being
converted to "1" (which is what happens now)? In other words, how do I
preserve the numbering scheme across documents?

2. If I prefer to keep a copy of a chapter's endnotes within the chapter
file, is there a way to prevent the header's page number from numbering
the
endnote pages? In other words, I want the numbering to stop on the last
page
of content in a given chapter.

Any help would be appreciated.




Reply
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
How do I unlink endnotes but keep numbering in text and ref list? oritil Microsoft Word Help 7 November 9th 07 02:11 PM
Styleref in headers of pages displaying endnotes Philologist Page Layout 2 June 21st 06 01:51 AM
Numbering of endnotes/footnotes in Word 2004 ekaram New Users 3 May 5th 06 12:18 PM
I want two pages with no numbering and then start page numbering. G Microsoft Word Help 2 September 30th 05 09:48 PM
Can I add additional pages after my endnotes in one document? cuencadillo Page Layout 3 November 30th 04 05:30 PM


All times are GMT +1. The time now is 03:16 PM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"