Forum des VBA-Tutorials

Alle Dateien im Ordner öffnen (VBA)

hajosch, Samstag, 10. Februar 2018, 12:33 (vor 10 Tagen)

Hallo,

das folgende Makro funktioniert unter Word 7 nicht:

 
 
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 mFuß
  datei = Dir
Wend
 
End Sub
 

Ich möchte alle Word-Dateien in einem Ordner öffnen, ein anderes Makro auf die Dateien anwenden und dann die Dateien wieder schließen.

Wie bekomme ich das Makro lauffähig?

Danke und Gruß
hajosch


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum