Hoe maak ik een Word-document actief vanuit Access?

Private Sub Knop16_Click()
Refresh                                                                         'om op te slaan wat je misschien nog niet heb opgeslagen.

DoCmd.SetWarnings False                                              'medingen uitzetten zoals wilt u de query draaien etc.


DoCmd.OpenQuery "QryVerzendBrief"                              'tabel maken met de brief gegevens. hier wordt de query geopend met de gegevens voor in de brief. hier moet dus jou querynaam worden ingevuld. ik schrijf de gegevens weg in een tabel tblverzendpost nr. dat zou in theorie misschien niet nodig zijn om dit eerst in een tabel op te slaan maar ik wist niet hoe te mailmerge naar een query dus heb ik deze tussen oplossing gekozen.

 
Dim WordApp As Object                                                  'variable defineren als object
Set WordApp = CreateObject("word.Application")             'zorgen dat de variable  een word application is.
WordApp.Documents.Open "G:\x\Secretariaat\TestHuisstijl2.doc"                 'de naam van het te openen document defineren. bij mij heet het document 'testhuisstijl2 en staat op G:\x
WordApp.Visible = True                                                                              'word zichtbaar maken ik wil later het word document nog bewerken

'MailMerge selected records from table to Word document
    With WordApp
        .ActiveDocument.MailMerge.OpenDataSource _                                    'hier wordt de mail merge gestart. TblVerzendPostnr bevat dus de gegevens die later in de merge gebruikt moeten wordne. misschien kan je hier ook direct je query naam zetten.
            Name:="G:\x\Secretariaat\brieven\Adressen.mdb", _
            LinkToSource:=True, Connection:="TblVerzendPostnr", _
            SQLStatement:="SELECT * FROM [TblVerzendPostnr]"
        .ActiveDocument.MailMerge.Execute
       ' .Close 0 hiermee wordt de opslag niet uitgevoerd.
    End With
End Sub

Dim qTemp As QueryDef

    sDB = CurrentProject.Path & "\" & CurrentProject.Name
    strSQL = "SELECT * FROM TblVerzendPostnr WHERE Taal = ""NL"""
    CurrentDb.QueryDefs("qExport").SQL = strSQL
    Set WordApp = CreateObject("Word.Application")
    With WordApp
        .Documents.Open CurrentProject.Path & "\TestHuisstijl2.doc"
        .Visible = False
        With WordApp.ActiveDocument
            With .MailMerge
                .OpenDataSource _
                    Name:=sDB, _
                    LinkToSource:=True, _
                    Connection:="TblVerzendPostnr", _
                    SQLStatement:="SELECT * FROM qExport"
                .Destination = wdSendToPrinter
            End With
        End With
    End With

Private Sub Mail_merge_starten_Click()

Refresh

DoCmd.SetWarnings False

Dim WordApp As Object
Set WordApp = CreateObject("word.Application")
WordApp.Documents.Open "C:\Users\Tom\Desktop\Test\Resources\Opvragen officieel bewijs - NL.docm"
WordApp.Visible = True

    With WordApp
        .ActiveDocument.MailMerge.OpenDataSource _
            Name:="C:\Users\Tom\Desktop\Test\Notarissen - opzoeken en opvolgen.accdb", _
            LinkToSource:=True, Connection:="Opvraging - te versturen", _
            SQLStatement:="SELECT * FROM [Opvraging - te versturen] WHERE Taal = ""N"""
        .ActiveDocument.MailMerge.Execute
       
       
    End With
End Sub

.ActiveDocument.Mailmerge.Destination = wdSendToPrinter
.ActiveDocument.MailMerge.Execute

Sub MailmergeNL()
'
' MailmergeNL Macro
'
'
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "C:\Users\Tom\Desktop\Test\Notarissen - opzoeken en opvolgen.accdb", _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\Tom\Desktop\Test\Notarissen - opzoeken en opvolgen.accdb;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=6;Jet OLEDB:Databa" _
        , SQLStatement:="SELECT * FROM `Opvraging - te versturen`", SQLStatement1 _
        :="", SubType:=wdMergeSubTypeAccess
    With ActiveDocument.MailMerge
         .MailAddressFieldName = "E-mailadressen"
         .MailSubject = "Uw aanvraag test 2"
        .Destination = wdSendToEmail
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
    With ActiveDocument.MailMerge
        .Destination = wdSendToPrinter
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
End Sub

With CurrentDb.OpenRecordset("[U]VerzendlijstActies[/U]")                               'query met gegevens die verzonden moeten worden
'With CurrentDb.OpenRecordset("KiesActienemer")                                            'query met email gegevens naar wie verzonden moet worden ik verzend het rapport naar verschillende mensen
    .MoveFirst
    Do While Not .EOF
        'defineren ontvanger en actienemer met veld uit recordset
        Ontvanger = !Email                                                                                'variable toekennen voor de email gegevens als je naar een vast adres mailt kan je hier ook de vaste gegevens plaatsen
        Actienemer = !Actienemer
        
        'report openen voor eerste naam  rapport naam is Verzendrapport
        DoCmd.OpenReport "verzendRapport", acViewPreview, , "actienemer = '" & Actienemer & "'"
        'report verzenden naar eerste ontvanger
        DoCmd.SendObject acSendReport, , acFormatSNP, Ontvanger, , , "actielijst" _                       'hier wordt het rapport verzonden. Ik heb hier een vaste tekst in het mailje je zou deze tekst ook
                                                                                                                                                  in je tabel kunnen opnemen dat past makkelijker aan. Met false (of true) geef je aan of je het mailjte 
                                                                                                                                                 nog wil bewerken voor verzending
            & " voor " & !Volledigenaam, "Graag de lijst bijwerken en dan retour. Jikke", False
        'voorgaande herhalen
        DoCmd.Close acReport, "verzendRapport", acSaveNo                                                               'aangezien hij alleen een open rapport kan verzenden moet het rapport vervolgens gesloten worden.
        
        'herhaal voor rapport interne audit punten
        
         
        .MoveNext
    'herhalen tot einde van de recordset
    Loop
End With
End Sub

Dim BestandsNaamOverzicht As String
Set r = CurrentDb.OpenRecordset("SELECT * FROM QryVerzendlijst;", dbOpenSnapshot)             'qryverzendlijst bevat je mail gegevens en merge velden voor het net ontbreekt hier een 
                                                                                                                                              dim r as recordset
Dim datum As String

datum = Format(Now(), "yymm")                                                                                              'hier wordt een datum aan een variable toegekend als je steeds een mail met zelfde
                                                                                                                                                tekst krijgt is een datum in de titel wel handig vind ik

    Dim OutApp As Object                                                                                                       'mail object defineren
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")                                                               'beter kopie/paste werk. blijkbaar moet je een outlook iets maken
    Set OutMail = OutApp.CreateItem(0)
    
    MailAdresAlgemeen = r("EmailManagementOverzicht")                                                                     'hier ken je eea aan de varialbe toe. mailadres
    OnderwerpAlgemeen = r("onderwerpManagementOverzichtAlgemeen") & "-" & datum                         'onderwerp
    TekstAlgemeen = r("tesktEmailManagementOverzichtAlgemeen")                                                      'email tekst
    bestandAlgemeen = Me.TxtBewaarlocatie & "ManagementRapportage - " & "x" & ".pdf"                       'bijlage- deze kan bij jou dus vervallen
    
    On Error Resume Next                                     
    With OutMail                                                                                                                                      'samenstellen van de mail
        .To = MailAdresAlgemeen                                                                                                      'hier komen de mail gegevens ik heb de gegevens eerst in een variable gestopt omdat
                                                                                                                                                     ze uit een tabel komen
        .CC = ""
        .BCC = ""
        .Subject = OnderwerpAlgemeen
        .Body = TekstAlgemeen
        .Attachments.Add bestandAlgemeen                                                                                        'jij wil dus geen attachment
        '.Send
        .display
        If Send = True Then                                                                                                          'hier ben ik nog niet helemaal uit waarom dit erbij moet. met display kan je je mail zien
            .Send
        Else
            .display
        End If
    End With
    On Error GoTo 0

                                                                                                                                          'hier moet je alleen nog iets zetten over print mail (waarom wil je de mail printen inhoud kan ik me voorstellen maar de mail. misschien een rapportje met exact de zelfde gegevens???
 
   Set OutMail = Nothing                                                                                                                'netjes afsluiten door alles weer leeg te maken.
    Set OutApp = Nothing