Wordserienbrief aus Excel per VBA öffnen/ausführen

Hallo,
ich möchte gerne aus Excel heraus einen Word-Serienbrief öffnen und als PDF-Drucken. Dazu habe ich als Test eine Datei Test.xlsx mit den Datensätzen für den Serienbrief und einen Serienbrief Serienbrief.docx erstellt. Anschließend habe ich über den Makrorekorder in Word die Auswahl der Exceldatei mit den Datensätzen und die Auswahl der Tabelle (Testblatt) aufgenommen und in mein Makro in Excel importiert. Nun sie mein Code wie folgt aus:

Public Sub Seriendruck()
Dim wdApp As Object
Dim dok As Object
Dim tabelle As String
'Word öffnen
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
'Serienbrief öffnen
Set dok = wdApp.Documents.Open("D:\Serienbrief.doc")
'Variable: Name des Tabellenblattes mit den Datensätzen
tabelle = "'Testblatt$'"
dok.MailMerge.MainDocumentType = 0
'Beim folgenden wird der Laufzeitfehler 438 Objekt unterstützt
'diese Eigenschaft oder Methode nicht gemeldet.
dok.MailMerge.MailMerge.OpenDataSource Name:="D:\Test.xlsx", _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.ACE.OLEDB.14.0;User ID=Admin;Data Source=D:\Test.xlsx;Mode=Read; _
Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=37;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Pa" _
, SQLStatement:="SELECT * FROM " & tabelle, SQLStatement1:="", SubType:= _
wdMergeSubTypeAccess
'So (direkte Eingabe des Tabellenblattes) geht es auch nicht!
'dok.MailMerge.MailMerge.OpenDataSource Name:="D:\Test.xlsx", _
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=D:\Test.xlsx;Mode=Read; _
Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=37;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Pa" _
, SQLStatement:="SELECT * FROM `Tabelle1$`", SQLStatement1:="", SubType:= _
wdMergeSubTypeAccess
'Drucken
ActivePrinter = "PDF-XChange Printer 2012"
With ActiveDocument.MailMerge
.Destination = wdSendToPrinter
.SuppressBlankLines = True
With .DataSource
.FirstRecord = 1
.LastRecord = 10
End With
.Execute Pause:=False
End With
wdApp.Quit
Set dok = Nothing
Set wdApp = Nothing
End Sub