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