try this it will work
#include <Array.au3>
#include <ScreenCapture.au3>
WinActivate("EFI Colorproof XF Client")
; Capture region
;$file1= _ScreenCapture_Capture("C:\GDIPlus_Image2.bmp", 141, 572, 850, 950)
;$file2= _ScreenCapture_Capture("C:\menu1.bmp", 1053,123, 1111, 141)
$menu_XF = _ScreenCapture_Capture("C:\menuXF3.bmp",873,123,1282,169)
$output = _OCR("C:\menuXF3.bmp")
;================================= OCR =======================================
; Function Name:
; Description: Searches a bmp file for all recognizable characters and returns them in an array
; Requires: Microsoft Word must be installed on system & <Array.au3>
; Parameters: $file bmp file to search
;
; Syntax: _OCR($file)
; Returns: $Array[1] = 0 on failure, $Array on success
;
;===============================================================================
Func _OCR($file)
Dim $miDoc, $Doc, $str, $oWord, $sArray[500]
$oMyError = ObjEvent("AutoIt.Error","_CoMErrFunc")
$miDoc = ObjCreate("MODI.Document")
$miDocView = ObjCreate("MiDocViewer.MiDocView")
$miDoc.Create($file)
$miDoc.Ocr(9, True, False)
$MiDocView.Document = $miDoc
$MiDocView.SetScale (0.75, 0.75)
$i = 0
For $oWord in $miDoc.Images(0).Layout.Words
$str = $str & $oWord.text & @CrLf
$fileopen = FileOpen("C:\test.txt", 1)
If $fileopen = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
ConsoleWrite($oWord.text & @CRLF)
;MsgBox(0,"Console writing",$oWord.text)
FileWrite($fileopen, $oWord.text & @CRLF)
; Check if file opened for reading OK
$sArray [$i] = $oWord.text
;$sArray = $oWord.text
$i += 1
$i += 1
Next
Return $sArray
EndFunc;========================== OCR ========================================