catalog merge invoice-force a page change

M

mnm_nut

I have an invoice (in Word 2003-catalog/directory merge) I am merging the customers Excel data base into... need info at top of page and bottom (shipping labels)- with multi merge line entries in body - want to send data to a new page when the order number changes (or if easier when line number goes back to "1") but keep the correct shipping label info at bottom of page. Been studying the fieldcodes but I am not advanced enough-need help! All of the data (ship to,bill to, subtotals etc) is included in each data source entry - need to goto new page when order changes -
 
D

Doug Robbins - Word MVP

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, you may be able to modify the following macro to do what you want:

' Throwaway Macro created by Doug Robbins

' Macro to create multiple items per condition 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.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
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


--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP
mnm_nut said:
I have an invoice (in Word 2003-catalog/directory merge) I am merging the
customers Excel data base into... need info at top of page and bottom
(shipping labels)- with multi merge line entries in body - want to send data
to a new page when the order number changes (or if easier when line number
goes back to "1") but keep the correct shipping label info at bottom of
page. Been studying the fieldcodes but I am not advanced enough-need help!
All of the data (ship to,bill to, subtotals etc) is included in each data
source entry - need to goto new page when order changes -
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top