Сохранение в формате PDF

Здравствуйте. Подскажите пожалуйста, при выполнении этого кода

// Заполнение и сохранение в формате PDF, шаблона dot (MSWord)
// Макет тип - Active Document;
Функция Печать(Ссылка) Экспорт

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

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

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

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

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

ТелефонПартнера = ФормированиеПечатныхФорм.ПолучитьТелефонИзКонтактнойИнформации(Выборка.Партнер);
АдресПочтыПартнера = УправлениеКонтактнойИнформацией.ПолучитьКонтактнуюИнформацияОбъекта(Выборка.Партнер,ПредопределенноеЗначение("Справочник.ВидыКонтактнойИнформации.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("[К/СПокупателя]", Ложь, Истина, Ложь, , , Истина, , Ложь, ?(ЗначениеЗаполнено(Выборка.КСПокупателя),Выборка.КСПокупателя,"<не указан>"));

Файл = "C:\VremHran" + "\" + "ДоговорПоставки " + СтрЗаменить(Выборка.Код,"/","_");
//Сохраняем в формате pdf
Док.SaveAs(Файл,17);
Док.Close(0);

//Запускаем приложение pdf
ЗапуститьПриложение(Файл + ".pdf");
Исключение
Сообщить(ОписаниеОшибки());
Word.Quit();
КонецПопытки;

Word.Quit();
КОнецЕсли;

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

файл сохраняется на сервере где стоит 1С или же у пользователя на компьютере? Клиент - серверный вариант. Просто пытаюсь узнать из за чего крашится база, пишет "Произошла исключательная ошибка и тд.". В файловом варианте работает нормально, заменяет сохраняет открывает. На сервере office стоит