VB开发的调用百度OCR小程序

sqhsqhli

工程1.rar (133.11 KB, 下载次数: 304)

2020-11-3 11:20 上传

点击文件名下载附件
EXE工程

学习http://club.excelhome.net/thread-1394680-1-1.html  一文，  改进有关代码，用VB写就以下程序：
1、增加光标选取，双击生成图片，然后交百度云OCR识别。
2、支持在文件夹中多选图片文件批量OCR识别。
3、识别后的文本可复制做他用。
4、完成该程序word的动态链接库，注册下，宏直接调用，识别结果直接粘贴到当前文档中。调用代码是：Sub myocr()  
On Error Resume Next
   Set AppDll = CreateObject("bdocr.myocr")
AppDll.myocr
Set AppDll = Nothing
End Sub

由于百度文本识别免费版本有每日50000次的限制，我的API key和secret key 就不公开了，使用程序前还需要到百度云申请一下，请参考相关链接https://www.lxbkw.com/22.html，这个是获取语音识别的，我们选择文本识别的就好。

sqhsqhli

识别的速度正确率都很好

sqhsqhli

刚刚更新了一下批量OCR

wdpfox

能学习一下源码吗？

We meet by chance like patches of drifting duckweed,  
May everything be fine with you everyday !
  （你我萍水相逢，愿君一切安好！）

sqhsqhli

用尽量少的鼠标操作取得OCR结果，批量识别三张到Word

ming0018

好贴，有空研究一下。

wdpfox

没有设置成功，弱小白，没办法。

sqhsqhli

两个参数的申请：登录   https://cloud.baidu.com/campaign ... ?track=cp:npinzhuan|pf:pc|pp:npinzhuan-biaoti|pu:wenzineirong|ci:2020ssy|kw:10033514
可见“免费注册”，（如果已经有百度账号就直接登录），登录后 依次 进入   产品服务  人工智能  文字识别  ，再创建新应用，自己随便取个名字，选择文字识别。。。，完成后会分配两个参数给你。

wdpfox

我用pandaocr 也很方便，还带翻译，朗读可选

ericye_cn

感谢楼主提供的优秀分享，同时期待源码分享