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

Вниз

поиск в Ворде   Найти похожие ветки 

 
Homa_Programer ©   (2005-02-14 12:38) [0]

создаю процедуру
procedure TfmView.FindMyText(findtx,inserttx:string);
var
wad:TWordApplication;
 V,v2 : OleVariant;
begin
  wad := TWordApplication.Create(nil);
 try
  wad.AutoConnect := False;
  wad.AutoQuit := False;
  wad.ConnectKind := ckRunningInstance;
  wad.Connect;
  v:=findtx;
  v2:=inserttx;
  wad.Selection.Find.Text:=findtx;
  wad.Selection.Find.Execute(v,emptyparam,emptyparam,
  emptyparam,emptyparam,emptyparam,emptyparam,
  emptyparam ,emptyparam,v2,emptyparam,emptyparam,
  emptyparam,emptyparam,emptyparam);
 finally
  wad.Free;
 end;
end;


затем в другой форме ее использую таким образом:

fmview.FindMyText("findtx1","inserttx1");
fmview.FindMyText("findtx2","inserttx2");


дак он у меня ищет только "findtx1", а второй текст не ищет, а просто игнорирует(((
В чем проблема?


 
YurikGL ©   (2005-02-16 21:49) [1]

Может курсор в конце дукумента остался? ;-)


 
Homa_Programer ©   (2005-02-17 00:14) [2]

а как его в начало постаить?


 
GanibalLector ©   (2005-02-17 03:03) [3]

WordApp.Selection.HomeKey($00000006);



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

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

Наверх




Память: 0.47 MB
Время: 0.04 c
4-1127976980
solomon
2005-09-29 10:56
2005.12.04
Отлов событий и сообщений происходящих в другом окне


14-1131617893
КаПиБаРа
2005-11-10 13:18
2005.12.04
Нужен форум по VBA


3-1129644747
DancerMan
2005-10-18 18:12
2005.12.04
DBGridEh. Как изменить цвет строки по клику на ней?


14-1131687761
SPeller
2005-11-11 08:42
2005.12.04
Интересно, когда закончится этот русский идиотизм?


3-1129638648
Kor
2005-10-18 16:30
2005.12.04
Как перенисти БД с использованием BDE?