1С 7.x : Процедура заполняет WORD шаблон из СпискаЗначений

 Процедура ПриОткрытии()

   Перем Закладка, ТектВывода, сз;

   СтатусВозврата(0);

   сз = Форма.Параметр;

   ФайлШаблон = ""; ОЛЕ_Объект = "";

   Если ТипЗначенияСтр(сз)<>"СписокЗначений" Тогда

       Сообщить("Для формирования документа передайте подготовленный список значений", "!!!"); Возврат;

   ИначеЕсли сз.РазмерСписка()=0 Тогда

       Сообщить("Для формирования документа передайте подготовленный список значений", "!!!"); Возврат;

   Иначе

       ФайлШаблон = сз.ПолучитьЗначение(1, ОЛЕ_Объект);

       

       Если ВРег(ОЛЕ_Объект) <> "WORD" Тогда

           Сообщить("OLE объект "+ОЛЕ_Объект+" не поддерживается", "!!!"); Возврат;

       КонецЕсли;

       

       Если ФС.СуществуетФайл(КаталогИБ()+"Шаблоны" + ФайлШаблон) = 0 Тогда

           Сообщить("Нет файла - шаблона " + ФайлШаблон, "!!!"); Возврат;

       КонецЕсли

           

   КонецЕсли;



   OLE = СоздатьОбъект(ОЛЕ_Объект+".Application");

     OLE.Documents.Add(""""+КаталогИБ()+"Шаблоны" + ФайлШаблон + """");

   Для Индекс = 2 по сз.РазмерСписка() цикл

       ТекстВывода = сз.ПолучитьЗначение(Индекс, Закладка);

       //Если OLE.ActiveDocument.Bookmarks(СокрЛП(Закладка)).Exists()=0 Тогда  // Проверяем - существует ли закладка

       //    Сообщить("Не найдена закладка "+Закладка,"!!!" ); Продолжить;

       //КонецЕсли;

       Попытка

           OLE.ActiveDocument.Bookmarks(СокрЛП(Закладка)).Select();  //выделим выбранную закладку

           OLE.Selection.TypeText(СокрЛП(ТекстВывода));              // выведем на место выделения текст

       Исключение

           Сообщить("Не найдена закладка "+Закладка,"!!!" );

       КонецПопытки;    

   КонецЦикла;



   OLE.Visible=1;  /// видимость - True

   OLE.ActiveDocument.Activate(); /// активизировать!!!

   OLE=""; /// ссылочку прибить

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