odtで検索と置換を行う方法Officeドキュメントを開きますか？

Question

私の現在のDelphiアプリケーションでは、私は現在行っています&オフィスオートメーションオートメーションを使用して、docおよびdocxワードドキュメントをプログラムで置き換えます。誰もOpenOfficeで（doc、docs、odtのために）同じことをするコードを持っていますか？

私もrelated question on saving to pdfと尋ねました。

Answer 1

XReplaceableインターフェイスに焦点を当てる必要があります。ここに例があります。エラー処理はありませんのでご注意ください。私はLibreOfficeの作家でテストしましたが、うまく動作します。

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; 

そして例の使用

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

SearchDescriptorのためのいくつかの検索/置換オプションもあります。