Tabellen - Calc

Wie kann man in Calc-Dokumenten suchen und ersetzen?

Innerhalb eines Calc-Dokumentes muss 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.

Basic

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 muss man eine Schleife über alle Arbeitsblätter durchführen.

Basic

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