Bir kod buldum fakat write(word ) de çalışıyor ben calc (excel) de çalışan versiyonunu arıyorum
Bunu nasıl yapabilirim?
teşekkürler
word için çalışan kod
Kod: Tümünü seç
// Bul ve değiştir fonksiyonu
procedure OpenOfficeReplace(const AFileURL: string; ASearch: string;
const AReplace: string);
var
StarOffice: variant;
StarDesktop: variant;
StarDocument: variant;
FileReplace: variant;
FileParams: variant;
FileProperty: variant;
begin
StarOffice := CreateOleObject('com.sun.star.ServiceManager');
StarDesktop := StarOffice.CreateInstance('com.sun.star.frame.Desktop');
FileParams := VarArrayCreate([0, 0], varVariant);
FileProperty := StarOffice.Bridge_GetStruct
('com.sun.star.beans.PropertyValue');
FileProperty.Name := 'Hidden';
FileProperty.Value := false;
FileParams[0] := FileProperty;
StarDocument := StarDesktop.LoadComponentFromURL(AFileURL, '_blank', 0,
FileParams);
FileReplace := StarDocument.CreateReplaceDescriptor;
FileReplace.SearchCaseSensitive := false;
FileReplace.SetSearchString(ASearch);
FileReplace.SetReplaceString(AReplace);
StarDocument.ReplaceAll(FileReplace);
// ShowMessage('Replace has been finished');
// StarDocument.close(true);
// StarDesktop.Terminate;
// StarOffice := Unassigned;
end;