Real OCR in AU3 - in a few lines.

[ptrex]

Real OCR in AU3

In the support forum I saw serveral posts about OCR.

And this has been discussed over and over again in a rather complex way.

This gives you OCR in no time and no effort.

MODI automation provides powerful document management and OCR features; however, it does not automate the document scanning process itself or support image annotation.

expandcollapse popup

; http://msdn2.microsoft.com/en-us/library/aa202819(office.11).aspx
#include <GUIConstants.au3>
#include <Array.au3>

Dim $miDoc, $Doc
Dim $str
Dim $oWord
Dim $sArray[500]

Const $miLANG_CZECH = 5
Const $miLANG_DANISH = 6
Const $miLANG_DUTCH = 19
Const $miLANG_ENGLISH = 9
Const $miLANG_FINNISH = 11
Const $miLANG_FRENCH = 12
Const $miLANG_GERMAN = 7
Const $miLANG_GREEK = 8
Const $miLANG_HUNGARIAN = 14
Const $miLANG_ITALIAN = 16
Const $miLANG_JAPANESE = 17
Const $miLANG_KOREAN = 18
Const $miLANG_NORWEGIAN = 20
Const $miLANG_POLISH = 21
Const $miLANG_PORTUGUESE = 22
Const $miLANG_RUSSIAN = 25
Const $miLANG_SPANISH = 10
Const $miLANG_SWEDISH = 29
Const $miLANG_TURKISH = 31
Const $miLANG_SYSDEFAULT = 2048
Const $miLANG_CHINESE_SIMPLIFIED = 2052
Const $miLANG_CHINESE_TRADITIONAL = 1028

; Initialize error handler
$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")

$miDoc = ObjCreate("MODI.Document")
$miDocView = ObjCreate("MiDocViewer.MiDocView")

$Viewer = GUICreate ( "Embedded MODI Viewer", 640, 580,(@DesktopWidth-640)/2, (@DesktopHeight-580)/2 , _
                    $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)


;Creates an ActiveX Control in the GUI.
$GUIActiveX = GUICtrlCreateObj ($miDocView, -1, -1, 640, 580)
GUICtrlSetResizing ($Viewer, $GUI_DOCKAUTO)


$miDoc.Create("C:_AppsAutoIT3COMMODIdeclaration.tif")
$miDoc.Ocr($miLANG_ENGLISH, True, False)

; Show GUI
GUISetState ()

$MiDocView.Document = $miDoc
$MiDocView.SetScale (0.75, 0.75)


While 1
$msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend



$i = 0

For $oWord in $miDoc.Images(0).Layout.Words

    $str = $str & $oWord.text & @CrLf
        ConsoleWrite($oWord.text & @CRLF)
    $sArray [$i] = $oWord.text
    $i += 1
Next

_ArrayDisplay($sArray,"OCR Result")



;MsgBox(0,"",$miDocView.FileName)

;------------------------------ This is a COM Error handler --------------------------------
Func MyErrFunc()
$HexNumber=hex($oMyError.number,8)
Msgbox(0,"COM Error Test","We intercepted a COM Error !" & @CRLF & @CRLF & _
             "err.description is: " & @TAB & $oMyError.description & @CRLF & _
             "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
             "err.number is: " & @TAB & $HexNumber & @CRLF & _
             "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
             "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
             "err.source is: " & @TAB & $oMyError.source & @CRLF & _
             "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
             "err.helpcontext is: " & @TAB & $oMyError.helpcontext _
            )
SetError(1) ; to check for after this function returns
Endfunc

Forgot to tell that Office 2003 is needed.

PS : Added all available languages.

Enjoy !!

ptrex

Edited September 14, 2012 by ptrex

[Zedna]

Great!

It's working.

[ptrex]

@Zedna

Thanks.

I always tend to test the scripts before posting

Which is not always the same thing as delivering a working script :">

See you around,

regards,

ptrex

[gseller]

Awesome!! Works with Office 2007 also. My hopes one day are to have an OCR Setup in autoit tht we can use the rubberband method and copy text from anythingon screen... Great Job ptrex! Cannot wait to see where this goes.

[Toady]

Very nice find! I will find a great use for this in the near future

[ptrex]

Thanks all !!

I am wondering if someone could check if it is working in a lower version than Office 2003 ?

Regards

ptrex

[Automan Empire]

Does not work with Office 97.

[sandman]

Works with Office 2000. Wow, that's really cool!

[SleepyXtreme]

What exactly is OCR?

[sandman]

http://en.wikipedia.org/wiki/Optical_character_recognition

[MrCreatoR]

Thanks!

But not workin for me - i getting many COM errors - my Office 2003 is on russian, maby i need to change something? like $miLANG_ENGLISH = ? (what the value for russian?).

And the link in the top of example is not good

Edited August 2, 2007 by MsCreatoR

[piccaso]

I have Office 2003 installed but dont have that 'MODI.Document' object.

any idea why?

[Siao]

Works with Office 2000. Wow, that's really cool!

Are you sure? In wikipedia it says it was introduced in Office XP, and my 2000 Pro certainly doesn't have this. I've never bothered with any service packs though. Edited August 2, 2007 by Siao

[sandman]

Are you sure? In wikipedia it says it was introduced in Office XP, and my 2000 Pro certainly doesn't have this. I've never bothered with any service packs though.

I have Office 2000 with SP2 and it works fine.

[qazwsx]

i have 2002 with sp3 and it is not working. I get this error.

C:\Documents and Settings\*******\Desktop\New AutoIt v3 Script.au3 (28) : ==> Object referenced outside a "With" statement.:

For $oWord in $miDoc.Images(0).Layout.Words

For $oWord in $miDoc.Images(0)^ ERROR

I think i might be doing something wrong but im not sure.

Edited November 16, 2010 by qazwsx

[Toady]

i have 2002 with sp3 and it is not working. I get this error.

C:\Documents and Settings\Steven Pecht\Desktop\New AutoIt v3 Script.au3 (28) : ==> Object referenced outside a "With" statement.:

For $oWord in $miDoc.Images(0).Layout.Words

For $oWord in $miDoc.Images(0)^ ERROR

I think i might be doing something wrong but im not sure.

Exact same thing for me too.

[ptrex]

@All

Good to see that it is working in a variaty of MS Office versions !!

Some have still dificulty as I see.

The ones that have can do a little check : Open the registry and check if the MODI component is properly registered.

Go to -> HK_Classes_Root and check if you find an entry for "MODI.Document"

Also check of this exists on your machine : C:\Program Files\Common Files\Microsoft Shared\MODI

If not the COM component is not registered on your system.

Try repairing MS Office or install all components of Office and test again.

@MsCreatoR

Regarding the languages. I will add RUSSIAN too.

See first post.

Regards,

ptrex

Edited August 3, 2007 by ptrex

[MrCreatoR]

ptrex

Hi, thanks for the languages additions...

Go to -> HK_Classes_Root and check if you find an entry for "MODI.Document"

I have there some values.

Also check of this exists on your machine : C:\Program Files\Common Files\Microsoft Shared\MODI

It's exists (with many stuff in there).

But it still not working (even with my language) .

Try repairing MS Office or install all components of Office and test again.

I will try that later, thanks.

[ptrex]

@MsCreatoR

Just to make sure, In order to have this example work you need to have a TIF file ready in the path specified in the Script :

"C:\Temp\Numbers.tif "

If not it will give errors.

This might be confusing looking at the CREATE statement in the script ?

It does not CREATE anything but OPENS it.

Regards,

ptrex

[MrCreatoR]

It does not CREATE anything but OPENS it.

Oh, now i see, thanks... but what do i write to this file?