Для отображения персонализированного контента и рекламных сообщений, а также хранения личных настроек на локальном компьютере веб-сайт www.vdgb.ru используют технологию cookie и аналогичные. Продолжив использование наших веб-сайтов, Вы даете согласие на обработку персональных данных, выражаете согласие с Политикой конфиденциальности www.vdgb.ru и применением этих технологий.

ПРОДАЖА И ВНЕДРЕНИЕ 1С

по всей России

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

Проконсультироваться
со специалистом 1С

Консультироваться

Код 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;
КонецЦикла;
КонецПроцедуры


Заказать обратный звонок

Позвонить
Отправлено! В самое ближайшее время наш менеджер свяжется с Вами.