Kennwort vieler Dokumente im batch ändern

Setup und Komponenten-übergreifende Probleme.

Moderator: Moderatoren

dkwupp
Beiträge: 1
Registriert: Do, 21.12.2017 12:14

Kennwort vieler Dokumente im batch ändern

Beitrag von dkwupp »

Hallo,
gibt es eine Möglichkeit, die Kennworte vieler Dateien in einem Zug gegen ein neues Kennwort auszutauschen?
Gruß
dkwupp
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Kennwort vieler Dokumente im batch ändern

Beitrag von Stephan »

gibt es eine Möglichkeit, die Kennworte vieler Dateien in einem Zug gegen ein neues Kennwort auszutauschen
Ja, Du kannst die Dokumente per Makro öffnen und ohne Passwort neu speichern. Ungefähr so (nicht getestet):

Code: Alles auswählen

Sub Oeffnen_und_Neuspeichern()
Dim prop(0) as new com.sun.star.beans.PropertyValue
prop(0).Name = "Password"
prop(0).Value = "DeinPasswort"
srcs = GetFileNames("D:\test","*.odt")
Dim i As Integer 
For i = 1 to UBound(srcs) 
   akt_doc = StarDesktop.loadComponentFromURL (ConvertToURL(srcs(i)), "_blank", 0, prop())
	url = akt_doc.URL
   akt_doc.storeAsURL(url, Array())
   akt_doc.Close(true)
Next i
End Sub

    
Function GetFileNames(dirPath As String, Files As String)
   
   Dim dirValue as String
   Dim a(0) As String
   Dim n As Long
   n = 0
   a(n) = dirPath
   dirValue = Dir(dirPath & Files)
   Do While dirValue <> "" 
      n = n + 1
      Redim Preserve a(n) As String
      a(n) = dirValue
      dirValue = Dir
   Loop 
   GetFileNames = a
End Function
Gruß
Stephan
Antworten