Sub WordImport()
   Dim w As New Word.Application
   Dim strFile As String
   Dim strPath As String
   strFile = "DeinDokument.doc"
   strPath = "c:\DeinPfad\"
   w.Documents.Open strPath & strFile
   w.Visible = False
   Range("a1") = w.ActiveDocument.Sentences(1)
   w.Documents.Close
   w.Quit
End Sub