von Stephan » Fr, 22.12.2017 09:09
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
[quote]gibt es eine Möglichkeit, die Kennworte vieler Dateien in einem Zug gegen ein neues Kennwort auszutauschen[/quote]
Ja, Du kannst die Dokumente per Makro öffnen und ohne Passwort neu speichern. Ungefähr so (nicht getestet):
[code]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
[/code]
Gruß
Stephan