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