How to Setup an Event Processor

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

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

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/Macros...lassEvents.htm


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

"Chaplain Doug" wrote in message
...
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

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