利用宏把数字金额小写“变”大写.doc

文档介绍：利用Word宏把数字金额小写“变”大写在日常的办公应用中,尤其是作为一名财务人员,经常需要输入大写金额的形式的数字,“肆仟叁佰五拾元零伍分”,如果用手工输入的话,显得比较麻烦,其实只要通过输入小写数字并通过如下两招就能达到快速输入的目的。  启动Word后按下Alt+F11组合键,在打开的工程窗口左侧双击“ThisDocument”进入代码编写窗口,在代码编辑窗口中输入如下代码:OptionExplicitSub小写金额变大写()  DimNumericAsCurrency,IntPartAsLong,DecimalPartAsByte,MyFieldAsField,LableAsString  DimJiaoAsByte,FenAsByte,OddmentAsString,OddAsString,MyChineseAsString  ConstZWDXAsString="壹贰叁肆伍陆柒捌玖零"   '定义一个中文大写汉字常量  OnErrorResumeNext   '错误忽略  WithSelection    Numeric=((.Text),2)   '四舍五入保留小数点后两位    '判断是否在表格中    (wdWithInTable):=:=wdCharacter    '对数据进行判断,是否在指定的范围内    (Numeric)>2147483647ThenMsgBox"数值超过范围!",_                                  vbOKOnly+vbExclamation,"Warning":ExitSub    IntPart=Int((Numeric))   '定义一个正整数    Odd=(IntPart=0,"","元")   '定义一个STRING变量    '插入中文大写前的标签    Lable=(Numeric=(Numeric),"人民币金额大写: ","人民币金额大写: 负")    '对小数点后面二位数进行择定    DecimalPart=((Numeric)-IntPart)*100    SelectCaseDecimalPart    CaseIs=0   '如果是0,即是选定的数据为整数        Oddment=(Odd="","",Odd&"整")    CaseIs<10   '<10,即是零头是分        Oddment=(Odd<>"","元零"&(ZWDX,DecimalPart,1)&"分",_                    (ZWDX,DecimalPart,1)&"分")    Case10,20,30,40,50,60,70,80,90   '如果是角整        Oddment="元"&(ZWDX,DecimalPart/10,1)&"角整"    CaseElse   '既有角,又有分的情况        Jiao=