Получение макета ActiveDocument

5 месяцев все работало нормально, и вдруг заглючило =\ заглючило на методе MSWord = ДоговорПоставки.Получить() (Договор Оболочка актив документ), по отладке зависает именно на этом методе =\ перезагрузка, перезапуск службы и тд не помогли...

Функция Печать(Ссылка,ВидДоговора) Экспорт

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

    РезультатЗапроса = Запрос.Выполнить();

    Если НЕ РезультатЗапроса.Пустой() Тогда

        Выборка = РезультатЗапроса.Выбрать();
        Выборка.Следующий();

        Сведения = ФормированиеПечатныхФорм.СведенияОЮрФизЛице(Выборка.КонтрагентДляПоиска,ТекущаяДата());

        ТелефонПартнера = ФормированиеПечатныхФорм.ПолучитьТелефонИзКонтактнойИнформации(Выборка.Партнер);
        АдресПочтыПартнера = УправлениеКонтактнойИнформацией.ПолучитьКонтактнуюИнформацияОбъекта(Выборка.Партнер,ПредопределенноеЗначение("Справочник.ВидыКонтактнойИнформации.EmailПартнера"));
        ТелефонПокупателя = ФормированиеПечатныхФорм.ПолучитьТелефонИзКонтактнойИнформации(Выборка.КонтрагентДляПоиска);
        АдресПочтыПокупателя = УправлениеКонтактнойИнформацией.ПолучитьКонтактнуюИнформацияОбъекта(Выборка.КонтрагентДляПоиска,ПредопределенноеЗначение("Справочник.ВидыКонтактнойИнформации.EmailКонтрагента"));
        ОбщаяСтрокаСДатой = Формат(Выборка.Дата,"ДФ=""«дд» ММММ гггг""") + "г.";

        Если ВидДоговора = "Предоплата" Тогда
            ДоговорПоставки = ПолучитьМакет("ДоговорПредоплаты");
        Иначе
            ДоговорПоставки = ПолучитьМакет("ДоговорОтгрузки");
        КонецЕсли;

        MsWord = ДоговорПоставки.Получить();
        //макет является ActiveDocument с загруженым в него Word-файлом
        Попытка

            MsWord.Application.Visible = 0;
            Word = MsWord.Application;
            Док = Word.Documents(1);
            Док.Activate();


            Замена = Док.Content.Find;
            Замена.Execute("[НомерДоговора]", Ложь, Истина, Ложь, , , Истина, , Ложь," " + Выборка.Код);

            Замена = Док.Content.Find;
            Замена.Execute("[ОбщаяСтрокаДатой]", Ложь, Истина, Ложь, , , Истина, , Ложь, ОбщаяСтрокаСДатой);

            Замена = Док.Content.Find;
            Замена.Execute("[Партнер]", Ложь, Истина, Ложь, , , Истина, , Ложь, Выборка.Партнер.Наименование);

            Замена = Док.Content.Find;
            Замена.Execute("[КонтактноеЛицоПартнера]", Ложь, Истина, Ложь, , , Истина, , Ложь, ?(ЗначениеЗаполнено(Выборка.КонтактноеЛицоПартнера),Выборка.КонтактноеЛицоПартнера,"<не указан>"));

            Замена = Док.Content.Find;
            Замена.Execute("[НазваниеФирмыПокупателя]", Ложь, Истина, Ложь, , , Истина, , Ложь, Сведения["ПолноеНаименование"]);

            Замена = Док.Content.Find;
            Замена.Execute("[ЮридическийАдресПокупателя]", Ложь, Истина, Ложь, , , Истина, , Ложь, Сведения["ЮридическийАдрес"]);

            Замена = Док.Content.Find;
            Замена.Execute("[ФактическийАдресПокупателя]", Ложь, Истина, Ложь, , , Истина, , Ложь, Сведения["ФактическийАдрес"]);

            Замена = Док.Content.Find;
            Замена.Execute("[ТелефонПокупателя]", Ложь, Истина, Ложь, , , Истина, , Ложь, ?(НЕ ЗначениеЗаполнено(ТелефонПокупателя),ТелефонПартнера,ТелефонПокупателя));

            Замена = Док.Content.Find;
            Замена.Execute("[ПочтовыйАдресПокупателя]", Ложь, Истина, Ложь, , , Истина, , Ложь, ?(НЕ ЗначениеЗаполнено(АдресПочтыПокупателя),АдресПочтыПартнера,АдресПочтыПокупателя));

            Замена = Док.Content.Find;
            Замена.Execute("[ОГРНПокупателя]", Ложь, Истина, Ложь, , , Истина, , Ложь, ?(ЗначениеЗаполнено(Выборка.ОГРНКонтрагента),Выборка.ОГРНКонтрагента,"________________"));

            Замена = Док.Content.Find;
            Замена.Execute("[ИННПокупателя]", Ложь, Истина, Ложь, , , Истина, , Ложь, Сведения["ИНН"]);

            Замена = Док.Content.Find;
            Замена.Execute("[ОКПОПокупателя]", Ложь, Истина, Ложь, , , Истина, , Ложь, Сведения["КодПоОКПО"]);

            Замена = Док.Content.Find;
            Замена.Execute("[ОКВЭДПокупателя]", Ложь, Истина, Ложь, , , Истина, , Ложь, ?(ЗначениеЗаполнено(Выборка.ОКВЭДКонтрагента),Выборка.ОКВЭДКонтрагента,"________________"));

            Замена = Док.Content.Find;
            Замена.Execute("[Р/СПокупателя]", Ложь, Истина, Ложь, , , Истина, , Ложь, ?(ЗначениеЗаполнено(Выборка.РСПокупателя),Выборка.РСПокупателя,"<не указан>"));

            Замена = Док.Content.Find;
            Замена.Execute("[ВПокупателя]", Ложь, Истина, Ложь, , , Истина, , Ложь, ?(ЗначениеЗаполнено(Выборка.ВПокупателя),Выборка.ВПокупателя,"<не указан>"));

            Замена = Док.Content.Find;
            Замена.Execute("[БИКПокупателя]", Ложь, Истина, Ложь, , , Истина, , Ложь, ?(ЗначениеЗаполнено(Выборка.БИКПокупателя),Выборка.БИКПокупателя,"<не указан>"));

            Замена = Док.Content.Find;
            Замена.Execute("[КСПокупателя]", Ложь, Истина, Ложь, , , Истина, , Ложь, ?(ЗначениеЗаполнено(Выборка.КСПокупателя),Выборка.КСПокупателя,"<не указан>"));

            Файл = "C:\VremHran" + "\" + "ДоговорПоставки";
            //Сохраняем в формате pdf
            Док.SaveAs(Файл,17);



            ДокументPDF = Новый ДвоичныеДанные(Файл + ".pdf");
            Адрес = ПоместитьВоВременноеХранилище(ДокументPDF);

        Исключение
            Сообщить(ОписаниеОшибки());
            Word.Quit();
        КонецПопытки;

        Word.Quit();

    КОнецЕсли;

    Возврат Адрес;

КонецФункции