The only other way is to use a macro.

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

Hi Monika,

Been a long time since I read the article... I see what
you're talking about, BUT you should be able to set it up the
way I described. I've done it before, and so have others
(which is why it's been so long since I've read the article.

1. You don't need an extra column for "checked". You can test
the equivalent of "Employee".

2. You don't need NextIf, either.

Take a look at the following set of fields plus text. The ¶
is a paragraph mark (where you press ENTER). We start by
checking whether this is the first record, and if it is,
display the introductory text. Then we set the primary test
for the value on which the records are sorted. We do the
comparison, insert the text, then set the second test. As
each merge record cycles, the new value is checked against
the old value. Notice, too, which the static text is present
in both "true" and "false" conditions.

{ If { MERGEREC } = 1 "Employee: { MERGEFIELD "EmployeeID" }¶
" }{ Set test { MERGEFIELD "EmployeeID" } }¶
{ IF { Ref test } = { Ref testchange } "Item: { MERGEFIELD
"ProductName" }" "¶Closing text ---Page Break---
Employee: { MERGEFIELD "EmployeeID" }¶
¶
Item: { MERGEFIELD "ProductName" }" }{ Set testchange {
MERGEFIELD "EmployeeID" } }

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun
8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow
question or reply in the newsgroup and not by e-mail :-)