Здравствуйте,
Не получается заполнить "параметры" надписи в документе ворд.

Процедура Ворд()
   Макет = ПолучитьМакет("Макет");
   MSWord = Макет.Получить();
   Попытка
       Документ = MSWord.Application.Documents(1);
       Документ.Activate();
       УстановитьВДокументе(Документ, "[Должность]", ЭтотОбъект.Должность.Наименование,,Истина);
   КонецПопытки;
КонецПроцедуры;

Процедура УстановитьВДокументе(Документ, Приемник, Знач Источник, Падеж = 1, Надпись=Ложь)
   Если Строка(Источник) = "" Тогда
       Возврат;
   КонецЕсли;
   Если Надпись=Истина Тогда
       Замена=Документ.Shapes("Text Box 21").Alternativetext;
   Иначе;    
       Замена = Документ.Content.Find;
   КонецЕсли;
   Замена.Execute(Приемник, Ложь, Истина, Ложь, , , Истина, , Ложь, Источник);      
КонецПроцедуры

Параметры основного текста заполняются нормально.
Пробую с помощью макросрекордера разобраться - безрезультатно.