Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.06.14;
Скачать: CL | DM;

Вниз

Как прочитать из окна 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 есть компоненты, которые тебе помогут.


 
Mihas ©   (2005-04-25 13:06) [6]

Ок !


 
YurikGL ©   (2005-04-25 18:37) [7]


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

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

vr1,vr2:olevariant;

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



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

Текущий архив: 2005.06.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.096 c
3-1115179948
IBNovice
2005-05-04 08:12
2005.06.14
Помогите с запросом


1-1117032694
Andarko
2005-05-25 18:51
2005.06.14
функция, которая возвращает матрицу


3-1115277422
Dels
2005-05-05 11:17
2005.06.14
Компонент DBMemo в Windows XP


14-1116995512
sapsi
2005-05-25 08:31
2005.06.14
Звонки на сотовые с городских станут платными


14-1116854541
AlterEgo of WondeRu
2005-05-23 17:22
2005.06.14
Logitech - получи кота в мешке!