I haven't tested this, but if you save the document created by merging with
the information on Grades as a file name Grades, and that created by merging
with the information on Attendances as a file named Attendance, both of them
in the default document folder, and then run the following version of the
macro when both of those documents are closed, it should open them up and
create a series of letters (Letter1, Letter21, Letter31 etc) each of which
will contain the 10 Grades pagess for the student, followed by the
Attendance page. Of course the order of the students in the merge datafiles
will need to be the same to ensure that the correct Attendance page goes
with each set of Grades pages.

Dim i As Long, Grades As Document, Attendance As Document, Target As
Document, Letter As Range
Set Grades = Documents.Open("Grades.doc")
Set Attendance = Documents.Open("Attendance.doc")
For i = 1 To Grades.Sections.Count Step 10
Set Letter = Grades.Sections(i).Range
Letter.End = Grades.Sections(10).Range.End - 1
Set Target = Documents.Add
Target.Range = Letter
Set Letter = Attendance.Sections.First.Range
Letter.End = Letter.End - 1
Target.Range.InsertAfter Letter
Attendance.Sections.First.Range.Delete
Target.SaveAs FileName:="Letter" & i
Target.Close
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
"Bill" wrote in message
...
To be honest I have never used macros in word! I tried incrementing the i
by 10 each time but wasn't all that successful!

Any other tips?

Thanks,

Colin

"Doug Robbins" wrote in message
...
It would be possible to use a modification of the splitter code to create
a new series of documents that was a combination of the output of the two
merges.

I am assuming here that the splitter code is the following:

Sub splitter()

' splitter Macro

' Macro created by Doug Robbins to save each letter created by a
mailmerge as a separate file.

Dim i As Long, Source as Document, Target as Document, Letter as Range
Set Source = ActiveDocument
For i = 1 to Source.Sections.Count
Set Letter = Source.Sections(i).Range
Letter.End=Letter.End-1
Set Target = Documents.Add
Target.Range=Letter
Target.SaveAs FileName:="Letter" & i
Target.Close
Next i

End Sub

Post back to the NG if you get stuck with the modifications.


--
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
"CS" wrote in message
...
Hi - I am trying to mail merge some school reports from our Access
Database. We have two tables Grades (10 records per pupil) and
Attendance (1 record per pupil).

Firstly I merge the Grades table and then separately merge the
attendance table to create 2 word files.

What I would like to do is to take their attendance merge file and
insert single pages into the relevant place in their Grades merge, but I
can't think of any way to do it apart from after it has all printed,
counting 10 pages then inserting the relevant cover sheet by hand and so
on...

Anyone have any suggestions - I had a look at the splitter code and was
thinking if I could get it to split my main doc every ten pages or
something?

Thanks,

Colin