求助一个关于wordvba正则表达式的问题

39660519

libin171 发表于 2015-10-9 13:29
非常感谢，辛苦，但是还是没有解决，因为在excel的单元格里和在word里面是不一样的，在word里面，每行是 ...

我想万变不离其宗，规则是以\d+\.开始，到\d+\.结束是不会错的，至于中间部分怎么表达就看楼主自己了

39660519

libin171 发表于 2015-10-9 13:33
debug.print完了和贪婪匹配的结果一样，还是融到一块了

数组ARR里是分开的

libin171

39660519 发表于 2015-10-9 13:36
我也是刚学正则表达式，没有在WORD里用过，原来以为是一样的，不好意思

依然非常感谢

libin171

39660519 发表于 2015-10-9 13:43
数组ARR里是分开的

excel的数组里面确实分开了，但是word中的数组里确实没有

袁振涛

1. Dim regex As Object, ARR
   
2. 
   
3. Set regex = CreateObject("VBScript.RegExp")
   
4. regex.Global = True
   
5. regex.MultiLine = True
   
6. regex.Pattern = "(^\d+\..*)"
   
7. 
   
8. ARR = Split(regex.Replace([A1], "&%#%@$1"), "&%#%@")
   
9. 
   
10. For i = 0 To UBound(ARR)
    
11. MsgBox ARR(i)
    
12. Next
    

复制代码

        

先标记再分割

libin171

袁振涛 发表于 2015-10-9 13:59
Dim regex As Object, ARR
         
        Set regex = CreateObject("VBScript.RegExp")

thx 但是在word中还是没有拆开

袁振涛

39660519 发表于 2015-10-9 13:30
这个最好连接起来理解
.代表除了换行符（\n）以外的任意一个字符
\s代表空白字符，包括换行符（\n）

因为你使用了.*\s*能成功运行，而.*\n*却不行，另外我改成\s\S也不行。所以我就比较纳闷

袁振涛

39660519 ，有时间帮我去看看我这个未结的帖子，也是有关正则的，可好？
http://club.excelhome.net/thread-1233958-1-1.html

39660519

袁振涛 发表于 2015-10-9 14:31
39660519 ，有时间帮我去看看我这个未结的帖子，也是有关正则的，可好？
http://club.excelhome.net/threa ...

我看了一下，是很难
第一、按3214552-5去判断的话如果“上”也存在这段文本结果会不正确
第二、按下：......3214552-5去判断会漏掉重复值下：......3214552-5......3214552-5
我想一下先，我也刚学正则表达式

libin171

还请各位高手能帮忙解决一下在word中不能被匹配的情况