Sorry, the code should have been:

Sub splitter()
' splitter Macro
' Macro created by Doug Robbins to save each letter created by a mailmerge
' as a separate file, retaining the header and footer information.
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
Set Target = Documents.Add
Target.Range = Letter
Target.Sections(2).PageSetup.SectionStart = wdSectionContinuous
Target.SaveAs FileName:="Letter" & i
Target.Close
Next i
End Sub


--
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

"RRR_News" wrote in message
...
Doug,
Thank-you for all your help. There must be something wrong in my
documents, that
this does not work. I will have to redo them. And again thank-you.

--

Have a Good Day,
Rich/rerat

(RRR News) message rule
Previous Text Snipped to Save Bandwidth When Appropriate

"Doug Robbins - Word MVP" wrote in message
...
The following should retain the header/footer information in the
individual
documents:

Sub splitter()
' splitter Macro
' Macro created by Doug Robbins to save each letter created by a mailmerge
' as a separate file, retaining the header and footer information.
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
Set Target = Documents.Add
Target.Range = Letter
Target.Sections(1).PageSetup.SectionStart = wdSectionContinuous
Target.SaveAs FileName:="Letter" & i
Target.Close
Next i
End Sub


--
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

"RRR_News" wrote in message
...
First of want to thank all the Word MVP's for all their help, and all
their
websites. I have learned allot about MS Word, that I did not know before.

My problem is that after I do a mail merge, and create a single "merged"
document. When I use either the "Splitter" or "MergeSplitter" Macros. The
resulting single documents get saved with none of the text in the header.
I have
my letterhead & {printdate} field in there. I would like to leave it
there
if I
can. Am I doing something wrong? Any help in this matter would be
appreciated.

I have a

--
Have A Good Day
Rich/rerat

Add MS to your News Reader: news://msnews.microsoft.com
(RRR News) message rule
Previous Text Snipped to Save Bandwidth When Appropriate