Замена MS Word на OOo, Libre

[Человек_Борща]

Здравствуйте

Собственно организация массово-внезапно отказалась от MS Office. Офис отвалился. Поставил себе OpenOffice. документы ворда криво отображаются в Writer'е, но на этом беды не заканчивается.

У меня есть некий RTF-шаблон, который надо клонировать, а клон заполнить через OLE-сервер. Раньше использовал Word.Application:

  word = createoleobject('word.application')
  word. ... 
  понеслось....

Теперь без ворда как быть? Есть кто, переживший такую миграцию?

[Stilet]

Вот так:

 
TAlisaOfficeLibre=record
   StarOffice, StarDesktop, Document, Sheets, Sheet, Cell, OpenParam: variant;
end;
Libre:TAlisaOfficeLibre;
...
function TAlisaOffice.OpenLibre: Boolean;
begin
 Result:=true;
 with Libre do begin
   StarOffice:=Unassigned;
   Document:=Unassigned;
   Sheets:=Unassigned;
 end;
 
 try
   Libre.StarOffice := CreateOleObject('com.sun.star.ServiceManager');
 except
   on E:Exception do begin
     Result:=false;
     Error:='Error on trying CreateOleObject "com.sun.star.ServiceManager": '+e.Message;
     exit;
   end;
 end;

 if VarIsClear(Libre.StarOffice) then  begin
  Error:='Error: Libre object not created. ';
  Result:=false;
  exit;
 end;

 try
   Libre.StarDesktop := Libre.StarOffice.createInstance('com.sun.star.frame.Desktop');
 except
   on E:Exception do begin
     Error:='Error on trying createInstance "com.sun.star.frame.Desktop": '+e.Message;
     Result:=false;
     exit;
   end;
 end;

 if VarIsClear(Libre.StarDesktop) then  begin
  Error:='Error: Libre StarDesktop not created. ';
  Result:=false;
  exit;
 end;


end;

function TAlisaOffice.OpenFile(FileName: AnsiString): Boolean;
var lop:Variant; fn:olevariant;
begin
  if not VarIsClear(Libre.StarDesktop) then begin
   try
     fn:='file:///'+StringReplace(FileName,'\','/',[rfReplaceAll]);

    Libre.Document := Libre.StarDesktop.LoadComponentFromURL(
                     fn, '_blank', 0,
                     lop);
     if not VarIsClear(Libre.Document) then begin
          Libre.Sheets := Libre.Document.getSheets;
     end else begin
      Error:='Sheets not taked';
      exit;
     end;

   except
     on E:Exception do begin
       Error:='Error on trying load file "'+FileName+'": '+e.Message;
       Result:=false;
       exit;
     end;
   end;
  end else begin
   Error:='Error: Cannot load file "'+FileName+'". Libre object not created. ';
   Result:=false;
  end;
end;