匹配题干的正则表达式有错，怎改？

weiyingde

jiminyanyan 发表于 2017-4-15 20:00
换行符也是　[^A-Za-z]

看看8楼的错误在何处？

jiminyanyan

weiyingde 发表于 2017-4-15 19:55
我若给题干添加符号，又出现错误：
sub 给题干添加序号()
Set reg = CreateObject("Vbscript.regexp") ...

Sub jimin()
   Dim col As New Collection, k&, Crng As Range
   Dim mt, oRang As Range, j%, n%, m%
   Set Crng = ActiveDocument.Content
   With CreateObject("vbscript.regexp")
      .Pattern = "^[^\r]*？\r"
      .Global = True: .MultiLine = True
      For Each mt In .Execute(Crng)
         k = k + 1
         m = mt.FirstIndex: n = mt.Length
         Set oRang = ActiveDocument.Range(Crng.Start + m, Crng.Start + m + n)
         col.Add oRang, CStr(k)
      Next
   End With
   For j = 1 To col.Count
      With col(j).Font
        ' .Name = "黑体"
         '.Name = "Times New Roman"
         '.Bold = True
         '.Color = wdColorPink
         col(j).InsertBefore Text:=j & "."
      End With
   Next
End Sub

jiminyanyan

weiyingde 发表于 2017-4-15 19:55
我若给题干添加符号，又出现错误：
sub 给题干添加序号()
Set reg = CreateObject("Vbscript.regexp") ...

要审核，先看这个，杜老师的代码要多看看，我是照猫画虎头虎．．．．．．．见１３楼．．．

jiminyanyan

weiyingde 发表于 2017-4-15 20:15
看看8楼的错误在何处？

．．．．．．．

weiyingde

jiminyanyan 发表于 2017-4-15 20:23
．．．．．．．

谢谢，我也在找这个模式，理解并套用，谢谢你提醒。

weiyingde

jiminyanyan 发表于 2017-4-15 20:23
．．．．．．．

还有上面的正则表达式为："^[一-隝]*？"为什么不能匹配？

jiminyanyan

weiyingde 发表于 2017-4-15 20:34
还有上面的正则表达式为："^[一-隝]*？"为什么不能匹配？

试试．．．．．
^[一-龥]*？

jiminyanyan

weiyingde 发表于 2017-4-15 20:34
还有上面的正则表达式为："^[一-隝]*？"为什么不能匹配？

或者　　　^[\u2E80-\u9FFF]*？

weiyingde

jiminyanyan 发表于 2017-4-15 21:07
试试．．．．．
^[一-龥]*？

^[一-龥]*？，也不行，不知为什么。

weiyingde

jiminyanyan 发表于 2017-4-15 21:10
或者　　　^[%u2E80-%u9FFF]*？

可行，共有匹配表达式如下：
.Pattern = "^[^A-Za-z]*？"’
      或：= "^[\u2E80-\u9FFF]*？"'匹配中（包括繁简中文）日韩非符号字符；
      或：="^[^\r]*？"
      或：="^[^\r]*\r？"
还有：
             ="^[\u4E00-\u9FFF]*？"'匹配中文
             ="^[\u4E00-\u9FA5]*？"'网传专门匹配简体中文，测试繁体也通过；
测试均已通过。
还有其他非符号字符集（测试其中中日韩文字的均未通过）：
            "[\3400-\4DFFh]"'中日韩表意A区（共计6582个）
            "[\4E00-\9FFFh]"'中日韩表意文字区（共计20920个）
            "[\A000-\A4FFh]"'彝族文字区（文字和字根）
            "[\F900-\FAFFh]"' 中日韩表意区（共计302个）
            "[\FB00-\FFFDh]"'文字表现区（组合拉丁文、希伯来、阿拉伯、中日韩直式标点、小符号、半全角符号等）