Скачать: CL | DM;

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

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

---

← →
VirEx ©   (2008-02-20 14:33) [2]

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

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c