查找包括小括号 () 的大写字母

Finding Uppercase Letters including small brackets ()

我要 Find 四个 UPPERCASE/CAPITAL 必须包含小括号的字母 ().

例如(ABCD)

以下代码可以很好地处理字母,但不会突出显示括号。

我觉得是找不到括号

Sub FindUppercaseLetter()

    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "([A-Z][A-Z][A-Z][A-Z])"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
    End With
    Selection.Find.Execute
End Sub

是这样的:

括号有特殊含义,需要用斜线转义:

.Text = "\([A-Z][A-Z][A-Z][A-Z]\)"