Ich hätte noch folgendes makro, das funktioniert leider nur bei Word97 also .doc Dokumente. Mit dem neueren Word haben Sie jetzt die Endung .docx.
Wenn ich die Endung im Makro auf .docx oder .doc* ausbessere, um auch neuere Formate damit zu ändern, bekomme ich allerdings beim Schritt 'Worddatei ohne Passwort schreiben, einen Laufzeitfehler 6294.
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
|