Как прочитать из окна WINWORD Текст документа?

← →
Mihas © (2005-04-25 10:44) [0]

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

← →
ANB © (2005-04-25 10:53) [1]

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

← →
Mihas © (2005-04-25 11:12) [2]

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

← →
ANB © (2005-04-25 11:18) [3]

Попробуй вот так, но без гарантии :
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:50) [4]

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

← →
ANB © (2005-04-25 12:35) [5]

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

Ок !

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

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

vr1,vr2:olevariant;

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

Как прочитать из окна WINWORD Текст документа? Найти похожие ветки