============程序1

OptionExplicit
'
'利用微软OCR控件,只需要不到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


'OCR的主要功能
PrivateFunctionOCRImageFile(ByVal strNameAsString)AsBoolean
DimmiDocAsObject


'初始化并加载文档
SetmiDoc=CreateObject("MODI.Document")'创建对象

miDoc.Create App.Path&"\1.bmp"'加载图片文件

Screen.MousePointer=vbHourglass'设置光标忙

'识别
Err.Clear
miDoc.Images(0).OCR2052,True,True
Text1.Text=miDoc.Images(0).Layout.Text

OCRImageFile=True

End Function

PrivateSubCommand1_Click()
DimbolPAsBoolean
bolP=OCRImageFile(App.Path&"\1.bmp")
End Sub

===================== 程序2