read the data from tiff file using MODI and OCR in VBA

[divya_agarwal]

Hi,
Can any body correct me to read the data from tiff image by using MODI and OCR .
Plz check the code.
Dim doc1 As MODI.Document
Dim inputFile As String
Dim strRecText As String
Dim imageCounter As Integer
inputFile = Application.GetOpenFilename
'(Title:="Please choose a file to import", _
'FileFilter:="Image Files *.tif (*.tif)")
strRecText = ""
Set doc1 = New MODI.Document
doc1.Create (inputFile)
doc1.OCR ' this will ocr all pages of a multi-page tiff file
doc1.Save ' this will save the deskewed reoriented images, and the OCR text, back to the inputFile
For imageCounter = 0 To (doc1.Images.Count - 1) ' work your way through each page of results
strRecText = strRecText & doc1.Images(imageCounter).Layout.Text ' this puts the ocr results into a string
Next
File.AppendAllText("C:\test\testmodi.txt", strRecText) ' write the OCR file out to disk
doc1.Close
doc1 = Nothing


that program is showing error in the colored line.

Regards,
Divya Agarwal

 

[Blade Hunter]

Why not use a more traditional method to write to a text file?

Replace your failing line with the following 4 lines.

fnum = FreeFile()
Open "C:\test\testmodi.txt" For Output As fnum
Print #fnum, strRecText
Close #fnum

 

[Blade Hunter]

Oh also, Doc1=nothing gave me issues so I commented that out to get it working too.

 

[divya_agarwal]

object has not been initialised and can not be used yet while i try to make OCR the imagehttp://www.mrexcel.com/forum/showthread.php?t=358499&goto=newpost

 

[divya_agarwal]

getting the previous error

 

[Blade Hunter]

This is the complete code I used.

Sub OCRReader()
Dim doc1 As MODI.Document
Dim inputFile As String
Dim strRecText As String
Dim imageCounter As Integer
inputFile = Application.GetOpenFilename
strRecText = ""
Set doc1 = New MODI.Document
doc1.Create (inputFile)
doc1.OCR ' this will ocr all pages of a multi-page tiff file
For imageCounter = 0 To (doc1.Images.Count - 1) ' work your way through each page of results
    strRecText = strRecText & doc1.Images(imageCounter).Layout.Text ' this puts the ocr results into a string
Next
fnum = FreeFile()
Open "C:\Test\testmodi.txt" For Output As fnum
    Print #fnum, strRecText
Close #fnum
doc1.Close
End Sub

 

[Blade Hunter]

Oh almost forgot, make sure you add "Microsoft Office Document Imaging 11.0 Type Library" in as a reference

 

[divya_agarwal]

ihave Microsoft Office Document Imaging 12.0 Lobrary

and while i do select this and run the progm it display error

"name conflicts with existing module,project or library"

 

[divya_agarwal]

Thank u so much
i got my error i delect previous one 1.0 type library and select 12.0 type.
It is working.

Cooooooooool

Thanks a lot

 

[Blade Hunter]

Happy to help