7.5.1 Wie kann man in Calc-Dokumenten suchen und ersetzen?
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