WORD VBA 选定指定字符之间文字，然后在其中查找文字

南郊三公里

本人VBA小白，现在想查找文档内，从47A:开始到71D:之间的内容中，是否出现关键字
弄出了下面这个代码，但是find之后不会写，请高手大神帮忙补充


Sub 查找关键字()

With Selection.Find
.MatchWildcards = True
.Wrap = wdFindContinue
.Text = "(47A:)(*)(71D:)"
.Execute
If .Found = True Then
  ActiveDocument.Range(Selection.Start, Selection.End).Select

   后面怎么写都运行不了，上面是选定了指定内容，我想在这个指定内容中查找比如”keyword“，如果存在，就msgbox("keyword")


End If

End With

End Sub


请各位大神赐教

凌空一羽

If .Found = True Then
  ActiveDocument.Range(Selection.Start, Selection.End).Select
    If InStr(Selection.Text, "keyword") Then MsgBox ("keyword")  '加这个
End If

daibao88

.Text = "47A:*keyword*71D:"
一步到位

南郊三公里

非常感谢大神出手相助

wdpfox

围观，大神写的真棒=^_^=

                                        莫愁前路无知己，天下谁人不识君！只道是：海内存知己，天涯若比邻！  

王米

南郊三公里 发表于 2020-2-28 11:31
非常感谢大神出手相助

兄弟，修改后的代码可以贴出来共享一下吗？我正好也需要，谢谢

413191246se

* 如果使用 Word 2019，请将代码复制到新建文档中，再全选，剪切，粘贴到 VBE 中；否则，可能会乱码。

1. Sub a808_Find()
   
2.     Dim s$, t$, k$
   
3.    
   
4.     s = "47A:" '起始值/可自行修改
   
5.     t = "71D:" '终止值/可自行修改
   
6.     k = "关键字" '关键字/可自行修改
   
7.    
   
8.     With Selection
   
9.         .HomeKey 6
   
10.         With .Find
    
11.             .ClearFormatting
    
12.             .Text = s
    
13.             .Replacement.Text = ""
    
14.             .Forward = True
    
15.             .MatchWildcards = True
    
16.             Do While .Execute
    
17.                 With .Parent
    
18.                     Do
    
19.                         .MoveEnd
    
20.                         If .Characters.Last.Text = vbCr Then GoTo sk
    
21.                     Loop Until .Text Like s & "*" & t
    
22.                     If .Text Like "*" & k & "*" Then
    
23.                         .Font.ColorIndex = wdBlue
    
24.                     End If
    
25. sk:
    
26.                     .Start = .End
    
27.                 End With
    
28.             Loop
    
29.         End With
    
30.         
    
31.         .HomeKey 6
    
32.         With .Find
    
33.             .ClearFormatting
    
34.             .Font.ColorIndex = wdBlue
    
35.             .Text = k
    
36.             .Replacement.Text = ""
    
37.             .Forward = True
    
38.             .MatchWildcards = True
    
39.             Do While .Execute
    
40.                 With .Parent
    
41.                     .Font.ColorIndex = wdRed '红色
    
42.                     .Font.Bold = True '加粗
    
43.                     .Font.Underline = wdUnderlineSingle '下划线
    
44. '                    .Start = .End
    
45.                 End With
    
46.             Loop
    
47.         End With
    
48.     End With
    
49. End Sub

复制代码