MSWord Cell.Split

← →
VirEx © (2008-02-20 12:12) [0]

Есть шаблон с таблицами.
_________________________________________
| Заголовок 1 | Заголовок 2 | Заголовок3 |
|_________________________________________|
|[param1.value]|[param2.value]| [param3.value] |
|_________________________________________|

Допустим [param2.value] заменяется на "text2".
Если это значение многострочное, то в таблице его нужно разбить на строки.
Разбиваю: cell.Split(cell.Range.Paragraphs.Count, 1);
При этом текст находится только в первой строке ячейки.

Внимание вопрос: как распределить текст в строки разбитой ячейки?

cell.Range.Cut;
cell.Range.PasteAndFormat(wdTableInsertAsRows); <-- не работает
через WordApplication.Selection.PasteAndFormat( тоже не работает
обратиться к строкам разбитой ячейки не удается

Всё уже перепробовал. И в макросах подсматривал, и гуглил - нет результата. Притом в макросах такой метод работает а здесь ... :(

← →
VirEx © (2008-02-20 14:11) [1]

up

неужели никто не разбивал ячейку с многострочным текстом и не рассовывал по новым строкам разбитой ячейки эти строки?

есть решение, правда не ахти какое:

var tmp:TStrings; ... //разбиваем-с cell.Split(cell.Range.Paragraphs.Count, 1); cell.Select; tmp.Text := trim(Cell.Range); for z := 0 to tmp.Count - 1 do begin WordApplication.Selection.Range := trim(tmp[z]); //переходим к концу строки WordApplication.Selection.MoveEnd(wdParagraph, 1); //переходим в след. ячейку WordApplication.Selection.MoveDown(wdLine, 1, wdMove); end;

MSWord Cell.Split Найти похожие ветки