Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Word / Mailmerge and Fax / August 2005

Tip: Looking for answers? Try searching our database.

Endnotes do not print correctly in a merge

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Art K - 02 Aug 2005 22:16 GMT
I have a two page business letter with two endnotes.  The two endnotes are by
themselves on page 2, that also has a different header (author & date).  When
I do the merge to a new document (to prepare for printing) page one of the
letter is merged correctly but without a page 2.  At the end of the new
document the end notes are printed with multiple copies of the two endnotes
on one page.  In other words if I am merging to send a letter to six people,
six page ones are printed, followed by two pages containing six sets of
endnotes.  

I tried placing a character (E.G. *) on page 2 outside of the endnotes
trying to get Word to recognize that each letter was two pages long.  

The status bar? at the bottom of the screen calls it page 2, section 4, but
it does not print as page two if more that one copy of the letter is to be
printed.
Doug Robbins - 02 Aug 2005 22:33 GMT
If you use the following macro, it should overcome the endnotes problem

' 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

When printing, you need to specifiy the section number as well as the page
number.  e.g. p2s1 for the second page of section 1.  A new section is
created for each record in the data source.

Signature

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

>I have a two page business letter with two endnotes.  The two endnotes are
>by
[quoted text clipped - 16 lines]
> it does not print as page two if more that one copy of the letter is to be
> printed.

Rate this thread:






 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.