S
shapiro
Hi All.
I have about 20 standard letters in mail merge. Each standard letters are
addressed to 20 individual persons. How do I automatically save each file to
one folder wihtout going to File Save as then typing up each persons name?
I am using Word 2003. I saw the following code on this forum but it does not
seem to work. I did not see any of the files on desk top or in my documents
at all
' splitter Macro
' Macro created by Doug Robbins to save each letter created by a mailmerge
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
I have about 20 standard letters in mail merge. Each standard letters are
addressed to 20 individual persons. How do I automatically save each file to
one folder wihtout going to File Save as then typing up each persons name?
I am using Word 2003. I saw the following code on this forum but it does not
seem to work. I did not see any of the files on desk top or in my documents
at all
' splitter Macro
' Macro created by Doug Robbins to save each letter created by a mailmerge
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