Ich glaube ich gebs auf...

Er überspringt in jedem Fall den Lopp und ich verstehe nicht wieso.

Ich werde es nochmal auf andere weiße Probieren, die mir eig eh lieber wäre, da die Originaldatei bleibt wie sie ist und ich für meine Zwecke einfach die Datei ohne Schreibschutz kopiere. Problem ist, dass das Makro aktuell nur bei Word97 Dateien funktioniert. Wenn ich beim Quellverzeichnis das .doc auf .docx bzw um beides zu bearbeiten .doc* ändere, bekomme ich bei der ersten docx datei beim Schritt 'Worddatei ohne Passwort schreiben, einen Laufzeitfehler 6294.  Mit folgendem Makro:

Sub WordDateienEntsperren()
' Entfernt das Passwort von allen Word-Dateien aus Quelle und
' schreibt die Worddateien ohne Passwort nach Ziel
Const Quellverzeichnis = "C:\Users\sbutz\Desktop\Test1"
Const Zielverzeichnis = "C:\Users\sbutz\Desktop\Test1 neu"
Const MyPasswort = "**"

Dim DatNam As String
DatNam = Dir(Quellverzeichnis & "\*.doc") '1. Dateinamen holen
Do Until DatNam = "" 'Alle Files im VZ abklappern
 ' Worddatei mit Passwort öffnen
     Documents.Open FileName:=Quellverzeichnis & "\" & DatNam, ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:=MyPasswort, PasswordTemplate:= _
        "", Revert:=False, WritePasswordDocument:=MyPasswort, WritePasswordTemplate:= _
        "", Format:=wdOpenFormatAuto
 
 ' Worddatei ohne Passwort schreiben
    ActiveDocument.SaveAs FileName:=Zielverzeichnis & "\" & DatNam, FileFormat:=wdFormatDocument, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
    
 ' Dokument schließen
 ActiveDocument.Close
 
 ' nächste Datei holen
 DatNam = Dir
Loop
End Sub