Вставить текст в определенную строку ячейки таблицы в ворде

[Ernest027]

Доброго времени суток.
Подскажите, как это можно сделать?

[evg_m]

чем не подходит

App.ActiveDocument.Tables.Item(2).Cell(i+2,1).Range.Text:=
'Рис.4.'+inttostr(DataModule2.adoquery1.recno)+
#13#10+....

из вашего же кода.

[Ernest027]

нужно вставить текст в определенную строку ячейки! не таблицы, а ячейки!)
Например у memo есть свойство lines. Вот что-то подобное нужно.

[evg_m]

Range имеет следующие свойства и методы
start
end
movestart(как , кудасколькораз)
moveend(как, кудасколькораз)

// используем Word Range
r:= ...cell[x,y].range; // итак имеем ячейку таблицы полностью.
Мы можем сдвигать начало и конец как нам нужно (ПРИМЕРНО так)
при этом ЕСТЬ опасность незаметно ВЫСКОЧИТЬ ЗА пределы ячейки таблицы!!!
r.movestart(wdline, 3); //начало к началу какой-то строки 
r.end:=r.start; //и окончание туда же
r.moveend(wdline,1); //а потом чуть дальше
r.text:=<наш новый текст>; //заменяем то что нам нужно

// используем Memo
r:=TStringList.create;
r.text:=....Cell(x,y).Range.Text; 
r.Strings[3]:=<>наш новый текст>;
...Cell(x,y).Range.Text:=r.Text;
r.Free;