860to864: Excel Schreiben in Word über Makro

Sub Exel2Word()
Dim WordObj As Object
Dim WordDoc As Object
Dim i As Integer
x = Application.version
x = Left(x, 1)
If x = 1 Then
x = 10
End If
Sheets("Tabelle1").Select
i = ActiveSheet.UsedRange.Rows.Count
Range("A2:A12").Copy
On Error Resume Next
Set WordObj = GetObject(, "word.application." & x & "")
If Err.Number = 429 Then
Set WordObj = CreateObject("word.application." & x & "")
Err.Number = 0
End If
WordObj.Visible = True
Set WordDoc = WordObj.documents.Add
With WordObj.Selection
.TypeText Text:="Arbeitsblatt Name: " & ActiveWorkbook.Name
.TypeParagraph
.TypeText Text:="Version: " & Application.version
.TypeParagraph
End With
WordObj.Selection.Paste
Application.CutCopyMode = False
Set WordObj = Nothing
Set WordDoc = Nothing
End Sub