如何同时查找多个词？

wuwenbin32415

我想同时查找语文、英语、自然科学，查找内容用[语文英语自然科学]{2,4}不行，请教师傅查找内容该用什么？
例子：语文数学音乐英语文音乐英然文英语文自科语英自学自然科学

小花鹿

上传附件，说明目的                                                                                    

guojianlin1985

小花鹿 发表于 2020-8-12 09:40
上传附件，说明目的                                                                                   ...

我猜他肯定想用正则提取出学科。

wuwenbin32415

应该是用正则吧，我用通配符查找不行

wdpfox

利用数组分别查找应该可以。

Meet by chance like patches of drifting duckweed,  
May everything be fine with everyone !
  （你我萍水相逢，愿君一切安好！）

wuwenbin32415

具体怎么操作，能否介绍一下？要的是“同时”

zhanglei1371

需要写代码来完成的。涉及VBS的正则表达式，注意不是word的“通配符”

wuwenbin32415

这么复杂啊

相见是缘8

转一个网上找到的代码给你。

Sub 查找多个关键词()
    Dim Keywd, i%
    Keywd = Array("语文", "自然科学", "英语")
    Application.ScreenUpdating = False
    Options.DefaultHighlightColorIndex = wdYellow
    For i = 0 To UBound(Keywd)
        With ActiveDocument.Content.Find
            .ClearFormatting
            .Text = Keywd(i)
            .MatchWildcards = False
            .Replacement.Highlight = True
            .Forward = True
            .Execute Replace:=wdReplaceAll
        End With
        Next
    Application.ScreenUpdating = True
End Sub

wuwenbin32415

基础操作法（通配符查找）肯定是没法做到？