Innerhalb eines Calc-Dokumentes muß man vorher festlegen in welchem Bereich (Zellbereich
oder Arbeitsblatt) man ersetzen will. Erst dann steht der Replacedescriptor zur Verfügung, der
ein Suchen und Ersetzen ermöglicht.
sub ersetzen
'Arbeitsblatt
oSheet =ThisComponent.sheets(0)
oSuchen = oSheet.createReplaceDescriptor
oSuchen.setSearchString("41")
oSuchen.setReplaceString("411")
osheet.replaceAll(oSuchen)
'oder Zellbereich
oSheet =ThisComponent.sheets(0)
oRange = osheet.getCellRangeByName("A1:B5")
oSuchen = oRange.createReplaceDescriptor
oSuchen.setSearchString("41")
oSuchen.setReplaceString("411")
orange.replaceAll(oSuchen)
end sub
Möchte man in alle Arbeitsblätter Suchen und Ersetzen muß man eine Schleife über alle
Arbeitsblätter durchführen.
myCalc = thisComponent
Anzahl=myCalc.Sheets.count
For i=0 to Anzahl-1
oSheet = myCalc.Sheets(i)
oSuchen = oSheet.createReplaceDescriptor
oSuchen.setSearchString("41")
oSuchen.setReplaceString("411")
osheet.replaceAll(oSuchen)
Next i
