word里如何查找多个名字

赵金华

word文档里有很多人名，我想查找张三，李四这两个人名，而且很多次出现，怎样能把他们全部查找出来并高亮显示

赵金华

就是想一次性查找多个关键词用什么符号隔开

shadowise

1. Sub HighlightCustomNames()
   
2.     Dim namesInput As String
   
3.     Dim namesArray As Variant
   
4.     Dim name As Variant
   
5.     Dim foundRange As Range
   
6.     Dim doc As Document
   
7.    
   
8.     ' 弹出输入框，让用户输入人名，多个人名之间用逗号隔开
   
9.     namesInput = InputBox("请输入要查找和高亮显示的人名，多个人名请用逗号隔开:", "输入人名")
   
10.    
    
11.     ' 检查用户是否取消输入
    
12.     If namesInput = "" Then
    
13.         Exit Sub
    
14.     End If
    
15.    
    
16.     ' 将输入的人名拆分成数组
    
17.     namesArray = Split(namesInput, ",")
    
18.    
    
19.     ' 引用当前文档
    
20.     Set doc = ActiveDocument
    
21.    
    
22.     ' 禁用屏幕刷新，以提高性能
    
23.     Application.ScreenUpdating = False
    
24.    
    
25.     ' 遍历每个人名
    
26.     For Each name In namesArray
    
27.         ' 设置查找对象
    
28.         Set foundRange = doc.Range
    
29.         
    
30.         ' 查找和高亮显示所有匹配项
    
31.         Do While foundRange.Find.Execute(FindText:=Trim(name), Format:=True) = True
    
32.             foundRange.Font.Color = RGB(255, 0, 0) ' 设置高亮显示的颜色，这里是红色
    
33.             foundRange.Collapse Direction:=wdCollapseEnd
    
34.         Loop
    
35.     Next name
    
36.    
    
37.     ' 恢复屏幕刷新
    
38.     Application.ScreenUpdating = True
    
39. End Sub
    

复制代码

过客fppt

静听溪流

过客fppt 发表于 2023-11-26 18:09

这个如果出现单独的  张、三、李、四  也会被查找出来吧

常扬帆

静听溪流 发表于 2023-11-26 20:01
这个如果出现单独的  张、三、李、四  也会被查找出来吧

经过实验，是的。

zhanglei1371

word不支持。只有代码途径

tcdatongye

如果没有什么杂项，可以简单处理  [张三李四]{2}

赵金华

过客fppt 发表于 2023-11-26 18:09

这样文章里所有张、三、李、四会全部都查找出来

赵金华

tcdatongye 发表于 2023-11-27 11:10
如果没有什么杂项，可以简单处理  [张三李四]{2}

还有三个字的名字呢