希望用VBA 編程讀取相片中的數字 并用EXCEL 保存，非常感謝
uj5u.com熱心網友回復：
求大咖幫忙， 能不能用vba 編程讀取附件中相片中紅色標記的數字，并用EXCEL 保存
uj5u.com熱心網友回復：
可以留意一下 .net + aforge.netuj5u.com熱心網友回復：
列印字符……
用OCR識別，準確率幾乎是100%的。
uj5u.com熱心網友回復：
百度識字嗎 。uj5u.com熱心網友回復：
office2007中有一個ocr組件，在安裝的時候拉開工具的折疊可以看到，這個組件在2010之后都集成到one note里面了。目前微軟網站上可以免費下載Microsoft SharePoint Designer 2007 ，安裝包里也包含了這個組件。可以下載過來，然后找個干凈的環境（我是弄了個虛擬機玩） 只選擇這個組件安裝到一個指定目錄里。然后提取出這些檔案放在自己的安裝包里，注冊一下，就可以呼叫了。具體的呼叫問度娘有完整的代碼。目測你的這張樣例圖片是可以比較好的識別的，用掃描圖片更佳。
uj5u.com熱心網友回復：
VB實作OCR文字識別
原理: 利用微軟OCR控制元件, 只需要不到10行代碼就能夠實作自已的OCR文字識別軟體.
1. 添加控制元件,需要安裝office2003, 沒有安裝office2003的可以從別人機子上拷貝相關檔案,注冊regsvr32.exe mdivwctl.dll,
控制元件一般在這個目錄下:C:\Program Files\Common Files\Microsoft Shared\MODI\11.0, 只需要相關的幾個檔案就可以了, 此檔案夾全部檔案大概在21M左右.
工程->部件->添加這個控制元件:Microsoft Office Document Imaging 11.0 Type Library
2.在按鈕的Click事件里:
Dim strLayoutInfo As String, strLPN As String
'初始化并加載檔案
Set miDoc = CreateObject("MODI.Document") '創建物件
miDoc.Create "D:\未命名.tif" '加載圖片檔案(必須是黑白二值圖)
Screen.MousePointer = vbHourglass '設定游標忙
'識別
miDoc.Images(0).OCR miLANG_CHINESE_SIMPLIFIED, True, True '有用的就此一句，識別為中文簡體
Set modiLayout = miDoc.Images(0).Layout '讀出資料
strLayoutInfo = _
"Language: " & modiLayout.Language & vbCrLf & _
"Number of characters: " & modiLayout.NumChars & vbCrLf & _
"Number of fonts: " & modiLayout.NumFonts & vbCrLf & _
"Number of words: " & modiLayout.NumWords & vbCrLf & _
"Beginning of text: " & Left(modiLayout.Text, 50) & vbCrLf & _
"First word of text: " & modiLayout.Words(0).Text
MsgBox strLayoutInfo, vbInformation + vbOKOnly, "Layout Information"
Set modiLayout = Nothing
Set miDoc = Nothing
Screen.MousePointer = vbDefault
3. OK了, 是不是很簡單
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/54311.html
標籤：VBA