End Note

[Al]

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]

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

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