1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
|
function WordResearchFunction(Word: string; FileName: string): Boolean;
var
DocWord: OLEVariant;
NomFich: OLEVariant;
{ MaZone, MaRecherche: Range; }
MaZone, MaRecherche: Range;
Param1, Param2, Param3, Param4, Param5, Param6: OLEVariant;
begin
MessageDlg('Recherche dans le fichier ' + FileName,mtCustom,[mbOk], 0);
vMSWord := CreateOleObject('Word.Application');
vMSWord.Connect;
vMSWord.Visible := True;
NomFich := FileName;
DocWord := vMSWord.Documents.Open(NomFich, EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam);
Param1 := 0;
MaZone := IUnknown(DocWord.Range(Param1,Param1)) as Range;
Param1 := Word;
Param2 := False;
Param3 := True;
Param4 := wdFindStop;
Param5 := wdCharacter;
Param6 := 1;
with MaZone.Find do
begin
while Execute(Param1,Param2,Param2,Param2,Param2,
Param2,Param3,Param4,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam)=true do
begin;
MaRecherche:= Parent as Range;
MaRecherche.Font.colorindex:=5;
end;
end;
vMSWord.disconnect;
end; |
Partager