Openoffice calc da de bul ve değiştir

Yapmak istediğiniz işle ilgili doğru bileşeni bulmak için burayı kullanabilirsiniz. Sadece bulmak için, diğer sorular Programlama forumuna lütfen.
Forum kuralları
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Cevapla
JavaCiva
Üye
Mesajlar: 54
Kayıt: 27 Tem 2014 05:10

Openoffice calc da de bul ve değiştir

Mesaj gönderen JavaCiva »

Merhaba Open office için bul ve değiştir komutlarına ihtiyacım var . Aslında excel de yapılıyor sanırım ama ben open office de yapılmasını istiyorum.
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;
Cevapla