Reply
 
Thread Tools Display Modes
  #1   Report Post  
paldba
 
Posts: n/a
Default Mail Merge - Multiple Address Records

I am trying to create a mail merge document that will display all addresses
for a specific individual. Each individual has a unique identifier, but may
have between 1-4 addresses that will need to display on the letter. Each
address is a separate record. I have no problem displaying the first address
record on the document, but cannot determine how to display multiple
addresses, when applicable. Any suggestions would be greatly appreciated!!
  #2   Report Post  
Doug Robbins
 
Posts: n/a
Default

Word does not really have the ability to perform a "multiple items per
condition (=key field)" mailmerge.

See the "Multiple items per condition" item under the "Special merges"
section of fellow MVP Cindy Meister's website at

http://homepage.swissonline.ch/cindy...r/MergFram.htm

Or, if you create a Catalog (on in Word XP and later, it's called Directory)
type mailmerge main document with the mergefields in the cells of a one row
table in the mailmerge main document with the keyfield in the first cell in
the row and then execute that merge to a new document and then run the
following macro, it will create separate tables with the records for each
key field in them. With a bit of further development, you may be able to
get it to do what you want.

' Macro to create multiple items per condition in separate tables from a
directory type mailmerge

Dim source As Document, target As Document, scat As Range, tcat As Range
Dim data As Range, stab As Table, ttab As Table
Dim i As Long, j As Long, k As Long, n As Long
Set source = ActiveDocument
Set target = Documents.Add
Set stab = source.Tables(1)
k = stab.Columns.Count
Set ttab = target.Tables.Add(Range:=Selection.Range, numrows:=1,
numcolumns:=k - 1)
Set scat = stab.Cell(1, 1).Range
scat.End = scat.End - 1
ttab.Cell(1, 1).Range = scat
j = ttab.Rows.Count
For i = 1 To stab.Rows.Count
Set tcat = ttab.Cell(j, 1).Range
tcat.End = tcat.End - 1
Set scat = stab.Cell(i, 1).Range
scat.End = scat.End - 1
If scat tcat Then
ttab.Rows.Add
j = ttab.Rows.Count
ttab.Cell(j, 1).Range = scat
ttab.Cell(j, 1).Range.Paragraphs(1).PageBreakBefore = True
ttab.Rows.Add
ttab.Cell(j + 1, 1).Range.Paragraphs(1).PageBreakBefore = False
For n = 2 To k
Set data = stab.Cell(i, n).Range
data.End = data.End - 1
ttab.Cell(ttab.Rows.Count, n - 1).Range = data
Next n
Else
ttab.Rows.Add
For n = 2 To k
Set data = stab.Cell(i, n).Range
data.End = data.End - 1
ttab.Cell(ttab.Rows.Count, n - 1).Range = data
Next n
End If
Next i


--
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
"paldba" wrote in message
...
I am trying to create a mail merge document that will display all addresses
for a specific individual. Each individual has a unique identifier, but
may
have between 1-4 addresses that will need to display on the letter. Each
address is a separate record. I have no problem displaying the first
address
record on the document, but cannot determine how to display multiple
addresses, when applicable. Any suggestions would be greatly
appreciated!!



Reply
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Sending Mail Merge to Email to Multiple Recipients in the Same Mes Mark V Mailmerge 13 April 21st 23 05:06 PM
Mail merge is merging information from multiple records. DaveAtFpmsi Mailmerge 1 July 12th 05 05:42 AM
Query a mail merge for multiple letters at once? Brese Mailmerge 1 May 20th 05 02:10 PM
Mail merge option with multiple data source records in one letter. E Weij Mailmerge 1 April 18th 05 02:24 PM
how do I setup a mail merge with 4 separate address blocks (postca misschipper Mailmerge 1 March 10th 05 07:34 PM


All times are GMT +1. The time now is 10:36 AM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"