....
Dim word As Object
Set word = GetObject(, "word.application")
If Not word Is Nothing Then
word.Application.Visible = True
word.Application.Documents.Open FileName:=suchpfad2
word.Application.PrintOut FileName:=suchpfad2
word.Application.Documents.Close
word.Application.Quit saveChanges:=wdSaveChanges
Set word = Nothing
End If