Home |
Search |
Today's Posts |
#3
![]()
Posted to microsoft.public.word.mailmerge.fields
|
|||
|
|||
![]()
Thank you. That got me going and I solved my issue.
"Doug Robbins - Word MVP" wrote: If you add another column as the first column of the table in your mailmerge main document and insert the nextpagen field into that cell, and possibly modify what you now have in the nextpagen field, then execute the merge to a new document and run the following macro over that document, it will create a document in which a table is started on a new page every time the data in the nextpagen field changes ' 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 "Someguy51" wrote in message ... Hi, I'm doing a catalog/directory mail merge. I want to conditionally insert a page break. I was able to do it by having { IF {MERGEFIELD nextpagen} 0, "New Page"} However the issue is that the data inside my catalog merge is inside a table. The "IF" code is at the top of the page and the table with the merge fields starts right below it. The final merge has the data on the right pages but the has a seperate table for each row. Is there a way I can insert the page break and have the rows inside one table? Thank You |
Thread Tools | |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
how do I insert a page break in a directory merge? | Mailmerge | |||
Insert line into catalog mail merge | Mailmerge | |||
Automated mail merge of catalog/directory inserts page breaks | Mailmerge | |||
how do i conditionally format in a mail merge document | Mailmerge | |||
Can I insert a a filter and a page break on a mail merge? | Mailmerge |