Hallo Leute

Ich versuche 100 Word-Dokumente in einem Orner öffnen und bearbeiten. Kann mir Jemand sagen, warum die Zeile Document.Open mir eine Fehlermeldung zeigt, dass Datei mit dem Namen nicht existiert obwohl der schon da ist und mit dem debuggen gezeigt wird.

Vielen Dank

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("D:\Test")
Set fc = f.Files
For Each f1 In fc

Documents.Open FileName:=f1.Name, ReadOnly:=True

word.ActiveDocument.Range(0, 0).Select 'An den Anfang positionieren
While Not Selection.Bookmarks.Exists("\EndOfDoc") 'Bis zum Ende des Dokumentes
Text = Selection.Bookmarks("\Line").Range.Text 'Zeile zurückgeben

---Hier meine Suche----

ActiveDocument.Close

next

Also Ich habe jetz mit dem Code versucht

Application.ScreenUpdating = False
sPfad = "D:\Test"
If right(sPfad, 1) <> "/" Then
sPfad = sPfad & "\"
End If
sDatei = Dir(sPfad & "*.doc")
Documents.Open sPfad & sDatei
Do While sDatei <> ""
sDatei = Dir()

Ich muss die Dokumente Zeile zu Zeile lesen, weil ich da bestimmte Infos suche und die Infos muss ich von allen Dokumenten sammeln und in einer Datei speichern. Hat Jemand eine bessere Lösung wo ich es ohne den Absturtz vom Makro hinkriegen kann.

Ich freue mich auf irgend welche Hinweise:-)