Creating Files with Mail Merge

The standard mail merge capabilities of Word allow you to merge directly to a printer or to a new document. Depending on your Word version and installation, you may also be able to merge to a series of e-mail messages. (Each record in the data source would create an individual e-mail message.)

There may be times, however, when you need to create an individual document for each of the data source records. Unfortunately, Word does not provide a way to do this. Fortunately you can create a macro to take care of the task for you. The following is a macro that will "pull apart" a document created by the mail merge feature. Each section of the document (there is one section per data source record) is pulled out and saved in its own document file.

Sub Splitter()
    Selection.EndKey Unit:=wdStory
    numlets = Selection.Information(wdActiveEndSectionNumber)
    If numlets > 1 Then numlets = numlets - 1
    Selection.HomeKey Unit:=wdStory
    BaseName = "c:\Let"
    For Counter = 1 To numlets
        DocName = BaseName & Right("000" & LTrim(Str(Counter)), 3)
        ActiveDocument.Sections.First.Range.Cut
        Documents.Add
        Selection.Paste
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Selection.Delete Unit:=wdCharacter, Count:=1
        ActiveDocument.SaveAs FileName:=DocName
        ActiveWindow.Close
    Next Counter
End Sub

When the macro is run, it creates a series of files named Ltr001 through Ltrxxx, where xxx is the number of sections in the original document. Actually, the macro creates one "Ltr" file less than the nuymber of sections in the document. The last section in the document is left in the original file (the one you are processing). If you want to change the filename or where the files are saved, change the setting for the BaseName variable in the macro.