0
Dmitriy_
Kolesnikov
28.11.12
✎
22:25
|
Задали сегодня задачу, подскажите, где можно посмотреть пример реализации?
Задача такая. Есть макет в Ворде (3 страницы с колонтитулами). В нем несколько таблиц. Надо не просто заполнить этот макет, а в паре таблиц создать нужное количество строк.
Подскажите, где посмотреть пример изменения таблицы в Ворде.
Прошу не предлагать реализовать это на основе макета 1С. Там колонтитулы с картинками, 1С так не может.
|
|
8
sergeante
29.11.12
✎
11:08
|
(0)
чтото типа
Док.Tables(3).Select(); // если этого не сделать, то не находит таблицу
Для каждого Стр Из СпецСсылка.Товары Цикл
// тут ячейки в строке заполняются
Док.Tables(3).Cell(Стр.НомерСтроки, 1).Range.Text = Стр.Товар.Наименование;
Док.Tables(3).Cell(Стр.НомерСтроки, 2).Range.Text = Стр.ЕдИзм.Наименование;
Док.Tables(3).Cell(Стр.НомерСтроки, 3).Range.Text = Стр.Количество; //Формат(Стр.Количество, "ЧДЦ=3");
Док.Tables(3).Cell(Стр.НомерСтроки, 4).Range.Text = Формат(Стр.Цена, "ЧДЦ=2");
Док.Tables(3).Cell(Стр.НомерСтроки, 5).Range.Text = Формат(Стр.СуммаНДС, "ЧДЦ=2; ЧН=-");
Док.Tables(3).Cell(Стр.НомерСтроки, 6).Range.Text = Формат(Стр.Сумма, "ЧДЦ=2");
Если Стр.НомерСтроки < СпецСсылка.Товары.Количество() Тогда
Док.Tables(3).Cell(Стр.НомерСтроки, 6).Select(); // выбираем последнюю ячейку в последней строке (хз зачем, но видимо так надо было)
Док.Application.Selection.InsertRowsBelow(1); //<<<<<<<<<<<<<<< тут добавляется строка снизу
КонецЕсли;
КонецЦикла;
|
|