Gruppe
Extern
Problem
Wie kann ich in das aktive Tabellenblatt den ersten Absatz eines Word-Dokumentes einfügen?
StandardModule: basMain
Sub WordImport()
Dim appWord As Object
Dim docWord As Object
Dim rngWord As Object
Dim sFile As String
sFile = Range("B1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Word-Dokument wurde nicht gefunden!"
Exit Sub
End If
Set appWord = CreateObject("Word.Application")
Set docWord = appWord.Documents.Open(sFile)
Set rngWord = docWord.Paragraphs(1).Range
rngWord.Copy
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Paste
appWord.Quit
Set rngWord = Nothing
Set docWord = Nothing
Set appWord = Nothing
End Sub