OCR в Excel: макрос распознавания текста с картинки

Вопрос о заказах макросов. Макрос Вы даёте с открытым кодом?

Большое СПАСИБО за информацию. Подскажите, пожалуйста, как можно организовать подобным способом (т.е. автоматически через VBA) уже установленную FineReader? Имеется ФАЙЛ.pdf. Ассоциирован c AdobeReader. Не могу понять как этот файл сразу открыть в FR не меняя ассоциацию и заставить скинуть текст в VBA (ну или хотя бы просто открыть этот файл в FR). Заранее благодарен!

Добрый день!
В продолжение темы про OCR и потояннство кода - на сайте newOCR есть возможноть наладить распознование через пост запросы, при условии получения ключа они позволяют произоводить одно распознование в минуту, это мне кажется в полне нормально, вот только проблема в реализации формирования самого пост зарпоса через VBA код, т.к. там нужно указать тот самый ключ..И

(Пример на основе Вашего кода на сайт залил)

Sub ПримерОтправкиФайлаНаФайлообменник()
FileName$ = "путь к файлу/OCR.JPG"
URL$ = "http://api.newocr.com/v1/"

If Dir(FileName$, vbNormal) = "" Then ' проверяем наличие файла FileName$
MsgBox "Файл: " & FileName$ & " не найден", vbCritical, "Отправка файла невозможна!"
Exit Sub
End If

СсылкаНаЗагруженныйФайл = UploadFile(URL$, FileName$) ' пытаемся отправить файл

If Len(СсылкаНаЗагруженныйФайл) Then
MsgBox "Ссылка для скачивания: " & СсылкаНаЗагруженныйФайл, vbInformation, _
"Файл успешно загружен на файлообменник zalil.ru"
Else
MsgBox "Файл: " & FileName$, vbCritical, _
"Не удалось отправить файл на файлообменник zalil.ru"
End If
End Sub

Function UploadFile(ByVal DestURL As String, ByVal FileName As String) As String
Dim sFormData As String, d As String: On Error Resume Next

sFormData = GetFile(FileName) 'Get source file As a string.

FormData = "POST /v1/upload?key=" + ключ + " HTTP/1.1" + vbCrLf
FormData = FormData + "Host: api.newocr.com" + vbCrLf
Const Boundary As String = "---------------------------41184676334"

FormData = FormData + "Content-Type: multipart/form-data; boundary=" + Boundary + vbCrLf 'Build source form with file contents
FormData = FormData + "Content-Length: 29278" + vbCrLf + vbCrLf
FormData = FormData + "Content-Disposition: form-data; name=""" + sFormData + """;" + " filename=""" + Dir(FileName) + """" + vbCrLf
FormData = FormData + "Content-Type: image/jpeg" + vbCrLf
FormData = FormData + "(Binary data not shown)" + vbCrLf
FormData = FormData + "-----------------------------41184676334--"
MsgBox FormData

Dim WebBrowser: Set WebBrowser = CreateObject("InternetExplorer.Application") ' WebBrowser.Visible = True
'Send the form data To URL As POST request
Dim bFormData() As Byte: ReDim bFormData(Len(FormData) - 1)
bFormData = StrConv(FormData, vbFromUnicode)

WebBrowser.Navigate DestURL, , , bFormData '"Content-Type: multipart/form-data; boundary=" + Boundary + vbCrLf

Do While WebBrowser.Busy: DoEvents: Loop
UploadFile = WebBrowser.LocationURL: If UploadFile = DestURL Then UploadFile = ""
WebBrowser.Quit
End Function

Function GetFile(FileName As String) As String 'read binary file As a string value
' вспомогательная функция. Возвращает текстовую строку - файл FileName в юникоде
Dim FileContents() As Byte, FileNumber As Integer
ReDim FileContents(FileLen(FileName) - 1)
FileNumber = FreeFile
Open FileName For Binary As FileNumber
Get FileNumber, , FileContents
Close FileNumber
GetFile = StrConv(FileContents, vbUnicode)
End Function

Мы о разных методах работы. Ручками кликая на сайте, конечно подсунешь любой файл, но статья админа совсем не об этом, а об автоматизации этого процесса.

Мне кажется или первый сервис теперь движение мышки проверяет?

В чем проблема загрузки файла на первый сервис?
Зачем нужен сторонний url,когда сервис предлагает закачать любые файлы даже в формате типа pdf

Первый макрос устарел не очень сильно. Я разобрался, вместо
newOCR = ie.document.getElementById("ocr-result").value нужно использовать
newOCR = ie.document.getElementById("ocr-result").innerHtml

жаль не получается подсовывать свой локальный файл так как элемент
<@input type="file" name="userfile" id="userfile"/> имеет значение value только для чтения.
Придется отправлять файл сначала на сторонний УРЛ в сеть, а потом кидать этот УРЛ на форму.

Или есть решение?

Скрипт немного устарел. Так например элемент страницы с текстом сейчас не
newOCR = IE.document.getElementById("textarea").value а
newOCR = ie.document.getElementById("ocr-result").Value

Заменил название, но результат пуст, хотя в отладке делаю ie.visible=true, (Вашу картинку кстати не распознает, я закидываю другой файл) вижу что сканирование произошло, а в переменную newOCR все равно ничего не попадает. Наверное нельзя вот так "в лоб" обратится к элементу страницы с текстом, нужен какой-то перебор в цикле, но у самого пока не получается.