Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.039 c