splitting large merge document into smaller files (asked before, but I think this is different)

[Rua]

Hi,

I have created a large (800 plus page) merge document from an access
database. The document has a single identifying code where there are
up to 5 assosicated rows within the database. The identifying code is
deliberately not repeated in the resultant merged document.
What I would like to do is to split the merged doc into unique smaller
docs based on the identifier. I have tried to insert bookmarks in the
merge code but they do not appear to be carried into the resultant
merge.

I've attached the code used in the merge below, can anyone help me out
here, please?

Thanks

Phil

{if {mergeseq} = "1" "{mergefield identifier}" ""}
{set place1 {mergefield identifier}}
{if {place2}<>{place1}"code_{mergefield identifier} - - I inserted
this to use as a reference

Salutation and non referenced content of merge document

{set place2 {mergefield identifier}}

 

[Doug Robbins]

The macro in the following may be of interest to you

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

 

[rua]

Thanks Doug,

I'll give it a try and let you know how I get on.

Phil

 

[rua]

Thanks Doug

I was able to use a different way to access the data which allowed me to
create a simpler merge.

Thanks again