Create Individual Files from Mail Merge

[bill1234]

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.

 '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

[gmayor]

May I suggest you investigate https://www.gmayor.com/MergeAndSplit.htm

It addresses the issues your macro overlooks.

[bill1234]

Wow. Perfect. Thanks.