Word Dokument in Excel einlesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
hier mal ein Beispiel.
Um aber Deinen Text raus zu filtern, muss man deine Worddatei besser kennen.
!!! benötigt den Verweis Microsoft Word 11.0 Object Library !!!
(kann auch 10.0 oder so sein, ist Versionsabhängig)


Option Explicit
Sub WordNachExcel()
Dim objWordApp As New Word.Application
Dim objWordDok As Word.Document
Dim Pfad As String, strFile As String
Dim varText As Variant
On Error GoTo Fehler:
Application.ScreenUpdating = False
Pfad = _
IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\")
Set objWordApp = CreateObject("Word.Application")
objWordApp.Application.ScreenUpdating = False
objWordApp.Visible = False 'True zum ausblenden
strFile = Dir(Pfad & "\*.doc")
Do While strFile  "" 'Schleife bis keine Word mehr da
'Datei öffnen
Set objWordDok = objWordApp.Documents.Open(Pfad & strFile)
With objWordApp
'Text markieren
.Selection.WholeStory
'markierung in Veriable
varText = .Selection
'***hier muss der Text zerlegt werden um ihn in die Zellen zu schreiben
'ist nur ein Beispiel!!!!
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = varText
End With
'Word wieder schließen
objWordDok.Close False
'Objektvar. wieder freigeben
Set objWordDok = Nothing
'nächstes Worddoc.
strFile = Dir
Loop
objWordApp.Application.ScreenUpdating = True
objWordApp.Quit
If Not objWordDok Is Nothing Then Set objWordDok = Nothing
If Not objWordApp Is Nothing Then Set objWordApp = Nothing
Application.ScreenUpdating = True
Exit Sub
Fehler:
On Error Resume Next
objWordDok.Close False
objWordApp.Quit
If Not objWordDok Is Nothing Then Set objWordDok = Nothing
If Not objWordApp Is Nothing Then Set objWordApp = Nothing
On Error GoTo 0
Application.ScreenUpdating = True
MsgBox "Fehler!", vbCritical
End Sub

Gruß Tino

www.VBA-Excel.de

Hallo Tino,
erstmal vielen Dank für deine Antwort und den Code!!!
Allerdings komme ich damit noch nicht ganz klar. Was heisst "!!! benötigt den Verweis Microsoft Word 11.0 Object Library !!!".
das Makro läuft bei mir leider nicht. Vermutung: es liegt daran, dass ich obigen Hinweis nicht verstehe. Fehlermeldung: "Fehler beim kompillieren. Benutzerdefinierter Typ nicht definiert." in Codezeile "Dim objWordApp As New Word.Application" + folgende Dim
Das Worddokument besteht aus Tabellen.
Tabelle 1 = 1 Zeile, 1 Spalte --> Überschrift
Tabelle 2 = Spalte 1 ist eine verbunden Zelle von 5 Zeilen, in Zeile 1 gibt es 3 Spalten, in Zeile 2 - 5 jeweils 4 Spalten
Aus den Tabellen 2 - x müssen jeweils diverse Infos ausgelesen werden.
Tablelle 2 wiederholt sich im gesamten Dokument vom Aufbau her.
kann man jetzt sagen wie die Informationen ausgelesen werden können? (nur die Codesystematik, wie finde ich in Word bestimmt Stellen?)
Danke für deine / eure Hilfe
Gruss, Silva

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Word Dokument in Excel einlesen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread