Hallo Hajo
Du könntest es wie folgt machen (Teil):
Code:
datei = Dir("C:\Ordner\*.*") 'Ordnernamen anpassen
While datei > ""
Documents.Open FileName:=datei, ReadOnly:=False, Format:=wdOpenFormatAuto
' hier wäre dann Dein Code oder der Aufruf des entsprechenden Makros
datei = Dir
Wend
Gruss
Bruno