How to Setup an Event Processor

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Chaplain Doug - 29 Dec 2005 17:18 GMT

Word 2003. I would like to use the MailMergeBeforeRecordMerge event with my
mailmerge document. How do I set this up so that it is triggered each time
before a new merge record is processed. I tried placing the exmaple code in
the code space for ThisDocument, but it does not work that way. The code is:

Private Sub MailMergeApp_MailMergeBeforeRecordMerge(ByVal Doc As Document,
Cancel As Boolean)
Static LastGolfer As String
Dim intZipLength As Integer, CurrentGolfer As String
intZipLength = Len(ActiveDocument.MailMerge.DataSource.DataFields(6).Value)
'Cancel merge of this record only if
'the zip code is less than five digits
If intZipLength < 5 Then
Cancel = True
End If
End Sub

Signature

Dr. Doug Pruiett
Good News Jail & Prison Ministry
www.goodnewsjail.org

Reply to this Message

Doug Robbins - Word MVP - 30 Dec 2005 10:20 GMT

It sounds like you might be using a hammer to crack a nut. You may be able
to do what you want by using the Skip Record If field, checking for the
value of the sixth data field.

However, see the "Individual Merge Letters" item on fellow MVP Graham Mayor's
website at:

http://www.gmayor.com/individual_merge_letters.htm

If you are using Word XP or later, the "Add-in to Merge Letters to Separate
Files" that I have written and that can be downloaded from that site will
allow you to create each letter as a separate file with a filename taken
from a field in the data source with a minimum of fuss.

If you study all of the code in that add-in you may get an idea how to get
the event processor to work.

Note, you will also need to have followed the information in the article
"Writing application event procedures" at:

http://www.word.mvps.org/FAQs/MacrosVBA/AppClassEvents.htm

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

> Word 2003. I would like to use the MailMergeBeforeRecordMerge event with
> my
[quoted text clipped - 17 lines]
> End If
> End Sub

Reply to this Message

Rate this thread: