千分位（宏）2019-6-4

413191246se

1. Sub 千分位()
   
2.     With ActiveDocument.Content.Find
   
3.         .ClearFormatting
   
4.         .Text = "[0-9. 　^s^t,，]{1,}元"
   
5.         .Forward = True
   
6.         .MatchWildcards = True
   
7.         Do While .Execute
   
8.             With .Parent
   
9.                 If .Text Like "*.*.*" Then .Font.Color = wdColorRed: GoTo sk
   
10.                 .MoveEnd 1, -1
    
11.                 .Text = Replace(.Text, " ", "")
    
12.                 .Text = Replace(.Text, "　", "")
    
13.                 .Text = Replace(.Text, vbTab, "")
    
14.                 .Text = Replace(.Text, ChrW(160), "")
    
15.                 .Text = Replace(.Text, ",", "")
    
16.                 .Text = Replace(.Text, "，", "")
    
17.                 .Text = Format(.Text, "Standard")
    
18.                 .Start = .End
    
19.             End With
    
20. sk:
    
21.         Loop
    
22.     End With
    
23. End Sub

复制代码