[vba] access mailmerge word

[mrfatmen]

jongens ik heb een probleem.

ik moet vanuit access een word doc openen en dan via een mailmerge een query in dat document voeren en dan naar de printer sturen.

dus als die query 1 record heb ik document uitprinten heeft hij her 100 dan 100 uitprinten.

nu kan ik wel een doc openen van uit vba in access, maar weet niet hoe ik dan die mailmerge kan uitvoeren en printen.

ik gebruik de deze code voor document te openen.

code:

    Dim objWord As Object


Set objWord = CreateObject("Word.Application")
   With objWord
    ' Make the application visible.
    .Visible = True
    ' Open the document.
    
    .Documents.Open (Application.CurrentProject.Path & "/newdavinci.doc")

    End With

kan iemand helpen?

[pjonk]

Ik zal je wel even op weg helpen.
Je moet gebruik maken van het Mailmerge object in Word.

Een mailmerge document maak je met:
Activedocument.MailMerge.MainDocumentType = wdFormLetters

De 2e stap is een datasource koppelen aan je document.
Dit kan van alles zijn een Access database een Excel sheet etc.

Deze voorbeeld code komt uit de VBA Help in Word

code:

Set myDoc = Documents.Add
With myDoc.MailMerge
    .MainDocumentType = wdFormLetters
    .OpenDataSource Name:="C:\MSOffice\Access\Samples\Northwind.mdb", _
      LinkToSource:=True, AddToRecentFiles:=False, _
      Connection:="TABLE Orders
End With

Ik denk dat ik je nu wel aardig op weg heb geholpen.
Voor de rest verwijs ik je door naar de VBA help in Word Topic MailMerge object.
Daar staan genoeg voorbeelden

[mrfatmen]

ik heb hem nu zo maar hij werkt nog niet mis ik iets

code:

    Dim objWord As Object
Set objWord = CreateObject("Word.Application")
   With objWord
    ' Make the application visible.
    .Visible = True
    ' Open the document.
    .Documents.Open (Application.CurrentProject.Path & "/newdavinci.doc")
    .MailMerge.Destination = wdSendToPrinter
    .MailMerge.Execute
    '.ActiveDocument.MailMerge.Execute
    '.ActiveDocument.PrintOut
    '.Quit
    End With

[pjonk]

Er valt mij in ieder geval wel iets op in je code:
Moet de regel:
.Documents.Open (Application.CurrentProject.Path & "/newdavinci.doc")

Niet zijn:
.Documents.Open (Application.CurrentProject.Path & "\newdavinci.doc")

We werken in Windows toch?

[mrfatmen]

oke hij werkt nu bijna is het microsoft word niet in de refernticie lijst gezet.

maar nu het volgende hij markeert de velden die gegenereerd zijn weet iemand hoe ik die3 uit kan zetten.