Public Sub test()
Randomize
ooOpenDoc ("F:\Проект\Шаблоны\Temp\ШаблонЦены.ods") ' открывает документ и передает его 'параметры системным переменным

CreateStyle "AAA", ooLightGrey, ooBlack,  200  ' создает стиль форматирования AAA

                For n =  2  To  5 
                    SetCellsFont  7 , n, ooBold,  12     ' устанавливает шрифт, стиль болд
                    BorderCells  7  + i, n, ooBlack, ooBorder ' рисует рамку
                Next n

        For i =  1  To  10 
                        PrintCells  7  + i,  2 , i    ' рисует значение на лист в координатах R1C1 экселя
                        PrintCells  7  + i,  3 , "Товар №" & i
                        PrintCells  7  + i,  4 , Round(Rnd *  100 ,  2 )
                        PrintCells  7  + i,  5 , Format(Date, "DD/MM/YYYY")
                        StyleCells  7  + i,  5 , "AAA" ' стилизуем ячейки созданным стилем AAA
                For n =  2  To  5 
                       BorderCells  7  + i, n, ooBlack, ooBorder 'делаем рамки 
                Next n
        Next i

PrintSumForm  18 ,  4 ,  8 ,  4 ,  17 ,  4  ' Пишем в ячйку формулу сумма 2 координаты ячейки, 4 координаты диапазона
' вывел её в отдельный саб, т.к. часто юзаю
    BorderCells  18 ,  4 , ooBlack, ooHighBorder ' рамка
    SetCellsFont  18 ,  4 , ooBolIt,  12   ' стиль шрифта БолдИталик
ooPrintDoc  ' не работает
ooSaveDoc ("F:\Проект\Шаблоны\Temp\ШаблонЦены.ods") ' не работает, точнее работает но вызывает восстановление документа
'ooCloseDoc
End Sub