Access VBA and mailmerge naar Word met DAO

[bartprins999]

Hallo,

Ik heb een stukje code waar ik de afgelopen jaren een mailmerge mee uitvoer naar een Word-sjabloon. Op deze manier kan ik een brief naar 1 geselecteerd persoon samenvoegen en vervolgens een status meegeven.

Nu zou ik een zelfde mailmerge moeten uitvoeren maar nu naar een aantal geselecteerde mensen die een bepaalde status hebben. Dit betreft natuurlijk iedere keer een wisselende groep mensen.

Heeft een van jullie een idee hoe ik dit het beste kan oplossen? Alvast enorm bedankt voor het meedenken !

Dit is de code die ik voor de enkel geselecteerde klant gebruik :

Private Sub Intake_Click()

'Het geselecteerde record opzoeken en dan het dialoogvenster sluiten

Dim rst As DAO.Recordset
Dim strVoorletters As String
Dim strAchternaam As String
Dim strStraat As String
Dim strHuisnr As String
Dim strPostcode As String
Dim strWoonplaats As String
Dim strAanhef As String
Dim strRegioTelNr As String
Dim strRegios As String
Dim appword As New Word.Application


'De recordset van het formulier Subsribers opslaan
Set rst = Forms!Klanteninvoer.RecordsetClone

'Het record van de geselecteerde client zoeken
rst.FindFirst "Klanteninvoer.ID = " & Keuzelijst7

'Stel de eigenschap bookmark in om naar het gekozen record toe te gaan
Forms!Klanteninvoer.Bookmark = rst.Bookmark

strVoorletters = rst!Voorletters
strAchternaam = rst!Achternaam
strStraat = rst!Straat
strHuisnr = rst!Huisnr
strPostcode = rst!Postcode
strWoonplaats = rst!Woonplaats
strAanhef = rst!Achternaam
strRegios = rst![Regio's]

If strRegios = "1" Then

With appword
.Documents.Add "\\DATA\Brief.dotx"
.ActiveDocument.ShowSpellingErrors = False
.Selection.Goto wdgotobookmark, Name:="Naam"
.Visible = True
End With

With appword
.Selection.TypeText strVoorletters & " " & strAchternaam 'Achternaam vullen
.Selection.Goto wdgotobookmark, Name:="Adres" 'naar de bookmark adres gaan
.Selection.TypeText strStraat & " " & strHuisnr 'adres vullen
.Selection.Goto wdgotobookmark, Name:="PCWoonplaats" 'naar pc en woonplaats gaan
.Selection.TypeText strPostcode & " " & strWoonplaats 'pcwoonplaats vullen
.Selection.Goto wdgotobookmark, Name:="Aanhef" 'naar de aanhef gaan
.Selection.TypeText strAanhef
End With
End If

En vervolgens nog code om een statusupdate te geven in de tabel klanten