请问word如何才能查找多个关键词？

zzyuzi

如题。比如一篇英文段落，The villagers of Little Hangleton still called it “the Riddle House,” even though it had been many years since the Riddle family had lived there. It stood on a hill overlooking the village, some of its windows boarded, tiles missing from its roof, and ivy spreading unchecked over its face. Once a fine-looking manor, and easily the largest and grandest building for miles around, the Riddle House was now damp, derelict, and unoccupied.The Little Hangletons all agreed that the old house was “creepy.” Half a century ago, something strange and horrible had happened there, something that the older inhabitants of the village still liked to discuss when topics for gossip were scarce. The story had been picked over so many times, and had been embroidered in so many places, that nobody was quite sure what the truth was anymore. Every version of the tale, however, started in the same place: Fifty years before, at daybreak on a fine summer’s morning, when the Riddle House had still been well kept and impressive, a maid had entered the drawing room to find all three Riddles dead.

我要从中同时查找选中“unchecked”“creepy”“ maid”这三个关键词并加粗，使之形成一下效果：
The villagers of Little Hangleton still called it “the Riddle House,” even though it had been many years since the Riddle family had lived there. It stood on a hill overlooking the village, some of its windows boarded, tiles missing from its roof, and ivy spreading unchecked over its face. Once a fine-looking manor, and easily the largest and grandest building for miles around, the Riddle House was now damp, derelict, and unoccupied.The Little Hangletons all agreed that the old house was “creepy.” Half a century ago, something strange and horrible had happened there, something that the older inhabitants of the village still liked to discuss when topics for gossip were scarce. The story had been picked over so many times, and had been embroidered in so many places, that nobody was quite sure what the truth was anymore. Every version of the tale, however, started in the same place: Fifty years before, at daybreak on a fine summer’s morning, when the Riddle House had still been well kept and impressive, a maid had entered the drawing room to find all three Riddles dead.


————————————————————————————————————————————————————————————————

请教以上操作word可以实现吗？或者如何用vba实现呢？代码应该怎么写呢？

本人是菜鸟中的菜鸟，对VBA一窍不通，因为有此需求特地注册此号前来求助，还请大神讲解的详细一些，谢谢！！！！！

zzyuzi

因为文章很长，关键词很多，所以想寻求一个更有效率的方法

闻启学

zzyuzi 发表于 2015-6-16 20:38
因为文章很长，关键词很多，所以想寻求一个更有效率的方法

我简单做了一个

1. Sub findKeyWrod(mykeyword As String)
   
2. '
   
3. '    宏1 宏
   
4. '
   
5. '
   
6.     Selection.Find.ClearFormatting
   
7.     Selection.Find.Replacement.ClearFormatting
   
8.     With Selection.Find.Replacement.Font
   
9.       
   
10.         .Bold = True
    
11.     End With
    
12.     With Selection.Find
    
13.         .Text = mykeyword
    
14.         .Replacement.Text = ""
    
15.         .Forward = True
    
16.         .Wrap = wdFindAsk
    
17.         .Format = True
    
18. '        .MatchCase = False
    
19. '        .MatchWholeWord = False
    
20. '        .MatchByte = False
    
21. '        .MatchWildcards = False
    
22. '        .MatchSoundsLike = False
    
23. '        .MatchAllWordForms = False
    
24.     End With
    
25.     Selection.Find.Execute Replace:=wdReplaceAll
    
26. End Sub
    
27. 
    
28. 
    
29. Sub tttt()
    
30.    
    
31.     Dim arr
    
32.    
    
33.     Dim i As Integer
    
34.    
    
35.    
    
36.     arr = Array("unchecked", "creepy", "maid")
    
37.    
    
38.     For i = 0 To UBound(arr)
    
39.         Call findKeyWrod(CStr(arr(i)))
    
40.     Next
    
41. End Sub
    

复制代码

zjgwzj

3楼的朋友，在运行代码之后，显示如图所示的错误：

zzyuzi

闻启学 发表于 2015-6-21 18:44
我简单做了一个

我搜到了一篇代码解决了，不过也非常感谢你的回复！谢谢

remon112

楼主，你好，我也正在找这方面的解决方法，你的代码能给分享一下么，邮箱remon112@163.com，感谢！！

bsyjfen

这个代码能用，就是要点几次确定。

松永

bsyjfen 发表于 2022-1-19 17:12
这个代码能用，就是要点几次确定。

加上Application.DisplayAlerts = False 就不用多点了