Word中数字金额小写转大写.doc

.
Word中数字金额小写“变”大写
在日常的办公应用中，尤其是作为一名财务人员，经常需要输入大写金额的形式的数字，“肆仟叁佰五拾元零伍分”，如果用手工输入的话，显得比较麻烦，其实只要通过输入小写数字并通过编写一个简单的宏就能达到快速输入的目的！
启动Word后按下A lt+F11组合键，在打开的工程窗口左侧双击“ThisDocument”进入代码编写窗口，在代码编辑窗口中输入如下代码：
Option Explicit
Sub 小写金额变大写()
     Dim Numeric As Currency, IntPart As Long, DecimalPart As Byte, MyField As Field, Lable As String
     Dim Jiao As Byte, Fen As Byte, Oddment As String, Odd As String, MyChinese As String
     Const ZWDX As String = "壹贰叁肆伍陆柒捌玖零"      '定义一个中文大写汉字常量
     On Error Resume Next      '错误忽略
     With Selection
       Numeric = VBA.Round(VBA.Val(.Text), 2)      '四舍五入保留小数点后两位
       '判断是否在表格中
       If .Information(wdWithInTable) Then _
.MoveRight unit:=wdCell Else .MoveRight unit:=wdCharacter
       '对数据进行判断,是否在指定的范围内
       If VBA.Abs(Numeric) > 2147483647 Then MsgBox "数值超过范围!", _
                                     vbOKOnly + vbExclamation, "Warning": Exit Sub
       IntPart = Int(VBA.Abs(Numeric))      '定义一个正整数
       Odd = VBA.IIf(IntPart = 0, "", "圆")      '定义一个STRING变量
       '插入中文大写前的标签
       Lable = VBA.IIf(Numeric = VBA.Abs(Numeric), "人民币金额大写:　", "人民币金额大写:　负")
       '对小数点后面二位数进行择定
       DecimalPart = (VBA.Abs(Numeric) - IntPart) * 100
       Select Case DecimalPart
       Case Is = 0      '如果是0,即是选定的数据为整数
           Oddment = VBA.IIf(Odd = "", "", Odd & "整")
       Case Is < 10      '<10,即是零头是分
           Oddment = VBA.IIf(Odd <> "", "圆零" & VBA.Mid(ZWDX, DecimalPart, 1) & "分" _
                       VBA.Mid(ZWDX, DecimalPart, 1) & "分")
       Case 10, 20, 30, 40, 50, 60, 70, 80, 90      '如果是角整
           Oddment = "圆" & VBA.Mid(ZWDX, DecimalPart / 10, 1) & "角整"
       Case Else      '既有角,又有分的情况
           Jiao = VBA.Left(CStr(DecimalPart), 1)      '取得角面值
           Fen = VBA.Right(CStr(DecimalPart), 1)      '取得分面值
           Oddment = Odd & VBA.Mid(ZWDX, Jiao, 1) & "角"      '转换为角的中文大写
           Oddment = Oddment & VBA.Mid(ZWDX, Fen, 1) & "分"      '转换为分的中文大写
       End Select
       '指定区域插入中文大写格式的域
       Set MyField = .Fields.Add(Range:=.Range, Text:"= " & IntPart & " \*CHINESENUM2")
       MyField.Select      '选定域(最后是用指定文本覆盖选定区域)
       '如果仅有角分情况下,Mychinese为""
       MyChinese = VBA.IIf(MyField.Result <> "零", MyField.Result, "")
       .Text = Lable & MyChinese & Oddment
     End With
End Sub
输入完毕后按下Alt+Q键返回word中，以后只需要依次选中需要转换的小写金额后，按下Alt+F8打开宏对话框，选择“小写金额变大写”宏（图2），并单击“运行”即可快速地得出大写金额。运行该宏可以在选定的文本数据后面插入此金额大写，如果选定范围在表格中，则在右侧单元格中插入金额大写。
可以根据自己的要求，对输出的格式进行调整。
3 / 3