VBA编程读取相片中的数字

[wit1818]

希望用VBA 编程读取相片中的数字 并用EXCEL 保存，非常感谢

[X-i-n]

可以留意一下 .net + aforge.net

[舉杯邀明月]

打印字符……　 用OCR识别，准确率几乎是100%的。

[wit1818]

求大咖帮忙， 能不能用vba 编程读取附件中相片中红色标记的数字，并用EXCEL 保存

[kugeniha]

百度识字吗 。

[脆皮大雪糕]

office2007中有一个ocr组件，在安装的时候拉开工具的折叠可以看到，这个组件在2010之后都集成到one note里面了。 目前微软网站上可以免费下载Microsoft SharePoint Designer 2007 ，安装包里也包含了这个组件。可以下载过来，然后找个干净的环境（我是弄了个虚拟机玩） 只选择这个组件安装到一个指定目录里。然后提取出这些文件放在自己的安装包里，注册一下，就可以调用了。具体的调用问度娘有完整的代码。目测你的这张样例图片是可以比较好的识别的，用扫描图片更佳。

[赵4老师]

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了, 是不是很简单