Bonjour,
Je suis en charge de mettre à niveau un petit utilitaire qui permettai de trouver diverses choses dans un fichier Word.
Actuellement j'ai un versio que j'ai faite il y a 3-4 ans et que je dois maintenir et remettre a niveaux pour l'utiliser avec Word 2003.
Avant j'utilisais cette fonction qui marchait trés bien, avec ce nouveau Word, les images ne sont pas inseré de la même façon donc mon petit test ne marche plus.
Avez vous une idée de ce que je pourrai utiliser pour savoir si oui ou non dans mon fichier Word une image est présente ?
Merci de votre aide.
voici le code :
Function FImage() : Integer;
var
i : integer;
TxtSelect, PictFormat : String;
begin
PictFormat := '';
//Showmessage(doc.Paragraphs.Count);
//*************on cherche le Nbre de Paragraph dispo dans le TXT**************
for i := 1 to doc.Paragraphs.Count do
begin
//************On selectionne le paragraph en question************************
doc.Paragraphs.item(i).range.select;
TxtSelect := Word.selection.text;
//*************On controle si il y a la chaine <BMP: qui correspond a une image**************
if Pos('<BMP:',TxtSelect) <> 0 then
begin
FImage := 1;
// Showmessage('un image Super');
Exit;
end;
end;
FImage := 0
end;
