Выгрузка из 1с 8.3 в Word Внешняя печатная форма

#Область ШаблонВнешнейПечатнойФормы

Функция СведенияОВнешнейОбработке() Экспорт
	
Функция ПолучитьТаблицуКоманд()
	
Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")


#КонецОбласти




Функция Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
  	
	Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "СозданиеСублицензионногоДоговора") Тогда
		
		ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм,
			"СозданиеСублицензионногоДоговора",
			НСтр("ru='Создание сублицензионного договора'"),
			СформироватьПечатнуюФормуСублицензионногоДоговора(МассивОбъектов, ОбъектыПечати));	
			
	КонецЕсли;
	
	ФормированиеПечатныхФорм.ЗаполнитьПараметрыОтправки(ПараметрыВывода.ПараметрыОтправки, МассивОбъектов, КоллекцияПечатныхФорм);
	
КонецФункции

Функция СформироватьПечатнуюФормуСублицензионногоДоговора(МассивОбъектов, ОбъектыПечати)
			      
	    ТабличныйДокумент = Новый ТабличныйДокумент;
		//ТабличныйДокумент.ЭкземпляровНаСтранице = 2;
		
	    ТабличныйДокумент.КоличествоЭкземпляров = 2;
		//ТабличныйДокумент.КлючПараметровПечати = "ПараметрыПечати_Договор";

      Word = ПолучитьМакет("Договор").Получить();
	 
	  
	  Попытка
		  
		  //открываем и активируем документ
		  СсылкаМакет = Word.Application.Documents(1);
		  СсылкаМакет.Activate();
		  
		  НаименованиеФирмы = "ООО Флексмар";
		  НашДиректор = "Шахов С.В.";
		  Номер = СсылкаНаОбъект.Номер;
		  ДатаДоговора = Формат(СсылкаНаОбъект.Дата, "ДЛФ=DD");
		  Заказчик = СсылкаНаОбъект.Контрагент;
		  ПредставительЗаказчика = СсылкаНаОбъект.КонтактноеЛицо;
		  
		  
		  Замена = СсылкаМакет.Content.Find;
		  Замена.Execute("<Организация>", Ложь, Истина, Ложь, , , Истина, , Ложь, """" + НаименованиеФирмы + """");
		  Замена = СсылкаМакет.Content.Find;
		  Замена.Execute("<Номер>", Ложь, Истина, Ложь, , , Истина, , Ложь, """" + Номер + """");		  
		  Замена = СсылкаМакет.Content.Find;
		  Замена.Execute("<Дата>", Ложь, Истина, Ложь, , , Истина, , Ложь, """" + Формат(ДатаДоговора,"ДЛФ=DD") + """");
		  Замена = СсылкаМакет.Content.Find;
		  Замена.Execute("<Контрагент>", Ложь, Истина, Ложь, , , Истина, , Ложь, """" + Заказчик + """");
		  Замена = СсылкаМакет.Content.Find;
		  Замена.Execute("<ГенДирОрг>", Ложь, Истина, Ложь, , , Истина, , Ложь, """" + НашДиректор + """");		  
		  Замена = СсылкаМакет.Content.Find;
		  Замена.Execute("<ГенДирКонтр>", Ложь, Истина, Ложь, , , Истина, , Ложь, """" + ПредставительЗаказчика + """");
		  
				  
		  //включаем видимость приложения
		  СсылкаМакет.Application.Visible = Истина;
		  
		  
	  Исключение
		  // Если произойдет ошибка, выводятся данные об ошибке, и объект закрывается.
		  Сообщение = Новый СообщениеПользователю();
		  Сообщение.Текст = ОписаниеОшибки();
		  Сообщение.Сообщить();
		 		                     		                  	  
	  КонецПопытки;	 
		  
		  Возврат ТабличныйДокумент
		  
КонецФункции