人民币中文大写（宏）精简版

413191246se

1. Sub 人民币中文大写()
   
2.     Dim i$, j$, k&, s&, v&
   
3.     With Selection
   
4.         If .Type = wdSelectionIP Then MsgBox "请选定数字！", 0 + 16: End
   
5.         Do While .Text Like "[!0-9.]*"
   
6.             .MoveStart 1, 1
   
7.         Loop
   
8.         Do While .Text Like "*[!0-9]"
   
9.             .MoveEnd 1, -1
   
10.         Loop
    
11.         v = Len(.Text)
    
12.         .Characters(1).Select
    
13.         Do While .Next Like "[0-9.]"
    
14.             .MoveEnd 1, 1
    
15.             s = s + 1
    
16.             If s = v - 1 Then Exit Do
    
17.         Loop
    
18.         If .Text Like "*.*" Then
    
19.             i = Format(.Text, "0.00")
    
20.             j = Right(i, 2)
    
21.             i = Left(i, Len(i) - 3)
    
22.             k = 1
    
23.         Else
    
24.             i = .Text
    
25.         End If
    
26.         .TypeText Text:="（人民币"
    
27.         .Fields.Add Range:=.Range, Text:="= " & i & " \* CHINESENUM2"
    
28.         .TypeText Text:="元"
    
29.         If k = 0 Then
    
30.             .TypeText Text:="整）"
    
31.         Else
    
32.             .Fields.Add Range:=.Range, Text:="= " & Left(j, 1) & " \* CHINESENUM2"
    
33.             .TypeText Text:="角"
    
34.             .Fields.Add Range:=.Range, Text:="= " & Right(j, 1) & " \* CHINESENUM2"
    
35.             .TypeText Text:="分）"
    
36.         End If
    
37.         .Paragraphs(1).Range.Fields.Unlink
    
38.     End With
    
39. End Sub

复制代码

wdpfox

学习一下，多谢老师慷慨分享好代码！
　　　　　　Oooo
　　　　　　(___)
　　oooO  　 )_/
　　(___) 　 (_/
　　 \_(
　　　\_)