通过VBA宏批量替换word中的中文化学元素名称（附VBA代码）
发布时间：2019.07.19 辽宁省查看：2803 评论：16
本帖最后由 fenrir 于 2019-7-19 21:44 编辑
使用环境WORD2007，后续OFFICE版本VBA代码会有些许差异，自行修改即可。
使用方法，在word中按ctrl+F11进入宏编辑界面，新建模块，将下述代码复制粘贴即可。
目前功能还比较简陋，智能识别无机化学的基本元素符号，虽然无法识别酸根，但可识别简单的化合物及其下角标。
例如:
三氧化二铁，可替换为Fe2O3（帖子中不会弄下角标）
二氧化硫可替换为SO2
注：
1. 后续会更新到VB.NET上，并增加常用酸根及常用有机化合物的识别。
2. 直接运行宏处理速度较慢，执行代码前建议先存盘，避免丢失重要数据，或被错误替换。
3. 处理量建议限制在5000字以内，运行时间30s~60s，耐心等待就好。
处理时间有点长，不做GIF了，直接给处理效果图：
使用环境WORD2007，后续OFFICE版本VBA代码会有些许差异，自行修改即可。
使用方法，在word中按ctrl+F11进入宏编辑界面，新建模块，将下述代码复制粘贴即可。
目前功能还比较简陋，智能识别无机化学的基本元素符号，虽然无法识别酸根，但可识别简单的化合物及其下角标。
例如:
三氧化二铁，可替换为Fe2O3（帖子中不会弄下角标）
二氧化硫可替换为SO2
注：
1. 后续会更新到VB.NET上，并增加常用酸根及常用有机化合物的识别。
2. 直接运行宏处理速度较慢，执行代码前建议先存盘，避免丢失重要数据，或被错误替换。
3. 处理量建议限制在5000字以内，运行时间30s~60s，耐心等待就好。
处理时间有点长，不做GIF了，直接给处理效果图：
评论列表
快速回复
阿尔法度
[7]思博铁粉
[辽宁省]
主题：152 回帖：1114 积分：6004
TA最近发帖
热帖推荐
蒙蒙亮认为
2019/07/19 17:26 [来自辽宁省]
0 举报fenrir
= = 笔误，更正了，代码没问题哈
2019/07/19 17:32 [来自辽宁省]
0 举报三叶纸
2019/07/29 11:12 [来自广东省]
0 举报T155xxxx3300Fg
2019/11/11 16:05 [来自河南省]
0 举报sunmoon1
2019/11/14 10:28 [来自广东省]
0 举报13******695
2020/01/19 19:58 [来自广东省]
0 举报