WORD文档万元到亿元批量替换

遇到有个棘手的问题，就是把报告中的全部“XXXX万元”改为“XX亿元”，例如：

截至2017年9月末，该公司的资产总额为386,783.20万元，比上月增减（计算方法同上表中“比上季增减百分比”列。增加用正数表示，减少用负数表示，下同）22.17%，其中贷款338,161.28万元，比上季增减19.06%；存放同业45,293.10万元，比上季增减52.24%；应收利息2,660.79万元，比上季增减93.09%；其他应收款597.76万元，比上季增减2.29%。

负债总额为322,754.93万元，比上季增减25.70%，其中同业拆入308,644.98万元，比上季增减25.49%；保证金存款3,825.84万元，比上季增减-19.94%；应付利息1,428.91万元，比上季增减65.98%；其他应付款410.26万元，比上季增减-25.00%。

所有者权益64,028.27万元，比上季增减7.01%，其中未分配利润13,246.42万元，比上季增减46.38%；本年利润11,550.05万元，比去年同期增减734.90%。

改为：

截至2017年9月末，该公司的资产总额为38.68亿元，比上月增减（计算方法同上表中“比上季增减百分比”列。增加用正数表示，减少用负数表示，下同）22.17%，其中贷款33.82亿元，比上季增减19.06%；存放同业4.53亿元，比上季增减52.24%；应收利息0.27亿元，比上季增减93.09%；其他应收款0.06亿元，比上季增减2.29%。

负债总额为32.28亿元，比上季增减25.70%，其中同业拆入30.86亿元，比上季增减25.49%；保证金存款0.38亿元，比上季增减-19.94%；应付利息0.14亿元，比上季增减65.98%；其他应付款0.04亿元，比上季增减-25.00%。

所有者权益6.40亿元，比上季增减7.01%，其中未分配利润1.32亿元，比上季增减46.38%；本年利润1.16亿元，比去年同期增减734.90%。

文字替换，可以有全部替换、正则替换，但这里麻烦的地方在于，要对查到的每个数据进行计算，并四舍五入，统一两位小数。

386,783.20万元            →              38.68亿元

386,783.20万元            →              38.68亿元

338,161.28万元            →              33.82亿元

322,754.93万元            →              32.28亿元

410.26万元                →              0.04亿元

当然，这是很繁琐的。

一个批量的方法就是Word自带的脚本VBA，秒秒钟搞定。

代码：https://zhuanlan.zhihu.com/p/31055300

以上。

感觉有用就给个赞鼓励下吧