AW: Word text nach Excel kopieren
13.02.2008 12:22:00
Bischofs
Hi Renée,
ein totaler Anfänger bin ich nun auch nicht.
Hab das Coding schon soweit hinbekommen, dass in der Excel Datei die Dateinamen und das erste Wort der Word Datei ausgelesen werden:
Option Explicit
Sub Makro1()
Dim AppWd As Object
Dim DocWd As Object
Dim WordDatei As String
Dim WordDateiPfad As String
Dim TextWD As String
Dim DateiName As String
Dim aktZeile As Integer
'DateiName = Namer deiner ExcelDatei
DateiName = Application.ActiveWorkbook.Name
'der Pfad in dem die Word Dateien liegen, muss mit "\" enden
WordDateiPfad = "C:\Documents and Settings\s211525\Desktop\Test\"
'Startzeile in der Excel-Datei
aktZeile = 2
'Word-Object erzeugen und öffnen
Set AppWd = CreateObject("Word.Application")
'Schleife für alle Word-Dateien im Verzeichnis
WordDatei = Dir(WordDateiPfad & "*.doc")
Do While WordDatei ""
'Datei Öffnen (unsichtbar)
AppWd.Visible = False
Set DocWd = AppWd.Documents.Open(WordDateiPfad & WordDatei)
'Erste Zeile der Word-Datei auslesen
DocWd.Range(0, 0).Select
TextWD = DocWd.Bookmarks("\Line").Range.Text
'In Excel schreiben
Workbooks(DateiName).Worksheets(1).Range("D" & aktZeile).Value = TextWD
Workbooks(DateiName).Worksheets(1).Range("C" & aktZeile).Value = WordDatei
aktZeile = aktZeile + 1
'aktuelle Worddatei schließen
DocWd.Close savechanges:=False
'nächste Word Datei
WordDatei = Dir()
Loop
'Word schließen und Objekt beenden
AppWd.Quit
Set DocWd = Nothing
End Sub
Das Problem besteht leider nur darin, dass ich es nicht hinbekomme, den Text aus der Word-Tabelle (4. Zeile, 2. Spalte) auszulesen.
Viele Grüße,
Ingo