|
Вывод таблицы в WORD в 1С | ☑ | ||
---|---|---|---|---|
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(); |
|||
1
Fish
24.07.15
✎
09:57
|
(0) Я кнопочку "Я" пробовал нажимать? Навскидку: https://helpf.pro/faq8/view/635.html
|
|||
2
MiamiVice
24.07.15
✎
10:11
|
Как правило, чтобы разобраться как заполнить документ Word, захожу в Word, нажимаю на кнопку "Записать макрос", ввожу руками то что нужно, смотрю что Word, записал в макрос. В результате становится очевидным алгоритм заполнения.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |