поместить Текст в ячейку таблицы

[evg_m]

Итак
1. есть ячейка (cell) таблицы (Table) с фиксированными размерами (height width).
2. Есть место для текcта (Range) в данной ячейке.
3. Есть некий текст (строка) все время разный который при заданных значения font size иногда не помещается в ячейке.

  Range.Text:='ура';  все прекрасно помещается
  Range.Text:='детям пора спать'; а вот здесь будет переход на другую строку и вторая строчка не будет видна
  Range.Text:='контрреволюция'; а здесь строчка одна, но слишком длинная

Каким образом программно (допустим в макросе) можно

• собственно проверить само наличие выхода текста за рамки
• добиться того, чтобы весь введенный текст стал виден.

Свойство ячейки "вписать текст" (fitText) известно, но не устраивает.

• при малом тексте (наиболее частый случай) растягивает текст на всю ширину (хотелось бы оставить оригинальный формат)
• при большом сжимает, но пишет в одну строку (в тоже время простое уменьшение шрифта позволяет уместить текст в несколько строк.

Просто раз и навсегда уменьшить шрифт не хотелось бы, скажем так "из-за проблем с читаемостью".

Видимый путь решения

1. проверить наличие выхода текста за рамки ячейки
2. если нет то закончить иначе уменьшить шрифт и повторить п 1.

Буду благодарен за помощь в решении п 1. или подсказку в другом способе решения задачи "поместить текст в отведенные рамки".

P.S. решение нужно для delphi, но проблем с переводом VBA не предвижу.

[Ципихович Эндрю]

"вписать текст" (fitText) известно - мне не известно

Range.Text:='детям пора спать'; а вот здесь будет переход на другую строку и вторая строчка не будет видна

это что за среда - Ворд, Эксель?

[evg_m]

to Ципихович Эндрю

"вписать текст" (fitText) известно - мне не известно

FitText Property


True if Microsoft Word visually reduces the size of text typed into a cell so that it fits within the column width. Read/write Boolean.

Remarks

If the FitText property is set to True, the font size of the text is not changed, but the visual width of the characters is adjusted to fit all the typed text into the cell.

это что за среда - Ворд, Эксель?

Word

Range.Text:='детям пора спать'; а вот здесь будет переход на другую строку и вторая строчка не будет видна

For more information about working with Range objects, see Working with Range Objects.

P.S. решение нужно для delphi, но проблем с переводом VBA не предвижу.

[Вождь]

Сообщение от evg_m

...нужно для delphi, но проблем с переводом VBA не предвижу.

Вы для Word пишите или это абстрактная таблица? Если последнее, а вам ответят как для Word, то я вижу очень большие проблемы с "переводом" Короче, объектная модель какая?

[Скрипт]

evg_m, в этой теме приводится способ определения, сколько строк текста в ячейке:
http://programmersforum.ru/showthread.php?t=223695

[Скрипт]

Можно программно добавлять текст по одному символу в ячейку и когда следующий символ перейдёт на следующую строку в ячейке, то отменить добавление символа и остановить добавление символов.