Const $FR_dir = "c:\Program Files\ABBYY FineReader 8.0 Professional Edition\" Run($FR_dir&"FineReader.exe") AutoItSetOption ( "WinTitleMatchMode" , 2 ) $search = FileFindFirstFile("*.pdf") If $search = -1 Then MsgBox(0, "Error", "No pdf files") Exit EndIf While 1 $file = FileFindNextFile($search) If @error Then ExitLoop $file_name= StringTrimRight($file, 4); имя файла без расширения ".pdf" WinWaitActive("ABBYY") SendKeepActive("ABBYY") Send("^n", 0); новый пакет Send("!f") ; Send("v") WinWaitActive("Save") Sleep(500) ControlSetText ( "Save", "", "Edit1", @WorkingDir&"\"&$file_name ); создаем папку пакета Sleep(500) Send("{ENTER}") Sleep(500) Send("^o") Sleep(500) ControlSetText ( "Open", "", "Edit1", @WorkingDir&"\"&$file ); открытие и распознавание pdf файла Send("{ENTER}") WinWaitClose("Adding") Sleep(500) WinWaitActive("ABBYY") Sleep(500) Send("^+R") Sleep(500) If WinExists("Reading") Then WinWaitClose("Reading") EndIf Sleep(500); WinWaitActive($file_name&" - ABBYY") Sleep(1000); Send("^s") WinWait("Save") Sleep(500); ControlSetText ( "Save", "", "Edit1", @WorkingDir&"\"&$file_name&"\"&$file_name ); сохраняем результаты распознавания в папку пакета Send("{ENTER}") Sleep(500); If WinExists("Saving") Then WinWaitClose("Saving") EndIf Sleep(1000); ;ConsoleWrite(WinActive($file_name&" - ABBYY") & @CRLF) ; While MouseGetCursor()==15 WEnd Send("!f") Send("c") ;Закрываем пакет WEnd FileClose($search) |