Форум: "Corba";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];
Внизпоиск в Ворде Найти похожие ветки
← →
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 вся ветка
Форум: "Corba";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.069 c