Reply
 
Thread Tools Display Modes
  #1   Report Post  
Mick M
 
Posts: n/a
Default Next page only when field changes

I have an excel file like this...

Client EE
------- -------
Client1 John
Client1 Ed
Client1 Jane
Client2 Dave
Client2 Beth


I want the output to be like this...

--------------------- Page 1 ----------------------------------

Client : Client1

You have employees with birthdays this month. Here they are...

John
Ed
Jane


------------------------- Page 2 --------------------------------

Client : Client2

You have employees with birthdays this month. Here they are...

Dave
Beth


---------------------------------------

Can I do this in Word?

  #2   Report Post  
Doug Robbins
 
Posts: n/a
Default

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/cindy...r/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
"Mick M" wrote in message
...
I have an excel file like this...

Client EE
------- -------
Client1 John
Client1 Ed
Client1 Jane
Client2 Dave
Client2 Beth


I want the output to be like this...

--------------------- Page 1 ----------------------------------

Client : Client1

You have employees with birthdays this month. Here they are...

John
Ed
Jane


------------------------- Page 2 --------------------------------

Client : Client2

You have employees with birthdays this month. Here they are...

Dave
Beth


---------------------------------------

Can I do this in Word?



Reply
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Odd Page Layout Problem with Word 2002 in Office XP Bill Drake Page Layout 4 June 8th 05 10:10 AM
Page number difficulties Tjodrik Microsoft Word Help 3 May 9th 05 02:54 PM
Odd page section break Jenny Page Layout 5 December 15th 04 08:05 AM
FIrst page footers Noel S Pamfree Microsoft Word Help 7 December 6th 04 08:49 PM
Insert objects at page breaks DRS - Jonathan Microsoft Word Help 4 November 29th 04 07:16 PM


All times are GMT +1. The time now is 08:51 PM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"