Имя: Пароль:
1C
1С v8
Таблица с динамическим количеством строк ActiveDocument(MS Word)
0 Nykos
 
02.10.15
10:23
Всем привет, подскажите пожалуйста, каким макаром затолкать в таблицу Ворда (используя АД) значения из ТЧ формы? Областей то нету)
1 Nykos
 
02.10.15
10:41
Руками делать или есть какой-нибудь инструмент?
2 Масянька
 
02.10.15
10:51
(0) Код для семерки:

    // заполнение таблицы номенклатуры        
        
        Для СчетчикЦикла = 1 По Счет.КоличествоСтрок() Цикл
            
            мОбъект.Tables(1).Rows.Add();        // добавляем строку в конец таблицы
            
            Счет.ПолучитьСтрокуПоНомеру(СчетчикЦикла);
            
            мОбъект.Tables(1).Cell(СчетчикЦикла + 2,1).Range.Text = Счет.НомерСтроки;
            мОбъект.Tables(1).Cell(СчетчикЦикла + 2,2).Range.Text = СокрЛП(Счет.Номенклатура.ПолнНаименование);
            мОбъект.Tables(1).Cell(СчетчикЦикла + 2,3).Range.Text = СокрЛП(Формат(Счет.Количество, "Ч010.2"));
            мОбъект.Tables(1).Cell(СчетчикЦикла + 2,4).Range.Text = Строка(Счет.Единица);
            мОбъект.Tables(1).Cell(СчетчикЦикла + 2,5).Range.Text = глФрм(Счет.Цена);
            мОбъект.Tables(1).Cell(СчетчикЦикла + 2,6).Range.Text = глФрм(Счет.СуммаНДС);
            мОбъект.Tables(1).Cell(СчетчикЦикла + 2,7).Range.Text = глФрм(Счет.Сумма);
        КонецЦикла;
        
        // итоги
        мОбъект.Tables(2).Cell(1,2).Range.Text = СокрЛП(Формат(Счет.Итог("Количество"), "Ч010.2"));
        мОбъект.Tables(2).Cell(1,5).Range.Text = глФрм(Счет.Итог("СуммаНДС"));
        мОбъект.Tables(2).Cell(1,6).Range.Text = глФрм(Счет.Итог("Сумма"));
        
        // итоговая строка
        мСтрокаВсего = глФразаПрописью(Счет.КоличествоСтрок(), "наименован") +
                       ", на сумму " + глСуммаПрописью(Счет.Итог("Сумма"), глРубли) + ".";
        мОбъект.Find.Execute("[СтрокаВсего]",0,0,,,,,,,СокрЛП(мСтрокаВсего),2);      
    КонецЕсли;
3 Nykos
 
02.10.15
10:54
а, ну понятно, спасибо