Mail Merge Multiple Documents At Once, Albert Kallal

[David92595]

Hello,



I am currently using Albert Kallal's (Awesome) mail merge.

I am looking for a way to select multiple documents from the word Merge Templates list and merge them all at once. Mail merge is a significant portion of what my company does and finding a way to merge all of our documents at once would be HUGE!

I have been told that I need to allow multi-select in the selection listbox. But the coding is a bit over my head...

If you know what segment of code needs to be altered (something I can search for), or a forum that has this solution I would be very gratful. I have been looking for a while now and not had any luck.

Thank you,

David92595

[June7]

I think what you want is code that will cycle through the items of the listbox and perform action with each selected item. This is a loop. Something like:

    With Me.lstCategory
        For Each varItem In .ItemsSelected
            If Not IsNull(varItem) Then
                'your code to do something
            End If
        Next
    End With

[David92595]

Here is the onclick command of Alberts code:

Private Sub cmdMerge_Click()
Dim strExt As String

strExt = IIf(Application.Version <= 11, ".doc", ".docx")

' merge the doc
If IsNull(Me.lstFiles) = False Then

' for compat
If Dir(strDirPath & Me.lstFiles & strExt) = "" Then
If strExt = ".docx" Then
strExt = ".doc"
End If
End If

Call RidesMergeWord(strDirPath & Me.lstFiles & strExt, strDirPath, strOutDocName)
strTemplate = Me.lstFiles
DoCmd.Close acForm, Me.Name

Else

MsgBox "You need to select a Word document", vbExclamation, "Word Merge"
strTemplate = ""

End If
End Sub

Would I be inserting your code before " Call RidesMergeWord(strDirPath & Me.lstFiles & strExt, strDirPath, strOutDocName)" or set it = to "strTemplate" (in the line below)?
...or am I completely wrong...

Thank you!
David92595

[June7]

I've never used multi-select listbox but I guess you would want to test if at least one item is selected before running procedure. So place all your code following If IsNull(Me.lstFiles) = False Then and up to Else within the loop code I suggested.