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