Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Ersten Absatz eines Word-Dokumentes in Tabelle einfügen

Gruppe

Word

Problem

Wie kann ich in das aktive Tabellenblatt den ersten Absatz eines Word-Dokumentes einfügen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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