why isn't this working, am i doing somthing wrong?
VB Code:
dim miDoc miDoc = CreateObject("MODI.Document") miDoc.Create "C:\ocr.tif" miDoc.OCR miDoc.SAVE Dim strRecText strRecText = "" dim imageCounter For imageCounter = 0 To (miDoc.Images.Count - 1) strRecText = strRecText & miDoc.Images(imageCounter).Layout.Text Next msgbox strRecText miDoc.Close


Reply With Quote