procedure  TForm1.Button1Click(Sender: TObject);
 var 
  LoadParams, aLoader: Variant;
  ServiceManager, Desktop : Variant;
  CoreReflection, PropertyValue, VA: Variant;
  Document: Variant;
  TableCursor, Table, TableCell : Variant;
  obj, objText, objCursor : Variant;
  w : integer;
  Cols : Variant;
 begin 
   if  VarIsEmpty(ServiceManager)  then 
     try 
      ServiceManager := CreateOleObject('com.sun.star.ServiceManager');
     except 
       Raise  Exception.Create('Couldn''t get ServiceManager');
      Exit;
     end ;

  CoreReflection := ServiceManager.createInstance('com.sun.star.reflection.CoreReflection');
  CoreReflection.forName('com.sun.star.beans.PropertyValue').createObject(PropertyValue);
  VA := VarArrayCreate([ 0 ,  0 ], varVariant);
  VA[ 0 ] := PropertyValue;

  Desktop := ServiceManager.createInstance('com.sun.star.frame.Desktop');
  Document := Desktop.LoadComponentFromURL( 'private:factory/swriter','_blank',  0 ,  VA);
   if  (VarIsNull(Document)  or  VarIsEmpty(Document))  then 
      begin 
        Raise  Exception.Create('Couldn''t create document');
       Exit;
      end ;

  objText := Document.getText;
   //Create a cursor object 
  objCursor := objText.createTextCursor;

   //Inserting some Text 
  objCursor.setPropertyValue('CharHeight', 12 );  //size 
  objCursor.setPropertyValue('CharWeight', 150 ); //bold 
  objCursor.setPropertyValue('ParaAdjust', 3 );   //center 
  objText.insertString(objCursor, 'The first line.', false);
  objText.insertControlCharacter(objCursor,  0 , false );  //PARA_BREAK 
  objText.insertControlCharacter(objCursor,  1 , false );  //LINE_BREAK 
  objText.insertControlCharacter(objCursor,  0 , false );  //PARA_BREAK 

  objCursor.setPropertyValue('CharHeight', 20 );  //size 
  objCursor.setPropertyValue('CharWeight', 150 ); //bold 
  objCursor.setPropertyValue('ParaAdjust', 0 );   //left 
  objCursor.setPropertyValue('CharUnderline', 1 ); //0-none, 1-single,...,18-BOLDWAVE 
  objText.insertString(objCursor, 'The second line.', false);

  objCursor.setPropertyValue('CharHeight', 12 );  //size 
  objCursor.setPropertyValue('CharWeight', 100 ); //normal 
  objCursor.setPropertyValue('CharUnderline', 0 ); //0-none 
  objText.insertString(objCursor, 'The second line.', false);

  objText.insertControlCharacter(objCursor,  0 , false );  //PARA_BREAK 
  objText.insertControlCharacter(objCursor,  0 , false );  //PARA_BREAK 

   //Inserting some Table 
  Table := Document.createInstance( 'com.sun.star.text.TextTable' );
  Table.initialize( 5 ,  4 );   //row, column 
  Table.HoriOrient :=  0 ;
  Table.LeftMargin :=  200 ;  // 2* 1/100 mm; 
  Table.RightMargin :=  200 ;

  Document.getText.insertTextContent( objCursor, Table, false );

  obj := Table.TableColumnSeparators;
  obj[ 0 ].Position :=  750 ;
  obj[ 1 ].Position := obj[ 0 ].Position+ 2000 ;
  obj[ 2 ].Position := obj[ 1 ].Position+ 2000 ;

  Table.TableColumnSeparators := obj;

   //   Cols := Table.getColumns; 
   //   w :=  Cols.getCount; 

  TableCell := Table.getCellByName('A1');
  TableCell.setString('A1');
  TableCell := Table.getCellByPosition( 1 ,  1 );
  TableCell.setString('**B2**');
  TableCell := Table.getCellByPosition( 2 ,  1 );
  TableCell.setString('**C2**');

 end ;

 procedure  TForm1.Button1Click(Sender: TObject);
 var 
StarOffice, StarDesktop, Document, Sheets, Sheet, MyStruct, Cell: variant;
J, I: integer;
 begin 
  StarOffice := CreateOleObject('com.sun.star.ServiceManager');

  StarDesktop := StarOffice.createInstance('com.sun.star.frame.Desktop');
  Document := StarDesktop.LoadComponentFromURL(
                  'private:factory/scalc', '_blank',  0 ,
                  VarArrayCreate([ 0 , - 1 ], varVariant));
  MyStruct := StarOffice.Bridge_GetStruct('com.sun.star.table.BorderLine');

     try 

    Sheets := Document.getSheets;
    Sheet := Sheets.getByName('Лист1');
    Cell := Sheet.getCellRangeByName('C10:C13'); // cell := sheet.getCellRangeByPosition(0, 1, 0, 3); 
    Cell.setPropertyValue('CellBackColor',  255 ); //  Cell.cellBackColor :=200; 
  //   Cell.setPropertyValue('GoToCell');  //как сд 

    J :=  1 ; I :=  1 ;
    Cell := Sheet.getCellByPosition(j, i);
    // Cell.charColor := 255; 
    Cell.charHeight :=   14 ;
    Cell.CharWeight:=  150 ;
    Cell.charUnderline := true;
    Cell.charPosture := true;
    Cell.charStrikeout  := true;


    Cell.SetString('САЛЬДОВО-ГРУППИРОВОЧНАЯ ВЕДОМОСТЬ ПО УСЛУГЕ:');

    Cell := Sheet.getCellByPosition(j, i+ 1 );
       //MyStruct.color := 255; 
    MyStruct.lineDistance  :=  0 ;
    MyStruct.innerLineWidth :=  0 ;
    MyStruct.outerLineWidth :=  1 ;
    Cell.leftBorder :=  MyStruct;
    Cell.rightBorder := MyStruct;
    Cell.topBorder := MyStruct;
    Cell.bottomBorder := MyStruct;

    Cell.SetString('Дом: ');


   finally 
    StarOffice := Unassigned;
   end ;
 end ;

 procedure  TForm1.Button4Click(Sender: TObject);
 var 
  OOServiceManager, OODispatcher, OODocument, OODesktop: Variant;
  ooParams, ooFrame: Variant;

 begin 

 OOServiceManager := CreateOleObject('com.sun.star.ServiceManager');
 OODesktop:= OOServiceManager.createInstance('com.sun.star.frame.Desktop');
 OODocument := OODesktop.LoadComponentFromURL( 'private:factory/scalc', '_blank',  0 , VarArrayCreate([ 0 , -  1 ], varVariant));

 OODispatcher := ooServiceManager.createInstance('com.sun.star.frame.DispatchHelper');

 ooFrame:=OODocument.getCurrentController.getFrame;
 ooParams:= VarArrayCreate([ 0 ,  0 ], varVariant);


 ooParams[ 0 ] := OOServiceManager.Bridge_GetStruct('com.sun.star.beans.PropertyValue');

 ooParams[ 0 ].name := 'ToPoint';
 ooParams[ 0 ].value := '$F$3:$F$5';
 ooDispatcher.executeDispatch(ooFrame, '.uno:GoToCell', '',  0 , ooParams);
 ooDispatcher.executeDispatch(ooFrame, '.uno:ToggleMergeCells' , '',  0 , ooParams);

 ooParams[ 0 ].name := 'ToPoint';
 ooParams[ 0 ].value := '$F$13:$F$15';
 ooDispatcher.executeDispatch(ooFrame, '.uno:GoToCell', '',  0 , ooParams);
 ooDispatcher.executeDispatch(ooFrame, '.uno:ToggleMergeCells' , '',  0 , ooParams);




 ooParams[ 0 ].name := 'ToPoint';
 ooParams[ 0 ].value := '$F$23:$F$25';

 ooParams[ 0 ].name := 'Color';
 ooParams[ 0 ].value :=  16711680  ;
 ooDispatcher.executeDispatch(ooFrame, '.uno:GoToCell', '',  0 , ooParams);
 ooDispatcher.executeDispatch(ooFrame, '.uno:Color', '',  0 , ooParams);

 end ;

Cell := Sheet.getCellRangeByName('A4:D4').Merge(true);

Cell.ParaAdjust :=  3 ;