用VBA实现word中 一键将大小写数字加下划线

luckywhk

多谢  文档中有多个大写数字及小写数字 如何将大小写数字加下划线 谢谢
656.27  肆佰贰拾柒圆整
变成

656.27  肆佰贰拾柒圆整

413191246se

1. Sub test()
   
2. '全选、两端对齐、居中（这个步骤是为了删除段落首尾空格，不一定是必要的）
   
3.     Selection.WholeStory
   
4.     CommandBars.FindControl(ID:=122).Execute
   
5.     CommandBars.FindControl(ID:=123).Execute
   
6. 
   
7. '查找特征字符并添加下划线
   
8.     With Selection
   
9.         .HomeKey unit:=wdStory
   
10.         .Find.ClearFormatting
    
11.         Do While .Find.Execute("[0-9.０-９壹贰叁肆伍陆柒捌玖零万仟佰拾亿元角分整圆]@", , , 1, , , 1)
    
12.             Do
    
13.                 .MoveEnd unit:=wdCharacter, Count:=1
    
14.                 If Selection Like "*[!0-9.０-９壹贰叁肆伍陆柒捌玖零万仟佰拾亿元角分整圆]" Then
    
15.                     .MoveEnd unit:=wdCharacter, Count:=-1
    
16.                     Exit Do
    
17.                 End If
    
18.             Loop
    
19.             If Len(Selection) <> 1 Then .Font.Underline = wdUnderlineSingle '此行语句的 1，认为金额字长不能为 1；如果认为金额字长最小为 3，则可改为 3
    
20.             .Collapse 0
    
21.         Loop
    
22.     End With
    
23. End Sub

复制代码

luckywhk

413191246se 发表于 2018-3-16 09:36

万分感谢 已经在用了