Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.03.16;
Скачать: 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 вся ветка

Текущий архив: 2008.03.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
6-1182506570
Grega
2007-06-22 14:02
2008.03.16
Поиск адресов по номеру телефона


15-1202286617
den303
2008-02-06 11:30
2008.03.16
Почему закрываются интересные темы?


2-1203075870
Dan
2008-02-15 14:44
2008.03.16
Перетаскивание компонентов


15-1202447646
ketmar
2008-02-08 08:14
2008.03.16
иконки для клиента этого форума


11-1185114823
=BuckLr=
2007-07-22 18:33
2008.03.16
XPMenus не работают