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

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]

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

---

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

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



Память: 0.44 MB
Время: 0.004 c