Ошибка variable must be of type object

The only downside of MODI library is that it relies 100 % on MS Office.
So if you don’t have the proper version installed it will not find the needed COM object.

Check the Office version you have installed and see if MODI is in there.
Go in Uninstall Programs and click on Change/Repair on the MS Office version you have. From there you can check if MODI documents are installed.

Edit: Install MDI to TIFF Files Converter and SharePoint Designer from this link: https://support.microsoft.com/en-us/kb/982760
After installing them go to > Uninstall a Program>MS Office SharePoint Designer 2007> Right click on it and select Change>select Add or Remove Features.
From there in the menu you will find the option Office Tools. Expand it.
Then click on the small arrows on MODI(Microsoft Office Document Imaging) and select «Run all from my Computer».

And you are ready to go!

Edit2: Here is a tested and working example.

#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

Local $ImagePath = @DesktopDir & "Untitled.png" ; you can choose .tif format if you also want
; 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($ImagePath)
$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   ;==>MyErrFunc

;ДАННЫЕ
#include <Excel.au3>
#Include <File.au3>
$Povtor = InputBox("Колличество цыклов","Введите колличество цыклов") ;Количество цыклов

;ЗАПУСК EXCEL
Local $oAppl = _Excel_Open()
$BookAvto=_Excel_BookOpenEX($oAppl, @ScriptDir & 'Exel.xlsm')

For $j = 1 To $Povtor
;==============================================================================
;Определение переменных из Excel
$BookAvto.Worksheets("Лист1").Range("A1").Select ;Выбираем ячейку
$BookAvto.ActiveSheet.Application.Run("Копировать") ;Копируем ячейку в буфер обмена
$Papka=ClipGet() ;Присваиваем значение перемнной из буфера
$BookAvto.Worksheets("Лист1").Range("A1").Select ;Выбираем ячейку
$BookAvto.ActiveSheet.Application.Run("Копировать") ;Копируем ячейку в буфер обмена
$Zamena=ClipGet() ;Присваиваем значение перемнной из буфера
MsgBox(0, 'Циклы - ПРОЦЕСС', 'Номер цыкла: '&$j&' из '&$Povtor&'', 1)

;==============================================================================
;ПОИСК И ЗАМЕНА В ФАЙЛАХ
_FindFiles_1('C:Песочница'&Papka&'', '*.*') ;Замена

;==============================================================================
;УДАЛЕНИЕ СТРОКИ EXEL
$BookAvto.ActiveSheet.Application.Run("Сместить") ;Сместить
Sleep(100)
Next

_Excel_Close($oAppl)

MsgBox(0, 'Циклы - КОНЕЦ', 'КОНЕЦ!' & @CR & 'Сделано цыклов: '&$Povtor&'')

;ФУНКЦИЯ ПОИСКА И ЗАМЕНЫ
Func _FindFiles_1($sRoot, $sFile)
    Local $FileList
    $FileList = _FileListToArray($sRoot, $sFile, 1)
    If Not @error Then
        For $i = 1 To $FileList[0]
            ConsoleWrite($sRoot & '' & $FileList[$i] & @CR)
            $Read = FileRead($sRoot & '' & $FileList[$i]) ;Считываем файл
            $Replace = StringRegExpReplace($Read, 'Что нужно заменить', $Zamena ) ;Делаем изменение
            FileDelete($sRoot & '' & $FileList[$i]) ;Удаляем файл
            FileWrite($sRoot & '' & $FileList[$i], $Replace) ;На его место записываем измененный файл
        Next
    EndIf
    $FileList = _FileListToArray($sRoot, '*', 2)
    If Not @error Then
        For $i = 1 To $FileList[0]
            _FindFiles_1($sRoot & '' & $FileList[$i], $sFile)
        Next
    EndIf
EndFunc

Func _Excel_BookOpenEX($oExcel, $sFilePath, $bReadOnly = Default, $bVisible = Default, $sPassword = Default, $sWritePassword = Default, $bUpdateLinks = Default)
    ; Error handler, automatic cleanup at end of function
    Local $oError = ObjEvent("AutoIt.Error", "__Excel_COMErrFunc")
    #forceref $oError
    If Not IsObj($oExcel) Or ObjName($oExcel, 1) <> "_Application" Then Return SetError(1, @error, 0)
    If Not FileExists($sFilePath) Then Return SetError(2, 0, 0)
    If $bReadOnly = Default Then $bReadOnly = False
    If $bVisible = Default Then $bVisible = True
    Local $oWorkbook = $oExcel.Workbooks.Open($sFilePath, $bUpdateLinks, $bReadOnly, Default, $sPassword, $sWritePassword)
    If @error Then Return SetError(3, @error, 0)
    Local $oWindow = $oExcel.Windows($oWorkbook.Name) ; <== Modified
    If IsObj($oWindow) Then $oWindow.Visible = $bVisible ; <== Modified
    ; If a read-write workbook was opened read-only then set @extended = 1
    If $bReadOnly = False And $oWorkbook.Readonly = True Then Return SetError(0, 1, $oWorkbook)
    Return $oWorkbook
EndFunc   ;==>_Excel_BookOpen