Microsoft Office Forums - View Single Post - [Solved] Create Individual Files from Mail Merge

bill1234 · 07-09-2021, 12:51 PM

I have a macro that works for the most part. I have a mail merge file of two page letters, which I want to convert into individual 2 page files. For some reason, I am only getting on page in the new file with the macro. I believe the part causing the issue is under the "Removes the break that is copied at the end of the section, if any.", but I have no idea how to fix it.

Code:

 'Used to set criteria for moving through the document by section.
    Application.Browser.Target = wdBrowseSection
    
    'A mailmerge document ends with a section break next page.
    'Subtracting one from the section count stop error message.
    For i = 1 To ((ActiveDocument.Sections.Count) - 1)

        'Select and copy the section text to the clipboard
        ActiveDocument.Bookmarks("\Section").Range.Copy

        'Create a new document to paste text from clipboard.
        Documents.Add
        Selection.Paste

        'Removes the break that is copied at the end of the section, if any.
        Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
        Selection.Delete Unit:=wdCharacter, Count:=1

        ChangeFileOpenDirectory filesave
        DocNum = DocNum + 1
        ActiveDocument.SaveAs FileName:=appexcel.sheets("sheet1").Cells(i + 1, 1).Value & " document file name " & Year(Now()) & ".doc"
        ActiveDocument.Close
        'Move the selection to the next section in the document
        Application.Browser.Next
    Next i
    ActiveDocument.Close savechanges:=wdDoNotSaveChanges