Процедура ВывестиСписокЭлементовСправочникаВ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;

	КонецЦикла;

КонецПроцедуры