Имя: Пароль:
1C
1С v8
Вывод таблицы в 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, записал в макрос. В результате становится очевидным алгоритм заполнения.