word轉(zhuǎn)換人民幣金額大寫

1、word轉(zhuǎn)換人民幣金額大寫word轉(zhuǎn)換人民幣金額大寫宏在word中啟用Alt+F11編輯宏，在打開(kāi)的工程窗口左側(cè)雙擊“ThisDocument”進(jìn)入代碼編寫窗口，在代碼編輯窗口中輸入如下代碼：Sub小寫金額變大寫()DimNumericAsCurrency,IntPartAsLong,DecimalPartAsByte,MyFieldAsField,LableAsStringDimJiaoAsByte,FenAsByte,OddmentAsString,OddAsString,MyChineseAsStringConstZWDXAsString="壹貳叁肆伍陸柒捌玖零"&#

2、39;定義一個(gè)中文大寫漢字常量OnErrorResumeNext'錯(cuò)誤忽略WithSelectionNumeric=VBA.Round(VBA.Val(.Text),2)'四舍五入保留小數(shù)點(diǎn)后兩位'判斷是否在表格中！此處為向左MoveLeft移動(dòng)3(count)個(gè)單元格(wdCell)If.Information(wdWithInTable)Then_.MoveLeftunit:=wdCell,Count:=3Else.MoveRightunit:=wdCharacter'對(duì)數(shù)據(jù)進(jìn)行判斷,是否在指定的范圍內(nèi)IfVBA.Abs(Numeric)>21

3、47483647ThenMsgBox"數(shù)值超過(guò)范圍!",_vbOKOnly+vbExclamation,"Warning":ExitSubIntPart=Int(VBA.Abs(Numeric)'定義一個(gè)正整數(shù)Odd=VBA.IIf(IntPart=0,"","元")'定義一個(gè)STRING變量'插入中文大寫前的標(biāo)簽Lable=VBA.IIf(Numeric=VBA.Abs(Numeric),"合計(jì)金額大寫:","合計(jì)金額大寫:負(fù)")'對(duì)小數(shù)點(diǎn)后

4、面二位數(shù)進(jìn)行擇定DecimalPart=(VBA.Abs(Numeric)-IntPart)*100SelectCaseDecimalPartCaseIs=0'如果是0,即是選定的數(shù)據(jù)為整數(shù)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)&"角"'轉(zhuǎn)換為角的中文大寫Oddment=Oddment&VBA.Mid(ZWDX,Fen,1)&"分"'轉(zhuǎn)換為分的中文大寫EndSelect'指定區(qū)域插入中文大寫格式的域SetMyField=.Fields.Add(Range:=.Range,Text:="="&IntPart&"*CHINESENUM2")MyField.Select'選定域(最后是用指定文本覆蓋選定區(qū)域)'如果僅有角分情況下,Mychinese為""MyChinese=VBA.IIf(MyField.Result<>"零",MyField.Result,"").Text=Lable&MyChinese&OddmentEndWithEndSub輸入完畢后按下Alt+Q鍵返回word中，以后只需要依次選中需