Hallo!
Am Freitag, 4. Dezember 2009 10:27:04 schrieb Andreas Saeger:
> Ich kann Makros schreiben, würde aber wetten, dass ich das manuell
> schneller auf die Reihe bekomme.
Bei mehreren hundert Dateien von Hand schneller als so? ;-)
Sub Main
Dim sDir As String, sDirURL As String
Dim sFile As String, sFileURL As String
Dim oDoc As Object
Dim oProps(1) As New com.sun.star.beans.PropertyValue
Dim oReplace As Object
sDir = "/home/schnulli/tmp"
sDirURL = ConvertToUrl( sDir )
sFile = Dir$( sDir + getPathSeparator() + "*.odt", 0 )
Do
sFileURL = sDirURL + getPathSeparator() + sFile
oProps(0).Name = "Hidden" : oProps(0).Value = True
oDoc = StarDesktop.loadComponentFromURL( sFileURL, "_blank", 0, oProps() )
oReplace = oDoc.createReplaceDescriptor()
oReplace.SearchString = "ABC"
oReplace.ReplaceString = "123"
oDoc.replaceAll( oReplace )
oDoc.StoreAsURL( sFileURL, oProps() )
oDoc.close( False )
sFile = Dir$()
Loop Until sFile = ""
MsgBox( "Ende Gelände...", 0 )
End Sub
Schönes WE!
GV
---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org
