Mail Merge

[School Daze]

I need help. I created a mail merge table for a form. However, I need to
save the individual forms as the data in each is different for each form.
How is this done?

 

[Doug Robbins]

If you execute the merge to a new document and then run the following macro
when that document is the active document, it will save each report with the
name Report#

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:="Report" & i
Target.Close
Next i

End Sub


--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP