Hi - thanks for the video, please could you (re)post the vba snippets as text? The github link above doesn't seem to exist (at least for me) and can't find the snippets on the facebook like above either. I don't see anything in the description above.
Thanks, Mike! I couldn't get UB Mannheim's 64-bit Tesseract OCR installer to work on my Win11/Dell Inspiron 15, but the 32-bit installer worked perfectly. Also, when setting the value for the strCommand variable, I had to use the VBA escape character to put quotes before and after strImagePath (""" instead of "). Like this: strCommand = "cmd.exe /c tesseract """ & strImagePath & """ stdout -l eng"
not working. install setup, add path in environment variables control panel, call exe via wscript shell. no error, but no text returned. did i miss something
I have me too a lot of issues executing the code To resolve that Make sure the tesseract.exe is executed as administrator you can set that in the file properties ... Then the path to the image should start and end with a quote "
you probably dont care but does any of you know a method to log back into an instagram account..? I stupidly forgot the password. I would love any assistance you can give me.
@Ephraim Dominic Thanks for your reply. I found the site on google and im waiting for the hacking stuff now. Looks like it's gonna take quite some time so I will get back to you later when my account password hopefully is recovered.
Update: This was due to me referencing the wrong tesseract folder. Once I set the path to the tesseract folder from my c:/Programs Files/Tesseract-Ocr it worked with the addition to a separate fix code from [GetImageFullPath = strFile] to [GetImageFullPath = Chr(34) & strFile & Chr(34)] . Hope this helps.
In my 64-bit win 10, neither one nor the other, which is 32-bit, did not work... It does not generate anything and does not give any type of error... I did the test by copying a text and pasting it in paint, saving it as a jpg it's nothing!!
Hi I faced the similar problem and tried to run Tesseract as admin but it was not working. Could you help to explain what do you mean by ‘path to image should start and end with quote’?
If anyone needs it: Option Explicit Sub Tesseract_OCR() Dim strCommand, strImagePath, strOcrResult As String Dim ws As Object Set ws = VBA.CreateObject("wscript.shell") strImagePath = GetImageFullPath() If Not IsEmpty(strImagePath) Then strCommand = "cmd.exe /c tesseract """ & strImagePath & """ stdout -l eng" strOcrResult = ws.Exec(strCommand).StdOut.ReadAll Range("A1").Value = strOcrResult MsgBox (strOcrResult) End If End Sub Function GetImageFullPath() As String Dim fd As Office.FileDialog Dim strFile As String Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Filters.Clear .Filters.Add "Images", "*.png, *.jpg" .Title = "Choose an Image" .AllowMultiSelect = False If .Show = True Then strFile = .SelectedItems(1) GetImageFullPath = strFile End If End With End Function
