Загрузка в Excel текста из .TIF файла

[Qwestor5]

Столкнулся с проблемой. Есть ПО которое генерирует кучу графических файлов в формате .tif содержащих латиницу и цифры.
Как правило в файле одна строка, полученная с автоматического сканера - (артикул товара).
Требуется загрузить данные в таблицу Excel 2003.
Пробовал Finereader - получается но хочется полной автоматизации процесса. Возможно ли это ?

[Aent]

Да. Вполне возможно. Начиная с 2003 офиса появилось такое средство как MODI (Microsoft Office Document Imaging).
http://msdn.microsoft.com/en-us/libr...ice.11%29.aspx
Вот пример использования:

Public Sub Test_MODI_OCR_Text_From_TIF()
   Dim oMODI As Object
   Set oMODI = CreateObject("MODI.Document")
   With oMODI
       .Create (ThisWorkbook.Path & "\test.tif")
       .OCR (9) 'Английский язык
       MsgBox .Images.Item(0).Layout.Text
       .Close
   End With
   Set oMODI = Nothing
End Sub

Справку по объектной модели можно посмотреть на сайте MSDN по приведённой выше ссылке
или здесь Объектная модель MODI

[Qwestor5]

Большое спасибо.