如何全选带千分符和小数点的数字

Miss_Ne

各位大神们，

在word中全选数字是用这个^#，但如果数字中带千分位和小数点，如：112,345.12这种数字，想要一起全选（带小数点和千分位）可不可以办到？

413191246se

选中想干什么？

Miss_Ne

413191246se 发表于 2017-1-9 20:01
选中想干什么？

标黄，或者删除

413191246se

楼主，查找和替换我也不太会，下面图片能解决一部分你的问题；如果你会用宏，我可以编个宏给你，删除这样的数字不是难事。

413191246se

好了，不管楼主会不会用宏，我都给你一个代码了！

1. Sub 删除数字_千分位和小数点()
   
2.     Dim i As Long
   
3.     If MsgBox("是否设置数字为红色？（否则，删除数字）", vbYesNo + vbExclamation) = vbYes Then i = 1 Else i = 0
   
4.     Selection.HomeKey unit:=wdStory
   
5.     Selection.Find.ClearFormatting
   
6.     Do While Selection.Find.Execute(FindText:="^#", Forward:=True, MatchWildcards:=False)
   
7.         Do While Selection.Characters.Last Like "[0-9０-９.,]"
   
8.             Selection.MoveEnd unit:=wdCharacter, Count:=1
   
9.         Loop
   
10.         Selection.MoveEnd unit:=wdCharacter, Count:=-1
    
11.         If i = 1 Then
    
12.             Selection.Font.Color = wdColorRed '红色
    
13.             Selection.Font.Bold = True '加粗
    
14.             Selection.Font.Underline = wdUnderlineWavyHeavy '重波浪线
    
15.             Selection.MoveRight unit:=wdCharacter, Count:=1
    
16.         Else
    
17.             Selection.Delete '删除
    
18.         End If
    
19.     Loop
    
20. End Sub

复制代码

Miss_Ne

413191246se 发表于 2017-1-13 00:32
好了，不管楼主会不会用宏，我都给你一个代码了！

膜拜大神！！！
虽然看不懂.....不明觉厉啊

手动比心~~

先容我百度一下怎么用宏，试验一下。