Попытка
	WordApp = Новый COMОбъект("Word.Application");
Исключение
	Сообщить(ОписаниеОшибки());
	Возврат;			
КонецПопытки;
	
WordApp.Visible =  0 ; 
WordDoc = WordApp.Documents.Open(ИмяВременногоФайла);
	
Попытка
	Поиск = WordDoc.Content.Find; // это весь текст документа для поиска и замены
	Поиск.Execute("{ДатаПриема}" ,,,,,,,,,"" + Формат(ТекущаяДата(),"ДФ=""«дд» ММММ гггг 'г.'""") , 2 );
	WordDoc.Save();
Исключение
	Сообщить(ОписаниеОшибки());
	Возврат;			
КонецПопытки;

WordApp.Visible =  1 ; 
WordDoc.Activate();