Yoğunluktan ne yazık ki örnek bir uygulama hazırlayamıyorum ve oldukça eski bir tarihte yapmıştık bu tip bir çalışmayı Access mi yoksa Excelde mi yaptığımızdan da çok emin olmadım ancak aşağıdaki kodları incelerseniz OCR ile işlem yapmaya ilişkin bir fikriniz olacaktır. Unutmamak gereken en önemli detay ise resim foto gibi medyalardan OCR ile alınan verilerde doğruluk oranı yüksekken streaming medialarda (video, flash gif gibi) bu oran düşmektedir.
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) ' tüm taranan belgelerinizi işler
strRecText = strRecText & doc1.Images(imageCounter).Layout.Text ' OCR sonuçlarını string ifade olarak ekler
Next
fnum = FreeFile()
Open "C:\Test\testmodi.txt" For Output As fnum
Print #fnum, strRecText
Close #fnum
doc1.Close
End Sub