word转换人民币金额大写

1、word转换人民币金额大写word转换人民币金额大写宏在word中启用Alt+F11编辑宏，在打开的工程窗口左侧双击“ThisDocument”进入代码编写窗口，在代码编辑窗口中输入如下代码：Sub小写金额变大写()DimNumericAsCurrency,IntPartAsLong,DecimalPartAsByte,MyFieldAsField,LableAsStringDimJiaoAsByte,FenAsByte,OddmentAsString,OddAsString,MyChineseAsStringConstZWDXAsString="壹贰叁肆伍陆柒捌玖零"&#

2、39;定义一个中文大写汉字常量OnErrorResumeNext'错误忽略WithSelectionNumeric=VBA.Round(VBA.Val(.Text),2)'四舍五入保留小数点后两位'判断是否在表格中！此处为向左MoveLeft移动3(count)个单元格(wdCell)If.Information(wdWithInTable)Then_.MoveLeftunit:=wdCell,Count:=3Else.MoveRightunit:=wdCharacter'对数据进行判断,是否在指定的范围内IfVBA.Abs(Numeric)>21

3、47483647ThenMsgBox"数值超过范围!",_vbOKOnly+vbExclamation,"Warning":ExitSubIntPart=Int(VBA.Abs(Numeric)'定义一个正整数Odd=VBA.IIf(IntPart=0,"","元")'定义一个STRING变量'插入中文大写前的标签Lable=VBA.IIf(Numeric=VBA.Abs(Numeric),"合计金额大写:","合计金额大写:负")'对小数点后

4、面二位数进行择定DecimalPart=(VBA.Abs(Numeric)-IntPart)*100SelectCaseDecimalPartCaseIs=0'如果是0,即是选定的数据为整数Oddment=VBA.IIf(Odd="","",Odd&"整")CaseIs<10'<10,即是零头是分Oddment=VBA.IIf(Odd<>"","元零"&VBA.Mid(ZWDX,Decimal

5、Part,1)&"分",_VBA.Mid(ZWDX,DecimalPart,1)&"分")Case10,20,30,40,50,60,70,80,90'如果是角整Oddment="元"&VBA.Mid(ZWDX,DecimalPart/10,1)&"角整"CaseElse'既有角,又有分的情况Jiao=VBA.Left(CStr(DecimalPart),1)'取得角面值Fen=VBA.Right(CStr(DecimalPar

6、t),1)'取得分面值Oddment=Odd&VBA.Mid(ZWDX,Jiao,1)&"角"'转换为角的中文大写Oddment=Oddment&VBA.Mid(ZWDX,Fen,1)&"分"'转换为分的中文大写EndSelect'指定区域插入中文大写格式的域SetMyField=.Fields.Add(Range:=.Range,Text:="="&IntPart&"*CHINESENUM2")MyField.Select'选定域(最后是用指定文本覆盖选定区域)'如果仅有角分情况下,Mychinese为""MyChinese=VBA.IIf(MyField.Result<>"零",MyField.Result,"").Text=Lable&MyChinese&OddmentEndWithEndSub输入完毕后按下Alt+Q键返回word中，以后只需要依次选中需