Recherche d'images dans un fichier DOC

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;

Salut,

Ca m'étonnerais que ça t'aide, mais je connais une astuce très intéressante. Je profite donc du sujet pour la répendre.

Tu ouvre un document .doc, .odt ou autre avec OpenOffice puis tu l'enregistres au format .odt. Ensuite, tu renommes ton fichier mondocument.odt brutalement en .zip, comme mondocument.zip. Quand tu ouvres avec WinZip mondocument.zip, apparaissent compréssés, les fiches de style en .xml, le contenu du document, et toutes les images qui sont utilisées.

Désolé si cette info ne sert à personne.
Bon courage.