WORD 2003 - Makro

[hajo]

Hallo,

ich möchte Aktionen per Makro für alle WORD-Dateien in einem Verzeichnis ausführen lassen.
Wie lauten die Anweisungen für die entsprechende Schleife?

Danke für die Hilfe.
Hajo

[brum]

Hallo Hajo

Du könntest es wie folgt machen (Teil):

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

[hajo]

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

[Hascheff]

Welches Makro produziert die Fehlermeldung?
Und in welcher Zeile?

[hajo]

Hallo Hascheff,

ich habe es mit mehreren Call-Makros versucht; der Fehler wird angezeigt in der Zeile 'Documents.Open FileName' im aufrufenden, oben gezeigten Makro.

Jetzt habe ich festgestellt, dass unmittelbar nach PC-Start das Makro funktioniert, bei einem zweiten Aufruf jedoch der Fehler kommt.

Gruß
Hajo