Daten von Excel nach Word

Sub Exc_Wor()
On Error GoTo Ende
Dim objWord As Word.Application
Dim objWDDoc As Word.Document
On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set objWord = CreateObject("Word.Application")
End If
With objWord
.Visible = True
.Documents.Add ActiveWorkbook.Path & "/Test.doc"
.Activate
.ActiveDocument.SaveAs Filename:=ordner & "\Testneu.doc"
objWord.Quit
Set objWord = Nothing
End With
Ende:
If Err.Number = 94 Then
objWord.Selection.Text = ""
Resume Next
End If
Exit Sub
End Sub