function OpenOfficeE(FName:string;typ:Integer=0):Boolean;
var
typV:TOpenOM;
begin
  try

    case typ of
        0:typV:=[oomAsTemplate];
        1:typV:=[oomHidden];
        2:typV:=[oomReadOnly];
    end;
    OC:=TOOCalc.Create;
    OC.Connect:=true;
    OC.OpenDocument( PathDoc + '\'  + FName,typV,ommAlwaysNoWarn);
    Result := True;

   except
    on E: Exception do
    begin
      stLog := 'Ошибка запуска OpenOffice: '+ E.Message;
      UGlobals.WriteLog(ApCatcher.Log, stLog);
      OC.Free;
      Result:=false;
    end;
   end;
end;

if not OpenOfficeE(RepFileName,1) then Exit;
OC.Sheets.ActiveByIndex:=0;
.............................................
OC.Sheets.Active.Cell[0,i].AsText := 'ИТОГО:';
CellsMergeMyHOO('A', 'G', i+1,i+1, ovaCenter, ohaLeft, True);