понедельник, 1 февраля 2016 г.

1с Вставить строку в таблицу Ворд (Word)


Программная вставка строки в таблицу в документе Word из 1с: 

 
Функция Прим()
 Ворд = Новый COMОбъект("Word.Application");
 Док = Ворд.Documents.Open(ИмяФайла);

 Табл=Док.Tables(1);

 Итого = 0;

 Сч = 1;
 для Каждого стрСчет из СсылкаНаОбъект.Товары Цикл
  сч=сч+1;
  ТекстВ_Ячейку(сч,1,стрСчет.номерстроки);
  ТекстВ_Ячейку(сч,2,стрСчет.Номенклатура.НаименованиеПолное);
  ТекстВ_Ячейку(сч,3,стрСчет.Количество);
  ТекстВ_Ячейку(сч,4,стрСчет.Цена);
  ТекстВ_Ячейку(сч,5,стрСчет.Сумма);

  Если сч-1 <> СсылкаНаОбъект.Товары.Количество() Тогда
       Ворд.Selection.InsertRowsBelow(1);//САМА ВСТАВКА
  КонецЕсли;

  Итого = Итого + стрСчет.Сумма;
 КонецЦикла;

 ТекстВ_Ячейку(сч+1,5,Итого);

 Док.Application.Visible = Истина;




КонецФункции

Функция ТекстВ_Ячейку(Стр,Кол,Текст)
 Табл.Cell(стр,Кол).Select();//Строка, Колонка
 Ворд.Selection.TypeText(строка(Текст));
КонецФункции
Ярлыки: , ,