Bonjour à tous,
 
Je dois chercher du texte dans de nombreux fichiers tifs de plusieurs pages chacun.
Un par un, j'ouvre le fichier, je fais edition puis rechercher. Là j'ai un message me disant "Microsoft Office Document Imaging doit reconnaitre le texte de ce document avant que vous puissiez executer cette opération". Il me convertit donc mon fichier puis me demande quel mot je recherche.
Tout ça est tres bien, mais vu le nombre impressionnant de fichier que je dois traiter, je cherche à faire un programme me permettant d'aller ouvrir les fichier et de faire ce traitement automatiquement...
 
Merci par avance de votre aide!
 
Je travaille sous Windows XP.

là, comem ça, simpleme,t, je dirais qu'il faut que tu appliques une OCR (genre readiris, textbridge ou Omnipage) sur tous tes fichiers pour avoir en sortie des fichiers texte. Ensuite t'as plus qu'à rechercher ton texte dans tous ces fichiers (via l'explorateur de windows ou un programme plus évolué).

C'est con, on peut pas faire de macro avec Document Imaging

rufo > pas besoin d'OCR externe, celui d'Office est suffisant (testé à l'instant)

En effet, celui d'Office est satisfaisant.
Il me faudrait donc un programme qui ouvre mes fichiers images un par un et lance la reconnaissance OCR d'Office

Ca doit être jouable avec un simple VBS. Mais bon, c'est pas ce qu'il y a de plus propre

Je me doute. Mais je ne suis pas tres douée en programmation

sinon AutoIt. Simple à mettre en oeuvre et fait pour développer des macro : pas besoin de bien maitriser la prog. On peut même faire de petites IHM assez facilement Ca permet aussi de simuler les frappes clavier et les cliques de souris...

Option Explicit
 
Const picturesPath = "c:\in\tif\"
Const officeImagingPath = """C:\Program Files\Common Files\microsoft shared\MODI\12.0\MSPVIEW.EXE"""
 
Dim objShell
Dim cmdStr
Dim fso
Dim fol
Dim fil
 
Set objShell = CreateObject("WScript.Shell" )
Set fso = CreateObject("Scripting.FileSystemObject" )
 
Set fol = fso.GetFolder(picturesPath)
 
For Each fil In fol.Files
  cmdStr = officeImagingPath & " """ & fil.Path & """"
  objShell.Run cmdStr, 1
  WScript.Sleep 2000
  objShell.SendKeys "%ox"
  WScript.Sleep 5000
  objShell.SendKeys "%ot"
  WScript.Sleep 500
  objShell.SendKeys "{ENTER}"
  WScript.Sleep 3000
  objShell.SendKeys "%{TAB}"
  WScript.Sleep 1000
  objShell.SendKeys "%{F4}"
  WScript.Sleep 500
  objShell.SendKeys "n"
  WScript.Sleep 500
Next

 
Ca "marchouille".

Ca fait plus ou moins ce qu'on lui demande (ouvre toutes les images d'un répertoire, les reconnais et exporte le contenu dans Word) mais c'estun peu aléatoire le comportement (logiquement à la fin on n'a plus que les words ouverts mais bon là force est de constater que ça marche pas )
 
Pour plus d'infos sur ce qu'on peut envoyer comme touches au programme en cours d'exécution :
http://www.devguru.com/technologies/wsh/17420.asp
 
Notamment il ne serait pas con de faire un %fs suivit d'un File.ShortName & ".doc" puis %{F4} dans Word histoire d'enregistrer le document word sous le même nom que l'image d'origine.
 
En tout cas c'est pas mal comme truc, ça oblige à apprendre les raccourcis clavier

l'avantage de AutoIt, c'est qu'il a un mode record de la macro : tu enregistre toutes les actions que tu fais pour un tiff -> ça te génère un script autoit que t'as plus qu'à modifié si besoin est
 
Je l'avais utilisé pour installer des softs automatiquement (style drivers, winzip, photoshop...) à partir d'un fichier de paramétrage.