如何在odt Open Office文档中进行搜索和替换？

Question

在我的Delphi应用程序中，我目前正在使用Office OLE自动化来对doc和docx文档进行搜索和替换。请问有人有代码可以在OpenOffice中做到同样的事情（对于doc，docs，odt）吗？

我还在相关问题上提问了如何保存为pdf的问题。

- UnDiUdin

---

有没有 Delphi 代码可以操作 Docx 文档？ - none

是的，许多情况下，您应该使用OLE自动化（ActiveX），例如https://dev59.com/QVXTa4cB1Zd3GeqP4Le0。 - UnDiUdin

Answer 1

您应该关注XReplaceable接口。以下是一个示例。请注意，此示例中没有错误处理。我已经在LibreOffice Writer上进行了测试，并且可以正常工作。

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的搜索/替换选项。

- TLama

---

太好了，只需要习惯使用 // 而不是 \ 就可以了，但它运行得很好！ - UnDiUdin