Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
16 апр 2024, 08:15

Изменить цвет таблицы в OpenOffice Writer.

Автор lopolopserg, 10 дек 2014, 11:20

0 Пользователей и 1 гость просматривают эту тему.

lopolopserg

Доброго времени суток!
Впервые решил Создать док OpenOffice из 1с. Сделала всё, кроме одного:
Как сделать в таблице "белые линии" или без обрамления.
У меня не электронная таблица, а текстовый документ.

Буду благодарен любой помощи! Спасибо!

Таблица создаётся, текст вставляется.
Код создание таблицы:

//Создаём таблицу
Table = Document.createInstance("com.sun.star.text.TextTable");
Table.initialize(1, 2); // строки, столбцы

InsertPoint = Document.Text.getEnd();
InsertPoint.getText().insertTextContent(InsertPoint, Table, false);

//Вставляем текст реквизитов в ячейки таблицы
ДанныеСтроки = Новый COMSafeArray("VT_VARIANT", 2);
ДанныеСтроки.SetValue(0, ЗаполениеПодвала1());
ДанныеСтроки.SetValue(1, ЗаполениеПодвала2());
Данные = Новый COMSafeArray("VT_VARIANT", 1);
Данные.SetValue(0, ДанныеСтроки);
Table.setDataArray(Данные);

// Устанавливаем ширину таблицы и столбцов

Table.Width = 10000;
TableColumnSeparators = Table.TableColumnSeparators;
TableColumnSeparators.GetValue(0).Position = 2000;
Table.TableColumnSeparators = TableColumnSeparators;

lopolopserg

Разобрался. Кому может пригодится.

//Вставляем текст реквизитов в ячейки таблицы      
ДанныеСтроки = Новый COMSafeArray("VT_VARIANT", 2);
ДанныеСтроки.SetValue(0, ЗаполениеПодвала1());
ДанныеСтроки.SetValue(1, ЗаполениеПодвала2());
Данные = Новый COMSafeArray("VT_VARIANT", 1);
Данные.SetValue(0, ДанныеСтроки);
Table.setDataArray(Данные);

// Устанавливаем ширину таблицы и столбцов

Table.Width = 10000;
TableColumnSeparators = Table.TableColumnSeparators;
TableColumnSeparators.GetValue(0).Position = 5000;
//TableColumnSeparators.GetValue(1).Position = 1000;
Table.TableColumnSeparators = TableColumnSeparators;
   
  v = Table.TableBorder;
 
  x = v.TopLine;         x.OuterLineWidth = 0;  v.TopLine = x;
  x = v.LeftLine;        x.OuterLineWidth = 0;  v.LeftLine = x;
  x = v.RightLine;       x.OuterLineWidth = 0;  v.RightLine = x;
  x = v.TopLine;         x.OuterLineWidth = 0;  v.TopLine = x;
  x = v.VerticalLine;    x.OuterLineWidth = 0;  v.VerticalLine = x;
  x = v.HorizontalLine ; x.OuterLineWidth = 0;  v.HorizontalLine = x;
  x = v.BottomLine ;     x.OuterLineWidth = 0;  v.BottomLine = x;

  Table.TableBorder = v

Похожие темы (5)

Рейтинг@Mail.ru

Поиск