Access - Word

Hej !
Så røg den weekend !!
For ikke, at stirre mig blind på opgaven sprørger jeg derfor Eksperterne om til råds.
Jeg har fundet en stump programkode (Cut and Paste) som i nedenstående virker som den skal.
Nu vil jeg anvende den til at oprette eet brev for hver \"empolyees\" der findes i forespørgslen.
Er der en som har en god idé

Public Function CreateWordMemo()
\' Open a memo in Word and insert text - used by menu command.
   
    Dim rstEmployees As New ADODB.Recordset
    Dim appWord As New Word.Application
    Dim intPages As Integer, strMessage As String
   
    \' Open a recordset based on the EmployeesWithOpenIssues query.
    rstEmployees.Open \"EmployeesWithOpenIssues\", _
        CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    \' If no one has open issues, display a message and exit.
    If rstEmployees.RecordCount = 0 Then
        DisplayMessage \"There are no open issues to announce.\"
        Exit Function
    End If

    \' Open a document based on the memo template
    \' move to the MemoToLine bookmark, and then display Word.
    With appWord
        .Documents.Add \"C:\\Database\\memo.dot\"
        .ActiveDocument.ShowSpellingErrors = False
        .Selection.GoTo wdGoToBookmark, Name:=\"MemoLine\"
        .Visible = True
    End With
   
    \' Loop through the recordset returned by the query, inserting
    \' the name of each employee into the document.
    Do Until rstEmployees.EOF
        appWord.Selection.TypeText rstEmployees!EmployeeName & \"  \"
        rstEmployees.MoveNext
    Loop