Omnipage 18 Professional ((hot)) -

Set opApp = CreateObject("OmniPage18.Application") opApp.Visible = True Set doc = opApp.OpenDocument("C:\test.tif") doc.Recognize doc.Export "C:\result.docx", 1 ' 1=Word format opApp.Quit

: Delivers up to a 67% increase in layout accuracy and significant improvements in character recognition for scanned images. omnipage 18 professional

For converting hundreds of files automatically: Set opApp = CreateObject("OmniPage18