VBA Excel to Word Bookmarks

Private Sub CommandButton1_Click()
'vba_xlsm-to-dotx-bookmarks_test_DE.dotx
'vba_xlsm-to-dotx-bookmarks_test_FR.dotx
'vba_xlsm-to-dotx-bookmarks_test_IT.dotx
Dim z&, TM$ ' & = as long, $ = as String
Dim wdApp As Object
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If wdApp Is Nothing Then Set wdApp = CreateObject("Word.Application")
On Error GoTo 0
wdApp.Visible = True
wdApp.Documents.Add "...\vba_xlsm-to-dotx-bookmarks_test_DE.dotx"
For z = 2 To 7
' Textmarke wird nur dann aus Spalte E übernommen, wenn nicht leer
' und dann so lange verwendet, bis die nächste vorhanden ist.
If Tabelle12.Range("E" & z).Value  "" Then TM = Tabelle12.Range("E" & z).Value
If Tabelle12.Range("G" & z).Value = "x" Then
If TM  "" Then
Tabelle12.Range("K" & z).Copy
wdApp.ActiveDocument.Bookmarks(TM).Range.PasteExcelTable False, False, False
Else
MsgBox "Textmarke = leer; Fehler in Zeile " & z
End If
End If
Next
Set wdApp = Nothing
End Sub