v8.2 УП: Заполнение Word документа в макете

 

	

	Договор = ЭтотОбъект.ПолучитьМакет("Договор");

	MSWord = Договор.Получить(); 

	

	Попытка

		

		Документ = MSWord.Application.Documents(1);

		Документ.Activate();

		

        	Replace = Документ.Content.Find;





		Replace.Execute("{Дата}",Ложь,Истина,Ложь,,,Истина,,Ложь,Формат(СсылкаНаОбъект.Дата,"ДФ=dd.MM.yyyy"),2);  

		

		Replace = Документ.Content.Find;

		Replace.Execute("{Даритель}",Ложь,Истина,Ложь,,,Истина,,Ложь,Строка(СсылкаНаОбъект.Организация.Наименование),2); 

		

		Replace = Документ.Content.Find;

		Replace.Execute("{ДарительПолное}",Ложь,Истина,Ложь,,,Истина,,Ложь,Строка(СсылкаНаОбъект.Организация.НаименованиеПолное),2); 

		

		Replace = Документ.Content.Find;

		Должность = РегистрыСведений.ОтветственныеЛицаОрганизаций.ПолучитьПоследнее(СсылкаНаОбъект.Дата, Новый Структура("СтруктурнаяЕдиница, ОтветственноеЛицо", СсылкаНаОбъект.Организация, Перечисления.ОтветственныеЛицаОрганизаций.Руководитель)).Должность;

		ДолжностьРодП = "";

		ДолжностьСклонение = УниверсальныеМеханизмы.Просклонять(глЗначениеПеременной("глКомпонентаСклоненияФИО"), Должность, 2, Перечисления.ПолФизическихЛиц.Мужской, ДолжностьРодП);

		Replace.Execute("{ДолжностьРодП}",Ложь,Истина,Ложь,,,Истина,,Ложь,Строка(ДолжностьСклонение),2);

		

		Директор = РегистрыСведений.ОтветственныеЛицаОрганизаций.ПолучитьПоследнее(СсылкаНаОбъект.Дата, Новый Структура("СтруктурнаяЕдиница, ОтветственноеЛицо", СсылкаНаОбъект.Организация, Перечисления.ОтветственныеЛицаОрганизаций.Руководитель)).ФизическоеЛицо;

		ДиректорСтр = СокрЛП(Строка(Директор));

		Фамилия = Лев(ДиректорСтр, Найти(ДиректорСтр, " ") - 1); 

		Отчество = Прав(ДиректорСтр, Найти(ДиректорСтр, " "));

		Имя = Лев(Прав(ДиректорСтр, 19-4), (СтрДлина( Прав(ДиректорСтр, 19-4)) - стрДлина(Отчество)-1));

		ДиректорРодП = "";

		ДиректорСклонение = УниверсальныеМеханизмы.ПросклонятьФамилиюИмяОтчество(глЗначениеПеременной("глКомпонентаСклоненияФИО"), Фамилия, Имя, Отчество, 2, Директор.Пол, ДиректорРодП );

		Replace.Execute("{ДиректорРодП}",Ложь,Истина,Ложь,,,Истина,,Ложь,Строка(ДиректорСклонение),2); 

		

		Replace = Документ.Content.Find;

		Replace.Execute("[Одаряемый]",Ложь,Истина,Ложь,,,Истина,,Ложь,Строка(СсылкаНаОбъект.Контрагент.НаименованиеПолное),2); 

		

		Replace = Документ.Content.Find;

		Replace.Execute("{Сумма}",Ложь,Истина,Ложь,,,Истина,,Ложь,Строка(СсылкаНаОбъект.СуммаДокумента),2); 

		

		Replace = Документ.Content.Find;

		Replace.Execute("{СуммаПрописью}",Ложь,Истина,Ложь,,,Истина,,Ложь,Строка(ЧислоПрописью(СсылкаНаОбъект.СуммаДокумента))); 

		

		Replace = Документ.Content.Find;

		Replace.Execute("[ИНН/КПП Дарителя]",Ложь,Истина,Ложь,,,Истина,,Ложь,Строка(СсылкаНаОбъект.Организация.ИНН + " / " + СсылкаНаОбъект.Организация.КПП),2); 

		

		Replace = Документ.Content.Find;

		Replace.Execute("[ОГРН Дарителя]",Ложь,Истина,Ложь,,,Истина,,Ложь,СсылкаНаОбъект.Организация.ОГРН,2); 





	MSWord.Application.Visible = Истина;

	MSWord.Activate();