mehrere Dokumente in verschiedenen Ordnern gleichzeitig entsperren

  • Word

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von petaod.

    mehrere Dokumente in verschiedenen Ordnern gleichzeitig entsperren

    Hallo zusammen,

    ich bräuchte bitte eure Hilfe bei einem Problem.

    Use Case: ich habe mehrere Ordner mit diversen Unterordnern (dabei kann die Anzahl der Unterordner varrieren). Im letzten Unterordner befinden sich Word Dokumente, welche alle mit einem Schreibschutz belegt sind. Ich möchte diese Word Dokumente alle gleichzeitig entsperren.

    Folgendes Makro haben wir erstellt:

    Visual Basic-Quellcode

    1. Sub Unterordner()
    2. '
    3. Const sSourcePath As String = "C:\Users\JRademacher\Desktop\Test Schreibschutz\Mit Schreibschutz"
    5. Dim fld, file
    7. Dim fso As Object
    8. Dim objFld As Object
    9. Dim objSubFld As Object
    10. Dim objFiles As Object
    12. Set fso = CreateObject("Scripting.FileSystemObject")
    13. Set objFld = fso.getfolder(sSourcePath)
    14. Set objSubFld = objFld.SubFolders
    16. For Each fld In objSubFld
    17. Set objFiles = fld.Files
    18. For Each file In objFiles
    19. Application.Documents.Open (file.path)
    20. Call Test()
    21. ActiveWorkbook.Close savechanges:=False
    23. Next
    25. Next
    27. End Sub
    29. Sub Test()
    30. '
    31. ' Test Makro
    32. ' Entfernt das Passwort von allen Word-Dateien aus Quelle und
    33. ' schreibt die Worddateien ohne Passwort nach Ziel
    34. Const Quellverzeichnis = "C:\Users\JRad\Desktop\Test Schreibschutz\Mit Schreibschutz"
    35. Const Zielverzeichnis = "C:\Users\JRad\Desktop\Test Schreibschutz\Ohne Schreibschutz"
    36. Const MyPasswort = "1234"
    38. Dim DatNam As String
    39. DatNam = Dir(Quellverzeichnis & "\*.doc") '1. Dateinamen holen
    40. Do Until DatNam = "" 'Alle Files im VZ abklappern
    41. ' Worddatei mit Passwort öffnen
    42. Documents.Open FileName:=Quellverzeichnis & "\" & DatNam, ConfirmConversions:=False, ReadOnly:= _
    43. False, AddToRecentFiles:=False, PasswordDocument:=MyPasswort, PasswordTemplate:= _
    44. "", Revert:=False, WritePasswordDocument:=MyPasswort, WritePasswordTemplate:= _
    45. "", Format:=wdOpenFormatAuto
    47. ' Worddatei ohne Passwort schreiben
    48. ActiveDocument.SaveAs FileName:=Zielverzeichnis & "\" & DatNam, FileFormat:=docx, _
    49. LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
    50. :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
    51. SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
    52. False
    54. ' Dokument schließen
    55. ActiveDocument.Close
    57. ' nächste Datei holen
    58. DatNam = Dir
    59. Loop
    60. End Sub

    Das „Sub Test” alleine funktioniert, wenn sich alle Dokumente in einem Ordner befinden. Aber der Zugriff auf die Unterordner funktioniert leider nicht.

    Ich hoffe wirklich sehr, dass mir jemand helfen kann, ich müsste sonst ca. 1300 Ordner öffnen und die Dokumente rauskopieren.

    Vielen lieben Dank schonmal und schöne Grüße
    Jule

    CodeTags gesetzt ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

Facebook
Telefonspende