2

我想要Find四个必须包含小括号的大写/大写字母()。

例如(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

情况是这样的：

4

1 回答 1

2

括号有特殊含义，需要用斜杠转义：

.Text = "\([A-Z][A-Z][A-Z][A-Z]\)"
于 2016-04-24T18:08:56.687 回答