كود لدمج المراسلات لأكثر من سجل

وجدت هذا الكود بأحد المواقع الاجنبية

ولكن لم اتمكن من معرفة آليه عملة للاسف

  فهل من مساعدة؟

"This code merge all records in a query to a merge letter, provided the merge letter has the correct fields set up"

    Private Sub RunMergeLetters_Click()
     
     
        Dim strPath As String
        Dim strDataSource As String
        Dim conTemplate As String
        Dim conQuery As String
     
        Dim doc As Word.Document
        Dim wrdApp As Word.Application
     
        conTemplate = "Confirmationletter.doc"
        conQuery = "qry 2-1 Letter Query"
     
        On Error GoTo HandleErrors
        ' Delete the rtf file, if it already exists.
        strPath = "C:\My Computer\<file path>\"
        strDataSource = strPath & conQuery & ".doc"
        Kill strDataSource
     
        ' Export the data to rtf format.
        DoCmd.OutputTo acOutputQuery, conQuery, _
         acFormatRTF, strDataSource, False
     
        ' Start Word using the mail merge template.
        Set wrdApp = New Word.Application
        Set doc = wrdApp.Documents.Add(strPath & conTemplate)
     
        ' Do the mail merge to a new document.
        With doc.MailMerge
            .OpenDataSource Name:=strDataSource
            .Destination = wdSendToNewDocument
            .SuppressBlankLines = True
            With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
            End With
            If .State = wdMainAndDataSource Then
                .Execute
            End If
        End With
     
        ' Display the mail merge document.
        wrdApp.Visible = True
     
     
    ExitHere:
        Set doc = Nothing
        Set wrdApp = Nothing
        Set doc2 = Nothing
        Set wrdApp2 = Nothing
        Exit Sub
     
    HandleErrors:
        Select Case Err.Number
            Case 53         ' File not found.
                Resume Next
            Case Else
                MsgBox Err.Number & ": " & Err.Description
                Resume ExitHere
        End Select
     
            End If
     
    End Sub

ووجدت أيضاً قاعدة بيانات من موقع اجنبي فيها خاصية merge all record

 ولكن لم اتمكن من فهم آلية عملها ..

فأرجو المساعدة

http://www.kallal.ca/msaccess/WordMerge2008.zip

مافي ولا رد!!! ..