Как программно подчеркнуть текст

вот код возвращает ошибку, недоступен для записи

ячейка = ТабДок.Область("R1C1:R2C1");
ячейка.Шрифт.Подчеркивание = истина;

подскажите как подчеркнуть текст

(0)
тшрифт=Новый Шрифт(ячейка.шрифт);
тШрифт.Подчеркивание=Истина;
ячейка.шрифт=тШрифт;

Почитать СП.
Шрифт (Font)
На основании другого шрифта
Синтаксис:
Новый Шрифт(<Шрифт>, <Имя шрифта>, <Размер>, <Жирный>, <Наклонный>, <Подчеркнутый>, <Зачеркнутый>)

(1) так дела, выходит ошибка на строке тШрифт.Подчеркивание=Истина; недоступно для записи

(3) читай (2) внимательно....

(2) (4)  Догнал спасибо