Word2003. Как задать свойства абзаца в ячейке таблицы?

[igor_m]

В Ворде на каждой странице есть таблица. В ячейке 2,2 этих таблиц есть текст. Помогите разобраться как задать свойства абзаца (параграфа) нескольких строк текста в этой ячейке. Структура текста такая:

Что русскому здорово
то немцу - смерть

Т.е. первая строчка (абзац) идет одним шрифтом, вторая строчка другим. Нужно последнее слово перенести на следующую строчку. Проблемы такие. Делаю
set myRange=Эта_ячейка
myRange.text=left(myRange.text,len(myRange.text)-6) & vbCrLf & right(myRange.text,6)

Худо-бедно это работает, но есть косяки.
1) Теперь весь текст становится жирным как первая строка (формат первого абзаца распространился на весь текст ячейки).
2) последнее слово сильно отделено от предыдущей строки, т.к. у абзаца по умолчению интервал 6 пт перед ним и за ним, и новый абзац, которым стало последнее слово, получился с такими свойствами. Если выделить текст со второй строки и задать интервал 0 пт, то все хорошо, но не знаю как это сделать программно: как выделить то что идет после первой строки и задать свойства этого параграфа (нулевой интервал и шрифт сделать нежирным).

[viter.alex]

Смотреть на свойства Range. Хоть в ячейке, хоть в надписи, а свойства у него одни и те же. В частности, объект Paragraphs, содержащий абзацы диапазона.
Итак.

Код: Выделить всё

Set myRange = Эта_ячейка
Dim sText As String
sText = Left(myRange.Text, Len(myRange.Text) - 2) 'Запомнить лучше в переменную, чтобы проще оперировать текстом. Отсекаем два последних символа: абзац и символ конца ячейки
myRange.Text = "" 'Очищаем
'Теперь задаём свойства [b]первого[/b] абзаца
With myRange.Paragraphs.First
  .Range.Font.Bold = True
  .Range.Font.Size = 16
  .Range.Text = Left(sText, Len(sText) - 6)
End With
'Добавляем ещё один абзац
myRange.InsertParagraphAfter
'Теперь задаём свойства [b]последнего[/b] абзаца
With myRange.Paragraphs.Last
  .Range.Font.Bold = False
  .Range.Font.Size = 12
  .Range.Text = Right(sText, 6)
End With


Код с коленки, проверен по-быстрому. Работает. Возможно, придётся подкорректировать числовые значения в функциях Left и Right
Нулевого интервала не бывает, бывает одинарный. Это свойство абзаца Space1

[igor_m]

Спасибо за помощь.