Как сделать программно перенос текста?

Не срабатывает почему то, текст не переноситься (вернее переноситься, но не переноситься из за того что флажок снят автовысота строки):

ОбластьМакетаШапка.Область(14, 3, 14, 3).РазмещениеТекста = ТипРазмещенияТекстаТабличногоДокумента.Переносить;
ОбластьМакетаШапка.Область("R15").АвтоВысотаСтроки = Истина;

сделал тестовый отчет, там все работает ) где косяк, там ячейки объеденные

а это работает в тестовой:
   ОбластьМакетаШапка.Область(1, 1, 1, 1).РазмещениеТекста = ТипРазмещенияТекстаТабличногоДокумента.Переносить;
   ОбластьМакетаШапка.Область("R1").АвтоВысотаСтроки = Истина;