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 / April 2006

Tip: Looking for answers? Try searching our database.

End Note

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Al - 12 Apr 2006 15:40 GMT
Hi, hope this is the right forum.

I have a 2 page document, created from a template, that contains an EndNote.

If I do a MailMerge, and create a single record, the note appears at the end
of the document.  However if I do a mailmerge to file, of say 21 records,
the End notes do not appear at the end of page 2, but I get 21 instances at
the end of the document.

Is this right, and can anyone advise me what i have done wrong?

Thanks
A
Doug Robbins - Word MVP - 12 Apr 2006 20:08 GMT
Use the Location pulldown in the Insert EndNote dialog to set the location
to the End of the Section rather than the end of the Document in the mail
merge main document.  In the Format section of that dialog, you will also
need to set the Numbering to restart at each section.

If that doesn't work, use the following macro on the main document to
convert the end note to a "text note"

' 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

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

> Hi, hope this is the right forum.
>
[quoted text clipped - 10 lines]
> Thanks
> A
 
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.