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

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

15 Апрель 2021, 21:17 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1 2 »   Вниз
  Печать  
Автор Тема: [SOLVED]: LOWriter: All Tables "BackgroundColor, SizeOptimal"  (Прочитано 1041 раз)
0 Пользователей и 1 Гость смотрят эту тему.
sokol92
Форумчанин
***
Online Online

Пол: Мужской
Сообщений: 379


WWW
« Ответ #57354: 4 Февраль 2021, 18:26 »

Макросы нужно просто писать, понимание придет потом
Придерживаюсь строго противоположной точки зрения. Улыбка

2. где брать достойную документацию по UNO?
Официальная документация на примере интерфейса TextTable.

"Вы будете смеяться", но для Вашего случая еще, похоже, методы UNO не написали. Тогда так:

Код:
Sub TestWriterTables
  Dim oTables, i As Long, oDisp, oFrame
  oDisp=createUnoService("com.sun.star.frame.DispatchHelper")
  oFrame=ThisComponent.CurrentController.Frame
  oDisp.executeDispatch(oFrame, ".uno:SelectTable", "", 0, Array())
  oTables=ThisComponent.TextTables
  For i=0 To oTables.Count-1
     oTables(i).BackColor=RGB(0,0,255) ' фон
     ThisComponent.CurrentController.select(oTables(i))
     oDisp.executeDispatch(oFrame, ".uno:SelectTable", "", 0, Array())
     oDisp.executeDispatch(oFrame, ".uno:SetOptimalColumnWidth", "", 0, Array())
     oDisp.executeDispatch(oFrame, ".uno:SetOptimalRowHeight", "", 0, Array())
  Next i
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!