Word VBA：具有可选字符的Findtext模式（查找方法）

Question

我有什么应该是一个简单的问题。我正在搜索文件中是否出现括号内的数字，例如[4]或[14]等。我可以编写一个模式来查找单个数字或双位数字，但是如何使用匹配两种情况的单个FindText模式？

下面是个位数的情况下，我的工作代码：

set fnd=ActiveDocument.Range.Find 
While (fnd.Execute(FindText:="\[[0-9]\]", MatchWildcards:=True)) 
    ... 
    Do Stuff 
    ... 
Wend 

我怎样才能适应这包括第二位的可能性？谢谢你的帮助！

Answer 1

Sub SearchNumbersInSqBrackets() 

    Dim rng 
    Set rng = ActiveDocument.Range 

    With rng.Find 
     .Text = "\[[0-9]{1,2}\]" 
     .MatchWildcards = True 

     Do While .Execute(Forward:=True) 
      Debug.Print rng.Text 
     Loop 

    End With 
End Sub 

参见＃7在这里 - http://wordmvp.com/FAQs/General/UsingWildcards.htm