vba - 编辑搜索结果并用括号括起来

Question

我想找到所有出现的字符串“no”。+ 1 到 9 之间的 1-2 个整数。然后删除“否”。并在括号之间包装整数/s：“（4）”或“（67）”。例如“no. 34”应该变成“(34)”。

我似乎有多个问题（Word 2010）：

1. 该代码仅替换一个整数。如何让它同时找到一个或两个整数？
2. 如何使 .Replacement.Text 包含数字但不包含“否”一词。（到目前为止，我刚刚输入了 XXXX）。

3. 我的代码确实添加了括号，但在活动文档的开头和结尾。我如何让它包装数字呢？

   With Selection.Find  
       .Text = "n[or]. [1-9]"  
       .Replacement.Text = "XXXXX"  
       .Forward = True  
       .Wrap = wdFindContinue  
       .Format = False  
       .MatchCase = False  
       .MatchWholeWord = False  
       .MatchWildcards = True  
       .MatchSoundsLike = False
       .MatchAllWordForms = False  
   End With  
   Selection.InsertBefore ("(")  
   Selection.InsertAfter (")")  
   Selection.Find.Execute Replace:=wdReplaceAll 
   

Answer 1

尝试以下解决方案：

With Selection.Find
    .Text = "(No.)( )([1-9]{1;2})"
    .Replacement.Text = "(\3)"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = True
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll