Von Excel aus Word Dateien zusammenkopieren

Sub Copy_Baustein()
Dim wrdApp As Word.Application
Dim Vorlage, Baustein As Word.Document
Dim i As Integer
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set Baustein = wrdApp.Documents.Open("C:\TEMP\Baustein.docx")
With Baustein
.Content.Select
.Content.Copy
End With
Set Vorlage = wrdApp.Documents.Open("C:\TEMP\Vorlage.doc")
With Vorlage
.Activate
.Content.Collapse Direction:=wdCollapseEnd ' Das funktioniert anscheinend nicht
.Content.Paste
If Dir("C:\TEMP\neu.doc")  "" Then
Kill "C:\TEMP\neu.doc"
End If
.SaveAs ("C:\TEMP\neu.doc")
.Close ' close the document
End With
wrdApp.Quit ' close the Word application
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub