Excelbereich nach Word kopieren

Public Sub Test()
Dim wdApp As Object
Dim str As String
str = "Test_Test"
' Range ("A2:B12") dieser Bereich soll von Excel nach Word kopiert werden
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If wdApp Is Nothing Then Set wdApp = CreateObject("Word.Application")
On Error GoTo 0
With wdApp
.Visible = True
.Documents.Open "H:\ae\Test_xx.docx"
.ActiveDocument.Bookmarks("Excel_1").Range = str
End With
Set wdApp = Nothing
End Sub