Jak wyszukiwać i zamieniać w odtworzyć Otwórz dokument pakietu Office?

Question

W mojej aplikacji Delphi obecnie wykonuję Wyszukiwanie & Zastępuje programowo dokumenty dokumentów doc i docx przy użyciu automatyzacji biurowej ole. Czy ktoś ma kod do tego samego (do dokumentów, dokumentów, odt odt) w OpenOffice?

Poprosiłem również o related question on saving to pdf.

Answer 1

Należy skupić się na interfejsie XReplaceable. Oto przykład. Pamiętaj, że obsługa błędów nie jest obsługiwana. Przetestowałem to z pisarzem LibreOffice i działa dobrze dla mnie.

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; 

I wykorzystanie przykładzie

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

Istnieje również kilka wyszukiwania/zastąpić opcje SearchDescriptor.