word vba的查找通配符该如何写呢？

想实现题号的标注，就像这样的方式，通过搜索每一行的开头，如果满足“数字+.”的形式，就把它标红。

For i = 1 To 10000 'ActiveDocument.Paragraphs.Count
        If i = daan_d Then
            MsgBox "发现最大题号为：" & UBound(r)
            Exit For
        End If
        Set a = ActiveDocument.Paragraphs(i).Range
        If Not a.Information(12) Then
            Debug.Print a.Text
            a.SetRange a.Start, a.Start + 3
            a.Select
            With a.Find
                .ClearFormatting
                .MatchByte = False
                .Forward = True
                .Wrap = wdFindStop
                .Text = "[0-9]{1,2}[.．]"
                .MatchWildcards = True
                .Execute
                If .Found = True Then
                    a.Select
                    a.Font.Fill.ForeColor = vbRed
                    Set a = Nothing
                End If
        '       MsgBox UBound(r)
            End With
        End If        
通过查找，希望这样呈现结果。

可是，每次就会出现这样的情况。
从第一题到第九题，都可以正确查找到。到第十题就会出现问题，她会把表格中的数字和标点 查找到。
不知道问题出在哪里了？


        
         
          
           
            
             
              
               
                
               
               
                
                
                 
                 
                 
                 
                  
                 
                 
                 
                 
                 
                 
                
               
               
                
                
               
               
                
                 
                  相关推荐
                 
                 
                  更多相似问题
                 
                
                
                 
                  
                   
                    
                    
                     
                      word
                     
                     
                      vba
                     
                     的
                     
                      查找
                     
                     
                      通配符
                     
                     该如何
                     
                      写
                     
                     呢？
                    
                   
                   
                    
                     已采纳
                    
                    
                     代码稍作了修改，除了第10段匹配不到，其他没问题。不知是不是其他什么问题
Sub
                     
                      通配符
                     
                     
                      查找
                     
                     改变颜色()
    For i = 1 To ActiveDocument.Paragraphs.Coun
                    
                   
                  
                  
                   4年前
                  
                  
                  
                 
                 
                  
                   
                    
                    
                     
                      word
                     
                     
                      通配符
                     
                     
                      查找
                     
                     内容如何排除多余的字符串？
                    
                   
                   
                    
                     已采纳
                    
                    
                     data-clk-atid="*"><b>*</a>
                    
                   
                  
                  
                   2年前
                  
                  
                  
                 
                 
                  
                   
                    
                    
                     如何使用Behat
                     
                      查找
                     
                     带有正则表达式作为
                     
                      通配符
                     
                     的字符串？
                    
                   
                   
                    
                     已采纳
                    
                    
                     Some of the options would be:

word vba的查找通配符该如何写呢？

相关推荐 更多相似问题

相关推荐更多相似问题