Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

22 Ноябрь 2019, 09:08 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: « 1 2   Вниз
  Печать  
Автор Тема: Перевод Math Guide 4.4  (Прочитано 25195 раз)
0 Пользователей и 1 Гость смотрят эту тему.
mikekaganski
Мастер
*****
Offline Offline

Пол: Мужской
Расположение: Хабаровск -> Москва
Сообщений: 1 547


« Ответ #38556: 4 Ноябрь 2016, 16:20 »

Здесь я писал код для массового изменения форматирования формул в документе:

Код:
Sub SetMathBorder
  On Error Resume Next ' Prevents deleted objects from causing errors.
  dim oEmbObject as Object
  for each oEmbObject in ThisComponent.getEmbeddedObjects()
    if oEmbObject.CLSID = "078B7ABA-54FC-457F-8551-6147e776a997" then ' Formula!
      dim oModel
      oModel = oEmbObject.Model
      if (not isNull(oModel)) then
        if (not isEmpty(oModel)) then
          with oEmbObject
            .LeftMargin = 0
            .RightMargin = 0
            .TopMargin = 0
            .BottomMargin = 0
          end with
          with oModel
            .LeftMargin = 0
            .RightMargin = 0
            .TopMargin = 0
            .BottomMargin = 0
          end with
          ' Update
          oEmbObject.ExtendedControlOverEmbeddedObject.Update()
        end if ' if not empty
      end if ' if not null
    end if ' if formula
  next ' oMathObject
  ThisComponent.Reformat() ' Updates all elements in the document
End Sub

Слегка изменив, можно использовать для настройки шрифтов и т.п.
Записан

С уважением,
Михаил Каганский
Страниц: « 1 2   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!