HelpF.pro

Вывести список элементов справочника в Word используя шаблон spisok.dot

Код 1C v 7.x
  Процедура ВывестиСписокЭлементовСправочникаВWord()

спр1=создатьобъект("справочник.сотрудники");
спр1.ИспользоватьДату(ТекущаяДата());
Сообщить( спр1.НайтиПоНаименованию("Администрация",0,1));
Сообщить(спр1.ПолучитьАтрибут("Наименование"));
сотр=создатьобъект("справочник.сотрудники");
сотр.ИспользоватьДату(ТекущаяДата());
сотр.ИспользоватьРодителя(спр1);
отчет=создатьобъект("word.application");
отчет.visible = 1;
отчет.documents.add("d:\spisok.dot");
отчет.documents(1).tables(1).cell(1,2).range.text= спр1.ПолучитьАтрибут("Наименование");
сотр.ВыбратьЭлементы();
ном=2;
Пока сотр.ПолучитьЭлемент(1)=1 цикл
Сообщить(сотр.ПолучитьАтрибут("Наименование"));
отчет.documents(1).tables(2).cell(ном,1).range.text = сотр.ПолучитьАтрибут("Код");
отчет.documents(1).tables(2).cell(ном,2).range.text = сотр.ПолучитьАтрибут("Наименование");
отчет.documents(1).tables(2).cell(ном,3).range.text = сотр.ПолучитьАтрибут("Должность");
отчет.documents(1).tables(2).cell(ном,4).range.text = сотр.ПолучитьАтрибут("Оклад");
отчет.documents(1).tables(2).rows.add();
ном=ном+1;
КонецЦикла;
КонецПроцедуры

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq7/view/244.html