Question

我有一个宏使用Find函数来查找以数字/数字等开头的字符串。例如：
二千三百一十三分之一-gergre ....
5385分之4-gewsgergeo ....

我试过以下但没有成功：

    StartString = "#/#"
    With Rng.Find
    .MatchWildcards = True
        Do While .Execute(findText:=StartString, Forward:=False) = True
            MsgBox ("Found")

        Loop
    End With

如果我使用*，它可以工作，但我只想接受数字..

Answer 1

这样做：

Set myRange = ActiveDocument.Content
StartString = "[0-9]/[0-9]"
    With myRange.Find
    .MatchWildcards = True
        Do While .Execute(findText:=StartString, Forward:=False) = True
            MsgBox ("Found")

        Loop
    End With

这是带有其他通配符选项的link

VBA - 使用通配符查找正确的字符串

1 个答案: