Word Seriendruck starten
03.01.2023 16:28:52
Tobias
Ich möchte mit einer Exceldatei einen Seriendruck starten.
Die Word Datei hierzu existiert und funktioniert manuell auch.
Mit nachfolgendem Code funktioniert es zumindest die Word Datei schonmal zu öffnen. das appword Visible ist einfach nur da damit ich gucken konnte ob se auch wirklich aufgeht.
Allerdings danach bekomme ich den Objekt fehler.
Ich finde leider nicht wie ich meine Befehle auf das word document dann jetz einfliesen lasse. Ich bekomme nur Objekt fehler.
Sub drucken_sendungen()
Dim bwd, appword As Object
Set appword = CreateObject("Word.Application")
appword.Visible = True
Set bwd = appword.documents.Open(ActiveWorkbook.Path & "\Unterschriftenformular Blackbox.docx")
bwd.Application.DisplayAlerts = False
With bwd.MailMerge
.Destination = wdSendToPrinter
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
Application.DisplayAlerts = False
bwd.Close
Application.DisplayAlerts = True
End Sub
Anzeige