[原创]WORD中的人民币大写

hlrong

应chengxiang要求，第三次修订，请检验：

Sub 人民币大写()
    Dim seltxt As String
    Dim zx As Double, xx As Double
    Dim selcase As String
    
    seltxt = Selection.Text
    If Val(seltxt) < 0 Then
        selcase = "红书"
    Else
        selcase = ""
    End If
    zx = Int(Abs(Val(seltxt)))
    xx = Int((Round(Abs(Val(seltxt)), 2) - zx) * 100)
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    If zx <> 0 Then
        gxs = "= " + Str(zx) + " \* CHINESENUM2"
        Set ym = Selection.Fields.Add(Range:=Selection.Range, Text:=gxs)
        selcase = selcase + ym.Result + "元"
        Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        Selection.TypeBackspace
        Selection.Delete
    End If
    gxs = "= " + Str(xx) + " \* CHINESENUM2"
    Set ym = Selection.Fields.Add(Range:=Selection.Range, Text:=gxs)
    xxcase = ym.Result
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.TypeBackspace
    Selection.Delete
   Select Case xx
        Case 0
        selcase = selcase + "整"
        Case 1 To 9
        selcase = selcase + "零" + xxcase + "分"
        Case 10 To 99
        If (xx Mod 10) = 0 Then
            selcase = selcase + Left(xxcase, 1) + "角整"
        Else
            selcase = selcase + Left(xxcase, 1) + "角" + Right(xxcase, 1) + "分"
        End If
    End Select
    Selection.Text = selcase
End Sub

[此贴子已经被konggs于2007-6-11 23:38:15编辑过]

hlrong

to skq:

其实说通了也很简单，主要是用了WORD域功能，你试试在WORD中执行如下操作就明白了：

选择菜单中“插入”－“数字”，在出现的对话框中“数字”中输入小写数字，在“数字类型”中选“壹、贰、叁...”系列，点击“确定”即可。

tudi6709

老兄：我在用的时候有点问题，

88.13元；它总是大写为捌拾捌元壹角贰分，还有88.16；它总大写为捌拾捌元壹角伍分。不知还有那里有错？？？？有待改进。

建议：金额前面加一个“大写人民币：壹拾贰万叁仟肆佰伍拾陆元整”还有不再有小写金额了!!!!!!

cxffxc

基本满足要求，谢谢楼主

hlrong

第四次修订，欢迎测试：

LfPFsLxz.rar (7.63 KB, 下载次数: 199)

2004-4-13 12:47 上传

点击文件名下载附件
[原创]WORD中的人民币大写

chengxiang

非常感谢hlrong的助人为乐的精神!!!

hlrong

共同学习，共同进步！

tudi6709

调试有问题？中断调试？不知是怎么的，我用的是EXCEL2003。是我需要的但是不是很好用？？？

zx = Int(Abs(Val(seltxt)))

[此贴子已经被作者于2004-4-13 19:26:38编辑过]

hlrong

以下是引用tudi6709在2004-4-13 19:04:00的发言：

调试有问题？中断调试？不知是怎么的，我用的是EXCEL2003。是我需要的但是不是很好用？？？

zx = Int(Abs(Val(seltxt)))

老兄，有没有搞错？

我想我们在进入“浴室”之前，通常是不是该看看门口的“标识”？！

luzhou-zl

看了半天，没有看懂！

楼主能够详细一点吗？就像教初学者一样！

在每一个版都不敢回帖，

真正的菜鸟！！！