Как искать и заменить в ODT Open Office Document?
-
25-10-2019 - |
Вопрос
В своем заявлении Delphi я в настоящее время выполняю программно поиск и заменяю документы DOC и DOCX Word с использованием Office OLE Automation. У кого -нибудь есть код, чтобы сделать то же самое (для Doc, Docs, ODT) в OpenOffice?
Я также спросил Связанный вопрос о сохранении в PDF.
Решение
Вы должны сосредоточиться на Xreplacable интерфейс. Вот пример. Обратите внимание, что нет обработки ошибок. Я проверил это с автором 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.
Не связан с StackOverflow