|
Как заполнить табличную часть 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) СПАСИБО!
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |