Имя: Пароль:
1C
1С v8
Как заполнить табличную часть Word из ТЧ документа?
0 SkillUp
 
04.07.18
10:01
Шапка заполнена, можно ли как-то через Вставка>закладка?
1 SkillUp
 
04.07.18
10:01
Заолняю Шаблон макета в Word!!!!!
2 Остап Сулейманович
 
04.07.18
10:05
(0) В Ворде нет табличных частей. В Ворде есть таблицы. И методы для работы с ними. Ну если мы говорим о Ворде, который их MSO.
Может у вас свой личный Ворд с табличными частями?
3 SkillUp
 
04.07.18
10:09
(2) В Ворде есть таблицы - согласен! Как заполнить?!
4 Масянька
 
04.07.18
10:10
(3) Код 7.7 - разгребай:

        КоммерческоеПредложение.ВыбратьСтроки();

        // заполнение таблицы номенклатуры        
        
        Для СчетчикЦикла = 1 По КоммерческоеПредложение.КоличествоСтрок() Цикл
            
            Если (СчетчикЦикла <> КоммерческоеПредложение.КоличествоСтрок()) Тогда
                мОбъект.Tables(2).Rows.Add(мОбъект.Tables(2).Rows(СчетчикЦикла));        // добавляем строку в конец таблицы
            КонецЕсли;
            
            КоммерческоеПредложение.ПолучитьСтрокуПоНомеру(СчетчикЦикла);
            
            мОбъект.Tables(2).Cell(СчетчикЦикла,1).Range.Text = КоммерческоеПредложение.НомерСтроки;
            мОбъект.Tables(2).Cell(СчетчикЦикла,2).Range.Text = СокрЛП(КоммерческоеПредложение.Номенклатура.ПолнНаименование);
            мОбъект.Tables(2).Cell(СчетчикЦикла,3).Range.Text = СокрЛП(Формат(КоммерческоеПредложение.Количество, "Ч010.2"));
            мОбъект.Tables(2).Cell(СчетчикЦикла,4).Range.Text = Строка(КоммерческоеПредложение.Единица);
            мОбъект.Tables(2).Cell(СчетчикЦикла,5).Range.Text = глФрм(КоммерческоеПредложение.Цена);
            мОбъект.Tables(2).Cell(СчетчикЦикла,6).Range.Text = глФрм(КоммерческоеПредложение.СуммаНДС);
            мОбъект.Tables(2).Cell(СчетчикЦикла,7).Range.Text = глФрм(КоммерческоеПредложение.Сумма);
        КонецЦикла;
        
        // итоги
        мОбъект.Tables(3).Cell(1,2).Range.Text = СокрЛП(Формат(КоммерческоеПредложение.Итог("Количество"), "Ч010.2"));
        мОбъект.Tables(3).Cell(1,5).Range.Text = глФрм(КоммерческоеПредложение.Итог("СуммаНДС"));
        мОбъект.Tables(3).Cell(1,6).Range.Text = глФрм(КоммерческоеПредложение.Итог("Сумма"));
        
        // итоговая строка
        мСтрокаВсего = Строковые.стрФразаПрописью(КоммерческоеПредложение.КоличествоСтрок(), "наименован") +
                       ", на сумму " + глСуммаПрописью(КоммерческоеПредложение.Итог("Сумма"), глРубли) + ".";
        мОбъект.Find.Execute("[СтрокаВсего]",0,0,,,,,,,СокрЛП(мСтрокаВсего),2);
5 Serg_1960
 
04.07.18
10:13
Не надо "разгребать" - надо уметь пользоваться поиском :)
Например: http://catalog.mista.ru/public/65996/
6 SkillUp
 
04.07.18
10:17
(4) (5)  СПАСИБО!