Option Explicit
'利用MS Office 2003/2007的OCR控件, 对图片进行OCR识别
'在VB中,只需要不到10行代码就能够实现自已的OCR文字识别软件.
'1. 添加控件,需要安装office2003, 没有安装office2003的可以从别人机子上拷贝相关文件,注册regsvr32.exe mdivwctl.dll,
'控件一般在这个目录下:C:\Program Files\Common Files\Microsoft Shared\MODI.0, 只需要相关的几个文件就可以了, 此文件夹全部文件大概在21M左右.
'2.工程->部件->添加这个控件:Microsoft Office Document Imaging 11.0 Type Library
'3.需要注意的一点是,在Windows2003 Server上,如果用Office自带的识别软件,会报错:
' "在一页或多页上执行 OCR 不成功(未找到文本)"的错误,但用VB写的测试程序识别是正常的。
'OCR的主要功能
Private Function OCRImageFile(ByVal strImageFileName As String) As Boolean
Dim miDoc As Object
'初始化并加载文档
Set miDoc = CreateObject("MODI.Document") '创建对象
miDoc.Create(strImageFileName) '加载图片文件
Screen.MousePointer = vbHourglass '设置沙漏光标
'识别
Err.Clear
miDoc.Images(0).OCR 2052, True, True
Text1.Text = miDoc.Images(0).Layout.Text
OCRImageFile = True
Screen.MousePointer = vbArrow '恢复箭头光标
End Function
Private Sub cmdOCR_Click()
Dim bolP As Boolean
Dim strFileName as String
strFileName = "c:\test.tif"
bolP = OCRImageFile(strFileName)
End Sub
分享到:
相关推荐
利用Office2003自带的OCR组件进行文字识别(VB6.0代码)
用Visual Basic 6.0编写的OCR识别程序,对数字的识别率高
VB OCR文字识别程序,调用知名OCR平台api,识别正确率高达99%。程序示例用于识别验证码,可以用于其它项目的图片识别。本项目第三方转发,如有侵权,请联系,并里面删除。
根据网上VBA OneNote2013 OCR图像识别代码改编,非原创,修改部分错误用vb6win7x64下完美运行。
可以识别手写体,文字识别,车牌识别等,识别精度高,需要自己在百度ai申请免费接口后才能测试,因为需要 apiKey。
VB写的ocr程序,调用了office2003里面的组件,注意2003操作系统数据执行保护
利用微软OCR控件, 只需要不到10行代码就能够实现自已的OCR文字识别软件. 1. 添加控件,需要安装office2003, 没有安装office2003的可以从别人机子上拷贝相关文件,注册regsvr32.exe mdivwctl.dll, 控件一般在这个目录下...
VB基于OCR的手写文字识别程序源代码,代码包中包括有两款演示程序,不过目前不能支持中文,可以识别数字和字母,识别率不错,识别后分别得出匹配率和匹配的字符,来自国外的源代码。
利用Office2003自带OCR组件识别图片VB很实用的源码,精心挑选的精品源码
网络流传的神经网络OCR软件的极致精简版,原版的20%,只保留了核心运行代码,新手一看就懂,豁然大悟,原理如此简单,不过这技术在以前很先进,现在来看,还行吧,手写识别等。ps,原作者不是本资源上传者,如果侵权请...
Microsoft.office2003中的OCR组件.
添加控件,需要安装office2003, 没有安装office2003的可以从别人机子上拷贝相关文件,注册regsvr32.exe mdivwctl.dll,控件一般在这个目录下:C:\Program Files\Common Files\Microsoft Shared\MODI.0, 只需要相关的几个...
COM组件在实现VB调用MATLAB中的应用.pdf
本文为大家介绍如何用Office 2003自带OCR工具识别扫描文字。
2018-12-18 已经支持OCR和TTS,即通用图片识别、语音合成。 大家自己研究吧,开始的时候,UrlEncode最头疼,因为.NET编码是小写的。
Office 2007 MODI OCR 解决多次调用挂死问题,含参考VB代码。 VB调用MODI Office 2007版本,多次调用后,出现系统停止工作,报MSO.DLL错误。 2007 MODI 和VB存在兼容性问题,如果多次打开MODI,则会出现内存泄露导致...
VB调用示例VB调用 示例VB调用 示例
VB调用Matlab的COM组件实现二者混合编程
主要实现VB调用CVI的DLL,主要实现VB调用CVI的DLL