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

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

поиск в Ворде [Delphi, Windows]

Homa_Programer ©   (2005-02-14 12:38:00) 

создаю процедуру
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', а второй текст не ищет, а просто игнорирует(((
В чем проблема?

---

GanibalLector   (2005-02-17 03:03:00) [1]

WordApp.Selection.HomeKey($00000006);

---

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

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

---

YurikGL   (2005-02-16 21:49:00) [3]

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

---

Наверх