HELP WITH ERROR IN MODI.Document

[ZeNeto]

I`m trying read a text from a screencapture, i got this method here in autoit`s forum. But the error is:

"C:\Users\jose.barbosaneto\Desktop\TESTE.au3" (23) : ==> Variable must be of type "Object".:
$miDoc.Create(@TempDir & '\OCR_ImageResize.jpg')
$miDoc^ ERROR

 

Please help me

Code:

expandcollapse popup

#include <Constants.au3>
#include <ScreenCapture.au3>
#Include <Misc.au3>
#include <Array.au3>
#include <GDIPlus.au3>



$image = @MyDocumentsDir & "\aaa_teste.jpg"
ConsoleWrite(OCR($image))


Func OCR($Image)
    Local $miDoc, $Doc
    Local $str

    Local $oWord

    Local $sArray[500]
    Local $as_Text = ""


    $miDoc = ObjCreate("MODI.Document")
    ConsoleWrite("ObjCreate - The error value is: " & @error & @CRLF)
    $miDoc.Create(@TempDir & '\OCR_ImageResize.jpg')
    ConsoleWrite("Create - The error value is: " & @error & @CRLF)
    $miDoc.Ocr(9, False, False)
    ConsoleWrite("Ocr - The error value is: " & @error & @CRLF)

    If $Error = False Then
        $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

        $as_Text = _ArrayToString($sArray," ",0)
        $as_Text = StringReplace($as_Text, "  ", "", 0)

    ElseIf $Error = True Then

        $Error = False
    EndIf



    $miDoc.Close(False)
    Return $as_Text

EndFunc





Func OCRGetModi($Image)
    Local $sArray[1], $oWord



    Local $miDoc = ObjCreate("MODI.Document")
    $miDoc.Create($Image)
    If @error Then Return SetError(1)

    $miDoc.Ocr(9, True, False)
    If @error Then Return SetError(2)

    For $oWord In $miDoc.Images(0).Layout.Words
        ReDim $sArray[UBound($sArray)+1]
        $sArray[UBound($sArray)-1] = $oWord.Text
    Next
    $sArray[0] = UBound($sArray)-1
    Return $sArray
EndFunc

 

Edited September 18, 2015 by Melba23
Added code tags

[Jfish]

Hello and welcome.  Always best to try and use the code tags <> to make your code more readable.  That said, you should error check after the objCreate function to see if it worked (from the help file):

Keep in mind that not all computers have the same set of Objects. So always check for errors after calling ObjCreate(). To check errors use ObjEvent().

EDIT: Looks like you are creating the object twice in two different functions and only error checking once ...

Edited September 18, 2015 by Jfish

[ZeNeto]

Hello thanks for help, i discovered whats is wrong but i couldnt solve this problem.

I have MS Office 2013 instaled but MODI is a default feature until MS Office 2007, how can i use MODI in office 2013?

[Jfish]

Are you saying your PC does not have the object you are trying to create?  If so, I would say you need to run your script on a PC that has it installed.

[BrewManNH]

You can install MODI (Microsoft Office Document Imaging) by installing Sharepoint 2007 designer if you really need to use MODI. The page I linked to has 2 methods of getting it, even though it says for Office 2010 it should work in 2013 but I haven't tried it.

[ZeNeto]

Thanks dudes, i solved. I had office 2013 installed in my pc, i solved doing a downgrade to offfice 2007

[Sherran]

So do i have to buy MS Office 2007? Thanks.

Im trying to do exactly what you are doing and having the same log issue.

[jdelaney]

https://www.microsoft.com/en-us/download/details.aspx?displaylang=en&id=21581

 

free, and includes MODI (I think you have to specify to install it through custom installation steps) ^

Edited August 17, 2018 by jdelaney