.OCR miLANG_CHINESE_SIMPLIFIED运行没有成功.

ning84

1. Sub ll()
   
2.     Dim ModiDocument As MODI.Document
   
3.     Dim ModiImages As New MODI.Images
   
4.     Dim ModiImage As New MODI.Image
   
5.     Dim ModiLayout As New MODI.Layout
   
6.     Dim ImageCount As Integer
   
7.       Set ModiDocument = New MODI.Document
   
8.       Debug.Print ModiDocument.Images.Item(1)
   
9.       Stop
   
10. <font size="3" color="#ff0000">      ModiDocument.OCR miLANG_CHINESE_SIMPLIFIED, False, False</font>
    
11.       
    
12.       
    
13. End Sub
    

复制代码

想使用微软的OCR,没有成功.

1. 
   
2. 
   
3. ''===================== 程序2
   
4. 
   
5. 'Option Explicit
   
6. '
   
7. '利用微软OCR控件, 只需要不到10行代码就能够实现自已的OCR文字识别软件.
   
8. '1. 添加控件,需要安装office2003, 没有安装office2003的可以从别人机子上拷贝相关文件,注册regsvr32.exe mdivwctl.dll,
   
9. '控件一般在这个目录下:C:\Program Files\Common Files\Microsoft Shared\MODI.0, 只需要相关的几个文件就可以了, 此文件夹全部文件大概在21M左右.
   
10. '2.工程->部件->添加这个控件:Microsoft Office Document Imaging 11.0 Type Library
    
11. 
    
12. 
    
13. 'OCR的主要功能
    
14. Private Function OCRImageFile(ByVal strName As String) As Boolean
    
15.     Dim ModiDocument As New MODI.Document
    
16.     Dim ModiImages As New MODI.Images
    
17.     Dim ModiImage As New MODI.Image
    
18.     Dim ModiLayout As New MODI.Layout
    
19.     Dim ImageCount As Integer
    
20.    
    
21.     Dim i As Integer
    
22.     Dim Mm As New MODI.Document
    
23.     Mm.OCR miLANG_CHINESE_SIMPLIFIED, False, False
    
24.     Stop
    
25.     ModiDocument.OCR miLANG_CHINESE_SIMPLIFIED, False, False
    
26.   
    
27.     Set ModiImage = ModiDocument.Images
    
28.    
    
29.    
    
30.     For i = 0 To ImageCount
    
31.         Set ModiImage = ModiImages.Item(i)
    
32.         Set ModiLayout = ModiImage.Layout
    
33.         Text1.Text = ModiLayout.Text
    
34.     Next i
    
35.    
    
36.     ModiDocument.Close False: Set ModiDocument = Nothing
    
37.    
    
38.     If ImageCount > 0 Then
    
39.         OCRImageFile = True
    
40.     Else
    
41.         OCRImageFile = False
    
42.     End If
    
43. End Function
    
44. 
    
45. Private Sub tmpCommand1_Click()
    
46.     Dim bolP As Boolean
    
47.    
    
48.    
    
49.     bolP = OCRImageFile("F:\1.bmp")
    
50.     bolP = OCRImageFile("F:\6.jpg")
    
51. End Sub

复制代码

ning84

Office 2010没有成功MicroSoft OneNote 14程序不能通过
下面的回帖，用Office2019成功了 Mircosoft OneNote15.0能够成功。




图像文字识别-Excel VBA程序开发-ExcelHome技术论坛 -  https://club.excelhome.net/forum.php?mod=viewthread&tid=1505045&pid=11282630&page=3&_dsign=5b9b4cda&extra=#pid11282630