0
ARumshin
24.07.15
✎
09:43
|
Добрый день, Коллеги!
Может кто сталкивался с выводом таблиц из 1С в WORD с помощью макета ActiveDocument. Прошу подсказать.
Мне необходимо после каждой группы статей выводить строчку с итоговым значение по статье.
Ниже таблица, которая выводиться у меня в ворде. Все выводиться, только не получается вывести строчку: Итого по ст. « ». Заранее спасибо за помощь!
№ п.п. Наименование статьи Кол-во Ст-ть/един. руб. Стоимость руб.
1.
1.1.
1.2.
Итого по ст. « »
2.
2.1.
Итого по ст. « »
3.
3.1
3.2
Итого по ст. « »
Общая сумма:
Код вывода таблицы:
ТекущаяСтрока = 1;
ТекущийСтолбец = 0;
//Заполним ТЧ
Количество = 0;
Стоимость = 0;
СтараяСтрока = 1;
Стомость1 = 0;
Для Каждого ТекСтрока Из Объект.СсылкаНаОбъект.БИТ_СметаРасходов Цикл
ТекущаяСтрока = ТекущаяСтрока +1;
Документ.Tables(1).Columns(1).Cells.Add(); // Добавить новую строку
Документ.Tables(1).Cell(ТекущаяСтрока, ТекущийСтолбец+1).Range.Text = Строка(НомерСтроки); // номер по порядку
Документ.Tables(1).Cell(ТекущаяСтрока, ТекущийСтолбец+2).Range.Text = Строка(ТекСтрока.БИТ_НаименованиеСтатьи);
Документ.Tables(1).Cell(ТекущаяСтрока, ТекущийСтолбец+3).Range.Text = Строка(ТекСтрока.БИТ_Количество);
Документ.Tables(1).Cell(ТекущаяСтрока, ТекущийСтолбец+4).Range.Text = Строка(ТекСтрока.БИТ_СебестоимостьЕдинБрутто);
Документ.Tables(1).Cell(ТекущаяСтрока, ТекущийСтолбец+5).Range.Text = Строка(ТекСтрока.БИТ_Стоимость);
КонецЦикла;
Документ.Tables(1).Columns(5).Cells.Add();
Документ.Tables(1).Cell(ТекущаяСтрока, 1).Merge(Документ.Tables(1).Cell(ТекущаяСтрока,2));
Документ.Tables(1).Cell(ТекущаяСтрока, 1).Range.Text = Строка("Общая сумма:");
Документ.Tables(1).Cell(ТекущаяСтрока, 1).Range.ParagraphFormat.Alignment = 2; //выравниванеие по правому краю
Документ.Tables(1).Cell(ТекущаяСтрока, 2).Range.Text = Строка(ТаблЧасть.Итог("БИТ_Количество"));
Документ.Tables(1).Cell(ТекущаяСтрока, 2).Range.ParagraphFormat.Alignment = 1; //выравниванеие по центру
Документ.Tables(1).Cell(ТекущаяСтрока, 4).Range.Text = Строка(ТаблЧасть.Итог("БИТ_Стоимость"));
Документ.Tables(1).Cell(ТекущаяСтрока, 4).Range.ParagraphFormat.Alignment = 1; //выравниванеие по центру
Word.Application.Visible = Истина;
Word.Activate();
|
|
2
MiamiVice
24.07.15
✎
10:11
|
Как правило, чтобы разобраться как заполнить документ Word, захожу в Word, нажимаю на кнопку "Записать макрос", ввожу руками то что нужно, смотрю что Word, записал в макрос. В результате становится очевидным алгоритм заполнения.
|
|