Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Word / Mailmerge and Fax / May 2004

Tip: Looking for answers? Try searching our database.

catalog merge invoice-force a page change

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
mnm_nut - 23 May 2004 17:41 GMT
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 -
Doug Robbins - Word MVP - 24 May 2004 00:33 GMT
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

Signature

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

> 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 -
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.