Работа с OpenOffice/LibreOffice

1С v8

27.03.19

✎

05:41

Доброго времени суток. Создаю документ:

        ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager");
    Desktop = ServiceManager.CreateInstance("com.sun.star.frame.Desktop");
    ПараметрыОО = Новый COMSafeArray("VT_DISPATCH", 1);
    Document = Desktop.LoadComponentFromURL("private:factory/swriter", "_blank", 0, ПараметрыОО);

Далее мне нужно задать размер полей. Стиль страницы (формат/Страница) определяется нормально:

        СтилиСтраницы=Документ.StyleFamilies.getByName("PageStyles");

Но листы не получает, пишет "Метод не обнаружен getSheets()":

        Листы = Document.getSheets();

Подскажите, что неверно делаю? Или может как-то по другому можно задать размер полей? Заранее спасибо за ответ

1 NUser

27.03.19

✎

06:24

Хотя тут листы в обще не нужны)

2 NUser

27.03.19

✎

07:22

Через стили страницы не могу найти. Подскажите кто сталкивался?

3 Автор

27.03.19

✎

08:39



        КоличествоСтилей = СтилиСтраницы.getCount();

    

    Если КоличествоСтилей > 0 Тогда

        Для i = 0 По КоличествоСтилей -1 Цикл

            defPage = СтилиСтраницы.GetByIndex(i);

            defPage.TopMargin = 500;

            defPage.LeftMargin = 500;            

        КонецЦикла;

    КонецЕсли;

4 NUser

27.03.19

✎

14:23

(3)Спасибо Вам большое. Мастерски.

  ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager");
    Desktop = ServiceManager.CreateInstance("com.sun.star.frame.Desktop");
    ПараметрыОО = Новый COMSafeArray("VT_DISPATCH", 1);
    Document = Desktop.LoadComponentFromURL("private:factory/swriter", "_blank", 0, ПараметрыОО);
    СтилиСтраницы=Document.StyleFamilies.getByName("PageStyles");
    КоличествоСтилей = СтилиСтраницы.getCount();

    Если КоличествоСтилей > 0 Тогда
        Для i = 0 По КоличествоСтилей -1 Цикл
            defPage = СтилиСтраницы.GetByIndex(i);
            defPage.TopMargin = 500;
            defPage.LeftMargin = 500;
        КонецЦикла;
    КонецЕсли;