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中，以后只需要依次選中需