Samenvoegen (mailmerge) met VBA (het werkt, maar niet helemaal)

Status
Niet open voor verdere reacties.

allard1

Gebruiker
Lid geworden
5 dec 2006
Berichten
314
Geachte Accessvrienden,

Ik heb een VBA code gevonden en aangepast naar believen.
Code:
Private Sub merge_click()
   
    Dim objWord
    Set objWord = GetObject("vindplaats word.doc")
    ' Make Word visible
    objWord.Application.Visible = True
    'Set mail merge data source as current database
    
End Sub

Hij opent de brief, maar zodra ik het script opstart krijg ik maar een brief zichtbaar. heeft iemand een idee hoe ik alles tevoorschijn tover?
 
Hallo allard1,

de code opent een specifiek Word document.
Als jij iets anders wilt, geef dan even precies aan wat de bedoeling is en hoe je dat aan wilt pakken.

Groet,

Tardis
 
Hallo allard1,

de code opent een specifiek Word document.
Als jij iets anders wilt, geef dan even precies aan wat de bedoeling is en hoe je dat aan wilt pakken.

Groet,

Tardis

Ik zet hem op opgelost. Het werkt namelijk al. Voor de liefhebber nog even de oplossing.

Op het einde van de code voeg je het volgende toe
Code:
 objWord.MailMerge.Execute

Bovenstaande in combinatie met de andere code, zorgt ervoor dat word alle brieven aanmaakt (dus het aantal dat in de tabel staat welke is ontstaan obv een query). Voeg je dit niet toe, dan krijg je alleen de eerste rij uit je tabel.

Bedankt iig voor jullie hulp.
 
Okido.
Wellicht dat je de volledige code met korte toelichting kunt posten, dan kunnen we daar wellicht anderen mee helpen die iets soortegelijks in elkaar willen zetten.

Groet,

Tardis
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan