|
Hallo Bruno,
mein Makro-Code lautet:
Sub allFiles()
'
datei = Dir("H:\Temp1\*.*") 'Ordnernamen anpassen
While datei > ""
Documents.Open FileName:=datei, ReadOnly:=False, Format:=wdOpenFormatAuto
' Makro-Code oder der Aufruf des entsprechenden Makros
Call CopyFirstPage
datei = Dir
Wend
End Sub
Vor Verarbeitung der ersten Datei (ist vorhanden) kommt der Makroabbruch mit dem Hinweis
'Laufzeitfehler 5174 - Datei konnte nicht gefunden werden'.
Hast Du noch eine Idee?
Gruß
Hajo
|