Авторегистрация документа с заполнением файла по шаблону для 1С 8.3

// Поиск объекта
Задача = Событие.Источник;

Выполнять = Ложь;
Если ТипЗнч(Задача.БизнесПроцесс) = Тип("БизнесПроцессСсылка.Согласование") Тогда

//Проверка наличия исполнителя роли "Генеральный директор"
Запрос = Новый Запрос;
Запрос.Текст = 
	"ВЫБРАТЬ
	|	СогласованиеИсполнители.Исполнитель,
	|	СогласованиеИсполнители.Исполнитель.Владелец.Код
	|ИЗ
	|	БизнесПроцесс.Согласование.Исполнители КАК СогласованиеИсполнители
	|ГДЕ
	|	СогласованиеИсполнители.Ссылка = &Ссылка
	|	И СогласованиеИсполнители.Исполнитель.Владелец.Код = ""до-000021""";	
Запрос.УстановитьПараметр("Ссылка", Задача.БизнесПроцесс.Ссылка);
Результат = Запрос.Выполнить().Выгрузить();
ЕстьГенДиректор = Ложь;
Если Результат.Количество() > 0 Тогда 
		
	ЕстьГенДиректор = Истина;
		
КонецЕсли;

//Продолжение Поиск объекта
Если Задача.БизнесПроцесс.РезультатСогласования = Перечисления.РезультатыСогласования.Согласовано И ЕстьГенДиректор Тогда
        
        Запрос = Новый Запрос;
        Запрос.Текст =
        "ВЫБРАТЬ
	    |ЗадачаИсполнителяПредметы.Предмет
        |ИЗ
	    |Задача.ЗадачаИсполнителя.Предметы КАК ЗадачаИсполнителяПредметы
        |ГДЕ
	    |ЗадачаИсполнителяПредметы.Ссылка = &ЗадачаСсылка
	    |И ЗадачаИсполнителяПредметы.РольПредмета = Значение(Перечисление.РолиПредметов.Вспомогательный)
	    |И ТИПЗНАЧЕНИЯ(ЗадачаИсполнителяПредметы.Предмет) = ТИП(Справочник.ВнутренниеДокументы)";
        Запрос.УстановитьПараметр("ЗадачаСсылка",Задача);
        ВыборкаПоВспомогательнымЗадачам = Запрос.Выполнить().Выбрать();

        ЭтоОсновнойПредмет = Истина;        
 
        Пока ВыборкаПоВспомогательнымЗадачам.Следующий() Цикл 
		
            Объект = ВыборкаПоВспомогательнымЗадачам.Предмет.ПолучитьОбъект();
            ЭтоОсновнойПредмет = Ложь;
            Если  (СокрЛП(Объект.ВидДокумента) = "Заявка на закупку") Тогда
                Выполнять = Истина;
            КонецЕсли;
             
        КонецЦикла;

        Если ЭтоОсновнойПредмет Тогда

           Запрос = Новый Запрос;
           Запрос.Текст = 
           "ВЫБРАТЬ
           |    Предметы.РольПредмета,
           |    Предметы.Предмет
           |ИЗ
           |    Задача.ЗадачаИсполнителя.Предметы КАК Предметы
           |ГДЕ
           |    Предметы.Ссылка = &ЗадачаСсылка";
           Запрос.УстановитьПараметр("ЗадачаСсылка",Задача);
           Результат = Запрос.Выполнить();
           Если Не Результат.Пустой() Тогда
                  Выборка = Запрос.Выполнить().Выбрать();
                   Пока Выборка.Следующий() Цикл
                       Объект = Выборка.Предмет.ПолучитьОбъект();
                           Если ТипЗнч(Объект.Ссылка) = Тип("СправочникСсылка.ВнутренниеДокументы") Тогда 
                               Если  (СокрЛП(Объект.ВидДокумента) = "Заявка на закупку") Тогда
                                      Выполнять = Истина;
                               КонецЕсли;
                           КонецЕсли;
                    КонецЦикла;
            КонецЕсли;

         КонецЕсли;

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


Если Выполнять Тогда  
// Регистрация  
    Нумератор = Нумерация.ПолучитьНумераторДокумента(Объект);
    Если ЗначениеЗаполнено(Нумератор) Тогда // автоматическая нумерация
        ДатаРегистрации = ТекущаяДата();
        ТекущийПользователь = Пользователи.ТекущийПользователь();
                Объект.ДатаРегистрации = ДатаРегистрации;
                // сформируем текущий номер
                СтруктураПараметров = НумерацияКлиентСервер.ПолучитьПараметрыНумерации(Объект);
                Нумерация.СформироватьЧисловойНомерДокумента(СтруктураПараметров, Объект.ЧисловойНомер);
                ОписанияОшибок = Новый СписокЗначений;
                СтруктураПараметров = НумерацияКлиентСервер.ПолучитьПараметрыНумерации(Объект);
                Нумерация.СформироватьСтроковыйНомерДокумента(СтруктураПараметров, Объект.РегистрационныйНомер, ОписанияОшибок);
                Объект.Зарегистрировал = ТекущийПользователь;
                Объект.Записать();
                Делопроизводство.ЗаписатьСостояниеДокумента(
                    Объект.Ссылка, 
                    ДатаРегистрации, 
                    Перечисления.СостоянияДокументов.Зарегистрирован, 
                    ТекущийПользователь);
    КонецЕсли;    
КонецЕсли;

Произошла исключительная ситуация (Microsoft Word): Ошибка в Word.
{ОбщийМодуль.АвтозаполнениеШаблоновФайловКлиентСервер.Модуль(92)}:	Док = WordApp.Documents.Add(ПутьКФайлуНаДиске);
{ОбщийМодуль.АвтозаполнениеШаблоновФайловКлиентСервер.Модуль(279)}:			Возврат ЗаполнитьФайлMSWordПоАдресуФайла(Расширение, НастройкиЗамены, ПутьКФайлуНаДиске);
{ОбщийМодуль.АвтозаполнениеШаблоновФайловКлиентСервер.Модуль(1768)}:					ДвоичныеДанныеЗаполненногоФайла = ЗаполнитьФайлMSWordПоДвоичнымДанным(РасширениеФайла, МассивЗамен, ДвоичныеДанныеФайла);
{(96)}:            ДанныеВыполнения = АвтозаполнениеШаблоновФайловКлиентСервер.ЗаполнитьПоляФайлаДаннымиВладельца(
{ОбщийМодуль.БизнесСобытияВызовСервера.Модуль(367)}:	    	Выполнить(СтрокаТаблицы.ВыполняемыйКод);
{ОбщийМодуль.БизнесСобытияВызовСервера.Модуль(130)}:							ОбработатьСобытиеПользовательскаяОбработкаСобытий(Строка, 

по причине:
Произошла исключительная ситуация (Microsoft Word): Ошибка в Word..
Идентификатор записи: 413074d0-901c-4164-8a2c-87ad7ea3282b