Word - работа с таблицей

← →
TNK (2012-04-13 11:31) [0]

Здравствуйте !
Есть документ WORD , таблица . В таблице надо найти текст , затем необходимо прочитать текст из каждой ячейки . Вопрос - как узнать номер строки .

var OldStr:OleVariant;

OldStr := "Номер";

WordApplication1.Selection.Find.Execute(OldStr,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

S2 := WordApplication1.Selection.FormattedText; - строка найдена
if not VarisEmpty(S2) then begin
S2 := StringReplace(S2, "#0$D","", [rfReplaceAll]); // Remove Tabs
S2 := StringReplace(S2, "#0$7","", [rfReplaceAll]); // Remove linebreaks
end;

← →
Cobalt © (2012-04-13 12:41) [1]

никак. Не предусмотрено в Ворде.
копируй в Эксель

Word - работа с таблицей Найти похожие ветки