前端之家收集整理的这篇文章主要介绍了
vb调用office OCR识别组件，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
============程序1@H_301_2@
Option@H_301_2@Explicit@H_301_2@
@H_301_2@'
'@H_301_2@利用微软OCR控件,只需要不到10行代码就能够实现自已的OCR文字识别软件.@H_301_2@
'@H_301_2@1. 添加控件,需要安装office2003,没有安装office2003的可以从别人机子上拷贝相关文件,注册regsvr32.exe mdivwctl.dll,@H_301_2@
'@H_301_2@控件一般在这个目录下:C:\Program Files\Common Files\Microsoft Shared\MODI.0,只需要相关的几个文件就可以了,此文件夹全部文件大概在21M左右.@H_301_2@
'@H_301_2@2.工程->部件->添加这个控件:Microsoft Office Document Imaging 11.0 Type Library@H_301_2@
@H_301_2@
@H_301_2@'@H_301_2@OCR的主要功能@H_301_2@
@H_301_2@Private@H_301_2@Function@H_301_2@OCRImageFile(ByVal strName@H_301_2@As@H_301_2@String@H_301_2@)@H_301_2@As@H_301_2@Boolean@H_301_2@
@H_301_2@Dim@H_301_2@miDoc@H_301_2@As@H_301_2@Object@H_301_2@
@H_301_2@'@H_301_2@初始化并加载文档@H_301_2@
@H_301_2@@H_301_2@Set@H_301_2@miDoc@H_301_2@=@H_301_2@CreateObject@H_301_2@(@H_301_2@"@H_301_2@MODI.Document@H_301_2@"@H_301_2@)@H_301_2@'@H_301_2@创建对象@H_301_2@
@H_301_2@
miDoc.Create App.Path@H_301_2@&@H_301_2@"@H_301_2@\1.bmp@H_301_2@"@H_301_2@@H_301_2@'@H_301_2@加载图片文件@H_301_2@
@H_301_2@
Screen.MousePointer@H_301_2@=@H_301_2@vbHourglass@H_301_2@'@H_301_2@设置光标忙@H_301_2@
@H_301_2@
@H_301_2@'@H_301_2@识别@H_301_2@
@H_301_2@Err.Clear
miDoc.Images(@H_301_2@0@H_301_2@).OCR@H_301_2@2052@H_301_2@,@H_301_2@True@H_301_2@,@H_301_2@True@H_301_2@
Text1.Text@H_301_2@=@H_301_2@miDoc.Images(@H_301_2@0@H_301_2@).Layout.Text
OCRImageFile@H_301_2@=@H_301_2@True@H_301_2@
@H_301_2@End Function@H_301_2@
@H_301_2@Private@H_301_2@Sub@H_301_2@Command1_Click()
@H_301_2@Dim@H_301_2@bolP@H_301_2@As@H_301_2@Boolean@H_301_2@
bolP@H_301_2@=@H_301_2@OCRImageFile(App.Path@H_301_2@&@H_301_2@"@H_301_2@\1.bmp@H_301_2@"@H_301_2@)
@H_301_2@End Sub@H_301_2@
===================== 程序2@H_301_2@@H_301_2@
Option@H_301_2@@H_301_2@Explicit@H_301_2@
@H_301_2@'
'@H_301_2@利用微软OCR控件,只需要不到10行代码就能够实现自已的OCR文字识别软件.@H_301_2@
'@H_301_2@1. 添加控件,@H_301_2@
'@H_301_2@控件一般在这个目录下:C:\Program Files\Common Files\Microsoft Shared\MODI.0,此文件夹全部文件大概在21M左右.@H_301_2@
'@H_301_2@2.工程->部件->添加这个控件:Microsoft Office Document Imaging 11.0 Type Library@H_301_2@
@H_301_2@
@H_301_2@'@H_301_2@OCR的主要功能@H_301_2@
@H_301_2@Private@H_301_2@@H_301_2@Function@H_301_2@@H_301_2@OCRImageFile(ByVal strName@H_301_2@@H_301_2@As@H_301_2@@H_301_2@String@H_301_2@)@H_301_2@@H_301_2@As@H_301_2@@H_301_2@Boolean@H_301_2@
@H_301_2@@H_301_2@Dim@H_301_2@@H_301_2@modiDocument@H_301_2@@H_301_2@As@H_301_2@@H_301_2@New@H_301_2@@H_301_2@MODI.Document
@H_301_2@@H_301_2@Dim@H_301_2@@H_301_2@modiImages@H_301_2@@H_301_2@As@H_301_2@@H_301_2@New@H_301_2@@H_301_2@MODI.Images
@H_301_2@@H_301_2@Dim@H_301_2@@H_301_2@modiImage@H_301_2@@H_301_2@As@H_301_2@@H_301_2@New@H_301_2@@H_301_2@MODI.Image
@H_301_2@@H_301_2@Dim@H_301_2@@H_301_2@modiLayout@H_301_2@@H_301_2@As@H_301_2@@H_301_2@New@H_301_2@@H_301_2@MODI.Layout
@H_301_2@@H_301_2@Dim@H_301_2@@H_301_2@ImageCount@H_301_2@@H_301_2@As@H_301_2@@H_301_2@Integer@H_301_2@
@H_301_2@@H_301_2@Dim@H_301_2@@H_301_2@i@H_301_2@@H_301_2@As@H_301_2@@H_301_2@Integer@H_301_2@
modiDocument.OCR miLANG_CHINESE_SIMPLIFIED,@H_301_2@@H_301_2@False@H_301_2@,@H_301_2@@H_301_2@False@H_301_2@
@H_301_2@@H_301_2@Set@H_301_2@@H_301_2@modiImage@H_301_2@@H_301_2@=@H_301_2@@H_301_2@modiDocument.Images
@H_301_2@@H_301_2@For@H_301_2@@H_301_2@i@H_301_2@@H_301_2@=@H_301_2@@H_301_2@0@H_301_2@@H_301_2@To@H_301_2@@H_301_2@ImageCount
@H_301_2@@H_301_2@Set@H_301_2@@H_301_2@modiImage@H_301_2@@H_301_2@=@H_301_2@@H_301_2@modiImages.Item(i)
@H_301_2@@H_301_2@Set@H_301_2@@H_301_2@modiLayout@H_301_2@@H_301_2@=@H_301_2@@H_301_2@modiImage.Layout
Text1.Text@H_301_2@@H_301_2@=@H_301_2@@H_301_2@modiLayout.Text
@H_301_2@@H_301_2@Next@H_301_2@@H_301_2@i
modiDocument.Close@H_301_2@@H_301_2@False@H_301_2@:@H_301_2@@H_301_2@Set@H_301_2@@H_301_2@modiDocument@H_301_2@@H_301_2@=@H_301_2@@H_301_2@Nothing@H_301_2@
@H_301_2@@H_301_2@If@H_301_2@@H_301_2@ImageCount@H_301_2@@H_301_2@>@H_301_2@@H_301_2@0@H_301_2@@H_301_2@Then@H_301_2@
OCRImageFile@H_301_2@@H_301_2@=@H_ 