用VB调用Office OCR组件实现图文识别
原文：Office OCR 图文识别 Microsoft Office Document ImagingOption Explicit'利用MS Office 的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 FunctionPrivate Sub cmdOCR_Click()& & Dim bolP As Boolean& & Dim strFileName as String& & strFileName = "c:\test.tif"& & bolP = OCRImageFile(strFileName)End Sub
阅读(...) 评论()您的位置：> -&
-& >下载 档案号：#73529
软件授权：
软件大小：
软件语言：
软件评级：
官方主页：
更新时间：
应用平台：
复制到论坛
复制到博客
绿盟口号! 伸出你的手 - 绿色分享:
官方评级：3/267332
同类软件推荐
本类下载排行君，已阅读到文档的结尾了呢~~
广告剩余8秒
文档加载中
ocr识别文本 使用ocr识别文本 office2010 ocr office ocr office2013 ocr office lens ocr office 2007 ocr office ocr组件下载
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
巧用Office OCR文本识别功能
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口}