| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как прочитать из окна WINWORD Текст документа? [D6, Win95/98, WinME, Win2k, WinXP]

Mihas ©   (2005-04-25 10:44:00) 

Задача такая нужно прочитать текст из окна WINWORD
Пробывал GetWindowText нифига,
Побывал SendMessage(h,wm_GetText,127,longint(@zag)).
А нужно очень....

---

YurikGL   (2005-04-25 18:37:00) [1]

> На вкладке Servers есть компоненты, которые тебе помогут.

код будет примерно такой

vr1,vr2:olevariant;

vr1:=1;
vr2:=WordApplication1.ActiveDocument.Characters.Count;
DocText:=WordApplication1.ActiveDocument.Range(vr1,vr2).Text;

---

Mihas   (2005-04-25 13:06:00) [2]

Ок !

---

ANB   (2005-04-25 12:35:00) [3]

На вкладке Servers есть компоненты, которые тебе помогут.

---

Mihas   (2005-04-25 11:50:00) [4]

Так неработает...
Буду пробывать еще, а как через COM сервер,

---

ANB   (2005-04-25 11:18:00) [5]

Попробуй вот так, но без гарантии :
var hControl : Integer;
   sClassName, sWinText, sP : String;
   Order, tmWait, Size : Integer;
   bNoWait : Boolean;
   VarName, sText : String;
   TextLen : ^Word;

Size := SendMessage(hControl, EM_LINELENGTH, 0, 0);
SetLength(sText, Size);
TextLen := @sText[1];
TextLen^ := LoWord(Size);
Size := SendMessage(hControl, EM_GETLINE, 0, LongWord(PChar(sText)));
SetLength(sText, Size);

если не получится - рой дальше по EM_.

---

Mihas   (2005-04-25 11:12:00) [6]

Ок посмотрю спасибо !

---

ANB   (2005-04-25 10:53:00) [7]

> Пробывал GetWindowText нифига,
> Побывал SendMessage(h,wm_GetText,127,longint(@zag))
- полфорума уже завалил. И НЕ БУДЕТ РАБОТАТЬ, т.к. WM_GETTEXT совсем другое достает. Смотри сообщения, начинающиеся на EM_. Может, какое и подойдет. А лучше, через COM Server подключись.

---

Наверх