Замена текста в автофигуре word

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

// Получить объект из макета.

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



Попытка

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

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

	//Определим имена

	Заказчик = "Петр Иванович КакВасТам";

	Исполнитель = "helpf.pro - Помощник по 1С"

	

	// Получить объект, который будем использовать для поиска и замены.

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



	// Заменить заранее определенные ключевые конструкции на требуемый текст.

	Замена.Execute("[Заказчик]", Ложь, Истина, Ложь, , , Истина, , Ложь, Заказчик);

	Замена.Execute("[Исполнитель]", Ложь, Истина, Ложь, , , Истина, , Ложь, Исполнитель);

	// Далее аналогично для остальных ключевых конструкций.

	//	...

	// Делаем видимым приложение и активизируем его.

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

	MSWord.Activate();

Исключение

	// Если произойдет ошибка, выводятся данные об ошибке и объект закрывается.

	Сообщить(ОписаниеОшибки());

	MSWord.Application.Quit();

КонецПопытки;