求问VBA怎么只对鼠标选定区域的特定文字进行选定

gracefully7

比如我想选中文档里所有的“函数”这两个文字，通过在论坛搜索大佬的VBA代码改写如下：
With ActiveDocument.Content
      With .Find
         .Text = "函数"
         .MatchWildcards = True
         Do While .Execute
            n = n + 1
            .Parent.Editors.Add wdEditorEveryone
         Loop
      End With
      If n = 0 Then Exit Sub
      .GoToEditableRange.Editors(1).SelectAll
      .GoToEditableRange.Editors(1).DeleteAll
   End With
运行后整篇文档的“函数”这两字都被选中了，但是但是现在我想把范围定位在鼠标选定的区域，应该怎么改写代码呢？

413191246se

1. Sub FindRange()
   
2. '选区查找/未选则全选/光标不动/不激活对象/速度极快！
   
3.     Dim r As Range
   
4.     Set r = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
   
5.     With r.Find
   
6.         .ClearFormatting
   
7.         .Text = "函数"
   
8.         .Forward = True
   
9.         .MatchWildcards = True
   
10.         Do While .Execute
    
11.             With .Parent
    
12.                 If Not Selection.Type = wdSelectionIP Then
    
13.                     If .End > Selection.End Then Exit Do
    
14.                 End If
    
15.                 .Font.Color = wdColorRed
    
16. '                .Start = .End
    
17.             End With
    
18.         Loop
    
19.     End With
    
20. End Sub

复制代码

gracefully7

413191246se 发表于 2022-6-15 21:13

谢谢，可以很好的运行！