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

libin171

文字版式如下：
1.测试语句测试语句测试语句测试语句测试语句测试语句测试语句测试语句测试语句测试语句。
其他段落其他段落其他段落其他段落其他段落其他段落其他段落其他段落其他段落其他段落其他段落
1）测试语句测试语句测试语句测试语句测试语句测试语句测试语句测试语句测试语句测试语句；
2）测试语句测试语句测试语句测试语句测试语句测试语句测试语句测试语句测试语句测试语句。
2.测试语句测试语句测试语句测试语句测试语句测试语句测试语句测试语句测试语句测试语句。
3.测试语句测试语句测试语句测试语句测试语句测试语句测试语句测试语句测试语句测试语句。
4.测试语句测试语句测试语句测试语句测试语句测试语句测试语句测试语句测试语句测试语句。
我想把以^\d+\.这种序号为段首标识的四段内容分别正则出来，存到一个数组里，然后遍历出来（包含段首数字点）。最开始想到的是贪婪匹配，但是整个四大段会放在一个变量里，现在没思路，求高手帮忙点醒一下。

libin171

如果没有小段落的话，比较简单，直接for each i in activedocument.paragraghs 或者以split（activedocument.range,chr(13)）就可以把每段遍历出来，但是现在希望是把1.到2.前面的一个大段遍历出来，就没啥思路了。

39660519

表达式："\d+\.(.*\s*(?!\d+\.))*"

例子：
Sub regex()
        Dim regex As Object, ARR()
        Dim matchs As Object, match As Object
        Dim x As String
        x = [A1]
        y = 1
        [A2:A65536] = ""
        Set regex = CreateObject("VBScript.RegExp")
        With regex
            .Global = True
            .Pattern = "\d+\.(.*\s*(?!\d+\.))*"
            Set matchs = .Execute(x)
            For Each match In matchs
                y = y + 1
                ReDim Preserve ARR(1 To y)
                ARR(y) = match
                Range("A" & y) = match
            Next
        End With
        
    End Sub

袁振涛

在这里\s*是起什么作用的

39660519

袁振涛 发表于 2015-10-9 13:10
在这里\s*是起什么作用的

0~N个空白字符，在这里表示段落符号

小花鹿

WORD正则不会，每段不是都有段尾符吗？

libin171

39660519 发表于 2015-10-9 11:45
表达式："\d+\.(.*\s*(?!\d+\.))*"

例子：

非常感谢，辛苦，但是还是没有解决，因为在excel的单元格里和在word里面是不一样的，在word里面，每行是换行符结尾，所以这个表达式还是没有起到分割作用。


Sub regex()
        Dim regex As Object, ARR()
        Dim matchs As Object, match As Object
        Dim x As String
        x = ActiveDocument.Range
        Set regex = CreateObject("VBScript.RegExp")
        With regex
            .Global = True
            .Pattern = "\d+\.(.*\s*(?!\d+\.))*"
            Set matchs = .Execute(x)
            For Each match In matchs
                y = y + 1
                ReDim Preserve ARR(1 To y)
                ARR(y) = match
                Debug.Print ARR(1)
            Next
        End With
End Sub

39660519

袁振涛 发表于 2015-10-9 13:10
在这里\s*是起什么作用的

这个最好连接起来理解
.代表除了换行符（\n）以外的任意一个字符
\s代表空白字符，包括换行符（\n）
那么.*\s*代表所有字符

libin171

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

debug.print

debug.print完了和贪婪匹配的结果一样，还是融到一块了

39660519

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

我也是刚学正则表达式，没有在WORD里用过，原来以为是一样的，不好意思