Comment rechercher et remplacer dans odt Ouvrir le document Office?

Question

Dans ma demande Delphi Je ne diffusons actuellement Rechercher et remplacer par programme pour les documents Word doc et docx en utilisant la bureautique ole. Est-ce que quelqu'un a le code pour faire la même chose (pour doc, docs, odt) dans OpenOffice?

Je demande aussi question connexe sur l'enregistrement au format pdf .

Answer 1

Vous devriez prendre l'accent sur XReplaceable < Interface / a>. Voici l'exemple. S'il vous plaît noter qu'il n'y a pas de gestion des erreurs. Je l'ai testé avec l'écrivain LibreOffice et il fonctionne très bien pour moi.

uses
  ComObj;

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;

Et l'utilisation de l'exemple

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenOfficeReplace('file:///C:/File.odt', 'Search', 'Replace');
end;

Il y a aussi plusieurs rechercher / remplacer les options pour SearchDescriptor .