OpenOffice.info

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

[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

Hallo,
gibt es eine Möglichkeit, die Kennworte vieler Dateien in einem Zug gegen ein neues Kennwort auszutauschen?
Gruß
dkwupp