使用通配符匹配求助

duquancai

要完美的那就只能用正则了!
word通配符没有这么强大！
我提供一个word通配符的吧！不过肯定不完美！
<b[ut]{1,2}>
这个表达式可以匹配如下单词：
bu  bt  buu  btt  but  btu

但是楼主提供的目标文本是：“bt  but  bst  kut”
因此上面表达式也就只会匹配bt  but这两个单词了，表面上看认为上面word通配符表达式是正确的，其实不然！
我这里以此为例来说明一个重要问题：甭管是正则还是word通配符，表达式一定要结合目标文本，具体情况具体分析，因地制宜！
根据楼主的本帖的提问，又没有提供附件或者全面的“目标文本”，我也完全可以说： 针对楼主提供的目标文本来说，上面的word通配符表达式 是完美的！是完全能够解决问题的！

duquancai

用正则（不是word通配符）完美表达
\bbu?t\b
这个正则表达式（非Word通配符），在开启“全局”匹配模式下就只会匹配以下2个单词
bt  but

Word前台解决不了这个问题，后台VBA用正则可以解决（前提条件：Word文档为纯文本）
下面代码就是查找bt  but这两个单词（可以在文档中多次出现且不区分大小写！）并高亮红色！
Sub test()
    Dim mt As Object, reg As Object, doc As Document, m&, n&
    Set doc = ActiveDocument
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True: reg.IgnoreCase = True
    reg.Pattern = "\bbu?t\b"
    doc.Content.HighlightColorIndex = 0
    For Each mt In reg.Execute(doc.Content.Text)
        m = mt.FirstIndex: n = mt.Length
        With doc.Range(m, m + n)
            .HighlightColorIndex = 6
        End With
    Next
End Sub

wdpfox

杜老师出手，问题完美解决。