Zellenauswahl in Word übertragen,code funkt teilw.

Sub wird mit der schaltfläche neben der Zellenauswahl aufgerufen

Sub Schaltfläche_Klicken()
' Tabelle 1
Dim appWord As Object
Dim doc As Object
Set appWord = CreateObject("Word.Application")
Set doc = appWord.Documents.Add("Meinpfad\Datei.dotx") '*** verwendet Datei nur als Vorlage ***
'Set doc = appWord.Documents.Open("Meinpfad\Dateit.docx") '*** öffnet die Datei selbst ***
appWord.Visible = True
'doc.Unprotect  '*** falls das Dokument geschützt ist ***
ThisWorkbook.Sheets("Tabelle1").Range("A43:E46").Copy '*** oder was auch immer ***
doc.Paragraphs(22).Range.Paste '*** Zeile bestimmen - Tabelle rein ***
'ThisWorkbook.Sheets("Tabelle1").Range("A13:F16").Copy '*** oder was auch immer ***
doc.SaveAs "Meinpfad\Datei.docx" '*** das Dokument speichern ***
doc.Close '*** das Dokument schließen ***
appWord.Quit '*** Word beenden ***
'*** Aufräumen ***1
Set appWord = Nothing
Set doc = Nothing
Call DruckLkTab2
End Sub


Dieser Teil funktoniert soweit gut, auch wenn die Zeilennummer die ich angebe nicht mit den Zeilennummern in Word übereinstimmen und man dort etwa suchen muss bis alles passt!

Zum ende Rufe ich den Rahmen für die nächste Auswahl auf, wo wieder eine Schaltfläche die abgeä _

nderte 

Sub aufruft.
Hier soll die aus der Vorlage erstellte Datei wieder geöffnet, eine Auswahl an stelle X eingefü  _
_
gt, das ganze gespeichert und wieder geschlossen werden.

Sub Schaltfläche_KlickenTab2()
' Tabelle 2
Dim appWord As Object
Dim doc As Object
Set appWord = CreateObject("Word.Application")
'Set doc = appWord.Documents.Add("Meinpfad\Datei.dotx") '*** verwendet Datei nur als Vorlage *** _
_
Set doc = appWord.Documents.Open("Meinpfad\Datei.docx") '*** öffnet die Datei selbst ***
appWord.Visible = True
'doc.Unprotect  '*** falls das Dokument geschützt ist ***
ThisWorkbook.Sheets("Tabelle1").Range("A1:F5").Copy '*** oder was auch immer ***
doc.Paragraphs(40).Range.Paste '*** Zeile bestimmen - Tabelle rein ***
'doc.Protect wdNoProtection '*** das Dokument wieder schützen ***
doc.SaveAs "Meinpfad\Datei.docx" '*** das Dokument speichern ***
doc.Close '*** das Dokument schließen ***
appWord.Quit '*** Word beenden ***
'*** Aufräumen ***1
Set appWord = Nothing
Set doc = Nothing
End Sub


Wenn ich die zweite 

Sub ausführe wird das Doc geöffnet gespeichert und geschlossen aber der Ausgewählte Bereich  _
wird nicht kopiert und eingefügt.
Hat einer eine Idee warum?
Vielen Dank für Eure Hilfe
Beste Grüße
Pasqual