Mail Merge Problem - Run Time Error 5631

[simplyez4u]

Hi,


I create an Access database as data source. The mail merge grabs the data from the database and feeds into a letter. The macro, which I found online, only works when all entries are selected. It runs fine and splits out each letter with a pre-defined file name. However, when I only select few entries (like entry 2, 5, 9, 11), it gives me a run time error 5631.
VBA Error Screenshot




Below is my VBA code

Sub SaveAsFileName()
Dim FileName  As String
With ActiveDocument.MailMerge
    .Destination = wdSendToNewDocument
    .SuppressBlankLines = True

    For SectionCount = 1 To .DataSource.RecordCount
        With .DataSource
            ActiveDocument.MailMerge.DataSource.ActiveRecord = SectionCount
            ActiveDocument.MailMerge.DataSource.FirstRecord = SectionCount
            ActiveDocument.MailMerge.DataSource.LastRecord = SectionCount

            'replace Filename with the column heading that you want to use - can't have certain symbols in the name
            FileName = .DataFields("Letter").Value & "_" & .DataFields("Name").Value
        End With

        'Get path and file name
        FullPathAndName = ActiveDocument.Path & Application.PathSeparator & FileName & ".docx"

        'Merge the document
        .Execute Pause:=False

        'Save resulting document.
        ActiveDocument.SaveAs (FullPathAndName)
        ActiveDocument.Close False
    Next
End With
End Sub

[macropod]

How are you 'selecting' the records to merge?

[simplyez4u]

Originally Posted by macropod

How are you 'selecting' the records to merge?

I select them via Microsoft Word - Mailings - Recipent List

[macropod]

Provided you've unchecked all records, then checked the one(s) you want, there shouldn't be a problem - unless you also have a filter that results in your checked records being filtered out.

[simplyez4u]

Originally Posted by macropod

Provided you've unchecked all records, then checked the one(s) you want, there shouldn't be a problem - unless you also have a filter that results in your checked records being filtered out.

I cleared all selected records and selected a few. That's when the error occurred when I run the macro. There are no filter on my data at all.

[macropod]

Try the macro under the topic Send Mailmerge Output to Individual Files in the Mailmerge Tips & Tricks 'Sticky' thread at the top of this forum: https://www.msofficeforums.com/mail-...ps-tricks.html

[simplyez4u]

It works, but I can't seem get the code to save merged files into specified folder and not to preview any merged letters. It currently shows all merged letters as individual files each time I run this code and it does not auto close. Any idea?

[macropod]

Originally Posted by simplyez4u

It works, but I can't seem get the code to save merged files into specified folder and not to preview any merged letters.

Read Note 1 following the code in the link. As for previewing - it doesn't, so I don't understand your comment.

Originally Posted by simplyez4u

It currently shows all merged letters as individual files each time I run this code and it does not auto close. Any idea?

The code does not show the merged letters - it simply saves them. Only the mailmerge main document remains open.