How to Search and Replace in calc (ods) OpenOffice document

[liste]

I am using Delphi Vcl and I want to use Search&Replace command in openoffice or libreoffice calc program. there is one example in here (http://stackoverflow.com/questions/7806 ... e-document ) but it is work in only odt file. I need for ods (calc) Find&Replace code for pascal or delphi
thanks for helps

[karolus]

Hallo

In Case of Calc-files the Method ..createReplaceDescriptor is available on Ranges like single sheets.

Code: Select all   Expand viewCollapse view

...
sheet : = StarDocument.Sheets.getByIndex(0);
FileReplace := sheet.CreateReplaceDescriptor;
....

sheet.ReplaceAll(FileReplace); 

Karolus

[Charlie Young]

I would add that there is one poorly documented property of the SearchDescriptor which is specific to Calc:

SearchType (not included in API-reference ) integer - Determines if the search should be done in cell formulas (0) values (1) or notes (2). [Calc only]

[liste]

hi Karolus

Thanks for answer. I try to test that code but there is no Create Replace Descriptor event on sheet object can you send me small sample?

Hallo

In Case of Calc-files the Method ..createReplaceDescriptor is available on Ranges like single sheets.

Code: Select all   Expand viewCollapse view

...
sheet : = StarDocument.Sheets.getByIndex(0);
FileReplace := sheet.CreateReplaceDescriptor;
....

sheet.ReplaceAll(FileReplace);

Karolus

[karolus]

I'm only tell you what I've inspected with the Help ofMRI
Use the tool by yourself!

[Charlie Young]

hi Karolus

Thanks for answer. I try to test that code but there is no Create Replace Descriptor event on sheet object can you send me small sample?

Hallo

In Case of Calc-files the Method ..createReplaceDescriptor is available on Ranges like single sheets.

Code: Select all   Expand viewCollapse view

...
sheet : = StarDocument.Sheets.getByIndex(0);
FileReplace := sheet.CreateReplaceDescriptor;
....

sheet.ReplaceAll(FileReplace); 

Karolus

These things are case sensitive, try createReplaceDescriptor.