将阿拉伯数字转换为人民币大、小写金额？

413191246se · 发表于 2016-7-24 12:58

139：你举例子“20.18元”在我这儿OK，你下载的是我的2016元旦版本Word2003通用模板吗？请重新试试。
***另外：建议选定单个数字后再应用宏（否则，全篇所有数字元全部转换为大写了！）。

13907933959 · 发表于 2016-7-24 14:41

本帖最后由 13907933959 于 2016-7-24 18:53 编辑

413191246se 发表于 2016-7-24 12:58
139：你举例子“20.18元”在我这儿OK，你下载的是我的2016元旦版本Word2003通用模板吗？请重新试试。
*** ...

作废…。

13907933959 · 发表于 2016-7-24 16:13

本帖最后由 13907933959 于 2016-7-26 07:00 编辑

413191246se 发表于 2016-7-24 12:58
139：你举例子“20.18元”在我这儿OK，你下载的是我的2016元旦版本Word2003通用模板吗？请重新试试。
*** ...

师傅好！
是您的2016-1-1 元旦版里面的“人民币中文大写”3in1宏。以测试多遍了。

其它2项我以搞好。

还剩2个问题：如不启用“保留小数点”选项框：

1、如碰到：671000.10元；类似这种金额的，经该宏处理后会变成【人民币陆拾柒万壹仟元壹角】￥671000.1元；就是1到元之间也会少一个“0”。

2、如碰到：879045.00元；类似这种金额的，经该宏处理后会变成【人民币：捌拾柒万玖仟零肆拾伍元整】￥879045元；就是元前面的小数点和二个00会不见了。

如启用选项框“保留小数点后2位”：

第1个问题会没有了。第2个问题会依然存在。

这个我的水平不够，要师傅出马才可解决，还望师傅有时间修改一下。

师傅、我就是要全篇所有后面带元的数字全部转换为大写或小写，因我是把诊所多年的帐簿整理成文档。

另处、我6楼有附件，师傅可运行查看。

13907933959 · 发表于 2016-7-24 16:20

本帖最后由 13907933959 于 2016-8-3 17:07 编辑

413191246se 发表于 2016-7-24 12:58
139：你举例子“20.18元”在我这儿OK，你下载的是我的2016元旦版本Word2003通用模板吗？请重新试试。
*** ...

师傅好！

另外、师傅模板里的这个代码不知什么原因，运行不了。运行后，弹出提示框，“编译错误，子过程或函数未定义”。再查看代码窗口，该句 TitleExtend 代码为选中状态。

Sub 短标题()

Dim i As Paragraph

For Each i In ActiveDocument.Paragraphs

If Not (i.Range Like "*[。：；，、！？”…—.:;,!?]" & vbCr) Then

With i.Range

.Style =ActiveDocument.Styles(wdStyleSubtitle)

.Font.Name = "黑体"

.Font.Name = "Times NewRoman"

With .ParagraphFormat

.LineUnitBefore = 2

.LineUnitAfter = 1.5

.AutoAdjustRightIndent =False

.DisableLineHeightGrid =True

End With

.Select

TitleExtend

End With

End If

13907933959 · 发表于 2016-8-29 17:38

413191246se 发表于 2016-7-24 12:58
139：你举例子“20.18元”在我这儿OK，你下载的是我的2016元旦版本Word2003通用模板吗？请重新试试。
*** ...

师傅好！
是您的2016-1-1 元旦版里面的“人民币中文大写”3in1宏。以测试多遍了。

其它2项我以搞好。

还剩2个问题：如不启用“保留小数点”选项框：

1、如碰到：671000.10元；类似这种金额的，经该宏处理后会变成【人民币陆拾柒万壹仟元壹角】￥671000.1元；就是1到元之间也会少一个“0”。

2、如碰到：879045.00元；类似这种金额的，经该宏处理后会变成【人民币：捌拾柒万玖仟零肆拾伍元整】￥879045元；就是元前面的小数点和二个00会不见了。

如启用选项框“保留小数点后2位”：

第1个问题会没有了。第2个问题会依然存在。

这个我的水平不够，要师傅出马才可解决，还望师傅有时间修改一下。

师傅、我就是要全篇所有后面带元的数字全部转换为大写或小写，因我是把诊所多年的帐簿整理成文档。

另处、我6楼有附件，师傅可运行查看。

413191246se · 发表于 2016-8-30 13:03

139：所言不虚！修改了一下，我认为可以了，你试试吧！
请注意：
1、在WORD中，按ALT+F8打开宏列表，找到《人民币中文大写_千分位_3in1》宏，删除之！
2、按ALT+F11打开VBE编辑环境，再按CTRL+END将光标移到最后，复制粘贴新1.1版本代码到VBE中。
3、在运行本宏过程中，不要动鼠标和键盘，要耐心等待，直至任务完成；如有问题，可以按CTRL+PauseBreak键中止宏。
4、在运行本宏前，请备份要处理数字的文档（除复制一份外，最好打包为RAR，以免有失！切记！（处理后，最好是和原备份文本相对照，因为数字涉及到金钱，错误处理会耽误大事！）
5、类似53.4527元这样的数字，自动保留两位小数来处理。
6、处理后，如果想删除下划线（重波浪线），只须：全选——点击两下下划线按钮；如果不想要蓝色，全选——自动色即可；另外所有处理的数字都变为英文字体，且加重了！（如果不想要这些效果，可以在代码中，找到'格式处理这一小段代码，屏蔽之即可。

413191246se · 发表于 2016-8-30 13:07

《人民币中文大写_千分位_3in1》最新版本 v1.1 代码：

Macro 人民币中文大写_千分位_3in1 正式版 v1.1.rar (2.21 KB, 下载次数: 19)

13907933959 · 发表于 2016-8-30 16:17

413191246se 发表于 2016-8-30 13:07
《人民币中文大写_千分位_3in1》最新版本 v1.1 代码：

师傅好！

下午测试了：

1、如碰到：671000.10元；经该宏处理后会变成【人民币陆拾柒万壹仟元壹角】

应为：【人民币陆拾柒万壹仟元零壹角】

2、如碰到：231000.11元；经该宏处理后会变成【人民币貮拾叁万壹仟元壹角壹分】

应为：【人民币貮拾叁万壹仟元零壹角壹分】

3、如碰到：20.09元。经该宏处理后会变成【人民币贰拾元玖分】

应为：【贰拾元零玖分】

附件中标红的5处，壹仟元到壹角之间缺少一个“零”，元到×分之间缺少一个“零”

……

还请师傅再优化一下，另处、再请师傅给一个转中文小写的宏，谢谢！

413191246se · 发表于 2016-8-30 20:46

本帖最后由 413191246se 于 2016-8-31 07:53 编辑

139：按照《正确填写票据和结算凭证的基本规定》的规定，你我的写法都是对的，但你非要“零”，所以按照你的要求重新处理了，下面是最新1.21版本代码（删除旧版本）：

Macro 人民币中文大写_千分位_3in1_v1.21.rar (2.49 KB, 下载次数: 13)

13907933959 · 发表于 2016-8-31 09:10

413191246se 发表于 2016-8-30 20:46
139：按照《正确填写票据和结算凭证的基本规定》的规定，你我的写法都是对的，但你非要“零”，所以按照你 ...

师傅好！
刚刚测试了，全部OK！积累了几个月的难题，师傅一到就化解了，不服都不成啊！！！师傅辛苦了！！！徒弟拜谢师傅！！！

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