没有合适的资源?快使用搜索试试~ 我知道了~
Excel VBA编写代码操控 OneNote
4星 · 超过85%的资源 需积分: 50 28 下载量 26 浏览量
2017-11-09
01:20:39
上传
评论 2
收藏 239KB DOC 举报
温馨提示
试读
28页
办公自动化控制,本人编识别网站找内容时,遇到困难,网站为Flash图片,图片中的一些按钮之类大同小异总有些变化,所以编好的代码由于这种变化经常识别不了,无意中发现,借助微软OneNote的OCR图片识别功能可做到,故整理了此文档供vb及VBA开发者参考
资源推荐
资源详情
资源评论
VBA
使用 COM API 使用 OneNote 2013/2016 的图像识别功能
最近由大量的扫描单据需要摘录,就希望能够通过 程序辅助完成这项工作。经过一番检索,
在能获取到的主要的 产品中,微软产品的识别率相对较高。但目前常用的
和 以后,Oce 就
不在支持了,网上能够下载到繁体中文的 ,但在 !"# 下无法安装。只能在
$ 的图像识别功能了。
根据网上的文章做了基于 的 ,在编写 %& 的过程中颇费了一些周折。根据错误代码
判断错误的问题点还是很有帮助的。
以下为代码部分:
$ 识别的 主要函数
'()* +,-,,.* /*
0图片的信息编码,并输出到 )+ 文本中
)+$#*%&1
)+$"*%&1%&$"
)++*%&1%&+
23 3
0创建临时的笔记本
++$*
!.$#*2 1+*456
++$71'*2++"-(24+"/89:9
81'$-1'(2$/8919
0判断函数值是否正常
1+)-,,./7+(.
'(),79;+,.;9
)
"
"!.
22$#$122+
22$. (.
'(),79;2 $;9
'(+<=5+<5<)
"
*
2 *
*)++7$, +->,,./
*)++7""$"-)++/
0创建临时的笔记本>获取
2212?.4++$>99>>*
0创建新的页面,获取 2
221$#, >2 >2+@, $(+
0获取页面的 %& 格式
2 %+()*
221', 2 >2 %+()>>)
0导入到 %& 中进行处理>将图片形式导入到 %& 中
)+1&"%&-2 %+()/7+(.
'(),79;&" %+;9
'(+<=5+<5<)
"
!.)+1 +4( $-9A, 9/1-/
122".+")++
"!.
0更新 , 内容
221B2", )+1+1)+>>)
0$ 识别图片需要时间,以下开始轮询结果, 秒C 次
*+2
$(
$(7
< , A
221', 2 >2 %+()>>)
)+1&"%&2 %+()
*)++7
)+1+1 +4( $-9A()9/1-/
)++$. (.
$(D(.
*+2
$(7$(E
'(< ,
+
'(),79;! $()2";9
"
+
'(),7)++1()
"
+<=5+<5<)A
$22$. (.
&-2 /D(.
221+?.42 >>(
"
*227$.
"
F++++$
"
其中定义了图片 3 类型:
(42 3
53()*
!".&
? .&
"(42
引用了 , 函数,轮询的时候不会导致程序无响应
,=+,**5*+2&59@+9-4+"#++"& /
XML 处理的函数
$, +-(42 >2* /
*%&1%&+
)++*%&1%&+
)+$"*%&1%&+
*
79A9
!.$#*%&1
*+(42
0文本
*)+$"71+-89(9/
)+$"1()72
0图片
23 3
237 3-2/
0创建一个图片 %& 信息
*)+$"71+-89 9/
)+$"1599>962 9
)+$"159 +, $59>
*)++71+-89,9/
)++159)9>
)++15949>
)++159G9>
)+$"122".+")++
*)++71+-89*G9/
)++159#".9>231 !".
)++159. .9>231 ? .
)+$"122".+")++
*)++71+-899/
)++1()723153()
)+$"122".+")++
"*+
"!.
*$, +7)+$"
"
""$"-+*%&1%&+/
*%&1%&+
)++*%&1%&+
)+$"*%&1%&+
*
79A9
*)+$"7+
!.$#*%&1
*)++71+-899/
)++122".+")+$"
*)+$"7)++
*)++71+-89.+"9/
)++122".+")+$"
*)+$"7)++
*)++71+-89+9/
)++122".+")+$"
*)+$"7)++
"!.
*""$"7)+$"
"
图片处理为 Base64 编码的函数
3-2+* / 3
)++*%&1%&+
!.$#*%&1
*)++71+-939/
"!.
)++1(427951539
!.$#1*
1(427"(424
12
1&"+2+
)++1"(42"+71"-/
1+
"!.
3153()7)++1()
!.56-9!1 +9/
1+"H+2+
31 ? .71? .
31 !".71!".
"!.
"
形成 模块以后,<,<(<() 函数可以直接在单元格引用,也可以在主程序中
引用
*5<,<(<()-/
=$
$
$*
(*()*
=$722+1'2+-9C162 >C162 9>>>>(/
(42-=$/7=5+(.)*5
剩余27页未读,继续阅读
资源评论
- qq3356475592018-08-24感谢分享,学习了
wwjandwyl
- 粉丝: 2
- 资源: 3
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功