как переписать правильно?

"  

Процедура ФормированиеТаблицы()

 перем обр, код;



for код=1 по  6 do

обр=Создатьобъект("Справочник.Образование_2");

сообщить(обр.ТекущийДокумент());

Enddo

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

"Если ты русский, так и пиши по русски ...

а если создаёшь "справочник", так и получай "Элемент", а не "Документ" а не выё .... живайся )

и, докучи, неплохо бы сначала спозиционироваться, а уж потом Сообщить(...)

Так криво спросил, что не остановиться )



Процедура ФормированиеТаблицы()

 For Код=1 to 6 Do

   Обр = CreateObject("Справочник.Образование_2");

   //а теперь стоит подумать, зачем это всё, например  

   If Обр.FindByCode(Код,0) = 1 Then

     Message(Обр.CurrentItem());

   EndIf;

 EndDo;

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



"

"Даже если за тем же, то нет смысла н раз создавать объект



Процедура ФормированиеТаблицы()

Обр = СоздатьОбъект("Справочник.Образование_2");

Для Код=1 по 6 Цикл

Если Обр.НайтиПоКоду(Код,0) = 1 Тогда

Сообщить(Обр.ТекущийЭлемент());

КонецЕсли;

КонецЦикла;

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



"