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

sqhsqhli · 发表于 2020-10-31 22:20

本帖最后由 sqhsqhli 于 2020-11-3 11:20 编辑

工程1.rar (133.11 KB, 下载次数: 320) 学习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 · 发表于 2020-10-31 22:26

识别的速度正确率都很好

sqhsqhli · 发表于 2020-10-31 23:23

刚刚更新了一下批量OCR

wdpfox · 发表于 2020-11-2 15:28

能学习一下源码吗？

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

sqhsqhli · 发表于 2020-11-3 11:13

本帖最后由 sqhsqhli 于 2020-11-3 12:16 编辑

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

ming0018 · 发表于 2020-11-3 17:44

好贴，有空研究一下。

wdpfox · 发表于 2020-11-4 14:45

本帖最后由 wdpfox 于 2020-11-4 16:07 编辑

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

sqhsqhli · 发表于 2020-11-6 16:38

wdpfox · 发表于 2020-11-7 15:38

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

ericye_cn · 发表于 2023-6-10 07:43

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

		自动登录	找回密码
密码			免费注册

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

评分

dll OCR 识别结果直接粘贴到Word

评分