FindRange 宏——重大修正！

413191246se

* 受 sylun 老师 的启发，我也将“全文查找+区域查找”合并为一体，用 IIF 函数选定区域（其实选定某个区域和选定整个区域都是区域，都是 Range）。代码变得简洁了，并且能一举两得（不选则全选）。
* 昨晚在给坛友“晨晓之黎”测试代码时发现，原来认为没有问题的《FindRange》宏出错了！或只找到一个结果，或突破选定区域，变为全选了。认真查找原因，反复试验发现，我没学好 sylun 老师 的 代码的精髓，把区域的 .Start 和 .End 弄错了，正确代码应该是区域 r.End>Selection.End 时退出循环。现已修正，对于给大家带来的损失/不便，深表歉意！并请已经下载代码的朋友们重新下载最新代码，但请先删除旧的两个宏。
* 请删除宏：《FindRange_FullVersion》
* 请删除宏：《FindRange_LiteVersion》
* 请试用最新修正的《FindRange》宏：（第14行原："If .Start >" 现修正为："If .End >"）

1. Sub FindRange()
   
2. '区域查找/未选定区域则全文查找/光标不动/不激活对象/速度极快！
   
3. '2021/1/30/TEST-OK
   
4.     Dim r As Range
   
5.     Set r = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
   
6.     With r.Find
   
7.         .ClearFormatting
   
8.         .Text = "[0-9.,， 　^s^t]{1,}元"
   
9.         .Forward = True
   
10.         .MatchWildcards = True
    
11.         Do While .Execute
    
12.             With .Parent
    
13.                 If Not Selection.Type = wdSelectionIP Then
    
14.                     If .End > Selection.End Then Exit Do
    
15.                 End If
    
16.                 .Font.ColorIndex = wdRed
    
17.                 .Start = .End
    
18.             End With
    
19.         Loop
    
20.     End With
    
21. End Sub

复制代码

A1233515

感谢分享，学习

shesunone

学习了

413191246se

up,up,up...

shenjianrong163

413191246se 发表于 2021-1-30 17:22
up,up,up...

谢谢分享，请解释下.Text = "[0-9.,， 　^s^t]{1,}元"

413191246se

楼上朋友，你好！——如果搜索文本是“工作”实在太简单，所以，来个困难些的，就搜索人民币元（数字+元）了！中括号里面有数字，有半角句号、逗号，有全角逗号，有常见的四种空格：半角空格、全角空格（这两种空格看不见）、不间断空格(^s)、制表符(^t)，“{1,}”意思是中括号里面的至少找到一个，多了一起选定（其实数字中还有一种全角的数字，它属于汉字，不属于英文，但一般可以用另一个宏转换它为半角，所以，一般不用考虑全角数字）。

wdpfox

匹配如：2.32元，100 元，9,555元等

shenjianrong163

413191246se 发表于 2021-1-31 01:34
楼上朋友，你好！——如果搜索文本是“工作”实在太简单，所以，来个困难些的，就搜索人民币元（数字+元） ...

谢谢耐心解答！

天地惠

老师您好！
请问下面的代码中，ActiveDocument.Content,、Selection.Range何区别？
Set r = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
另外，Selection.Type = wdSelectionIP含义又是什么？
请老师对该语句的完整思考讲解一下

413191246se

* 楼上新朋友，你好！
* “ActiveDocument.Content”意思是“全文”，“Selection.Range”意思是“选定区域”（简称“选区”），两者是不一样的。
* “Selection.Type = wdSelectionIP”语句中“wdSelectionIP”中的“IP”，意思是“插入点”（英文“Insert Point”)，而插入点是仅仅是个光标所在点，并没有选定任何内容。所以，整个IIF函数语句的意思就是，“如果未选定任何内容（就是“如果仅仅是个插入点的话”），则设置 r 区域为全文（即“ActiveDocument.Content”）；否则，如果选定了某个区域，则设置 r 区域为选定区域（即“ Selection.Range”）”。——简单地说，就是“不选则全选”（如果用户不选定任何内容，则自动选定全文；否则，如果用户选定了某个区域，则自动选定该区域）。