[san7667]

Добрый день! В интернете нашел процедуру открытия файла через OpenOffice для последующей замены текста.
Процедура отрабатывает, но не сохраняет файл при его закрытии.
Подскажите пожалуйста что отсутствует в данной процедуре?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

procedure TFExpertzakl.OpenOfficeReplace(const AFileURL: string;   ASearch: string; const AReplace: string); var   StarOffice: Variant;   StarDesktop: Variant;   StarDocument: Variant;   FileReplace: Variant;   FileParams: Variant;   FileProperty: Variant;   VariantArray: 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);    // где то тут нужно его сохранить перед закрытием      StarDocument.Close(True);   StarDesktop.Terminate;      StarOffice := Unassigned; end;