这个正则如何写？

chenlifeng123

          我想找出word文档每一段中，以“逗号（不分中英文状态书写）或顿号”  + 换行符号结尾，且下一行中不能包含冒号（不分中英文书写）  这样的全部内容。
          正则不知道如何写。于是写另一个：.Pattern = "([,，、])(" & vbCrLf & ")([^\r]+)"   ，然后用IF来逐一判断是否包含冒号，包含的略过……
但这样处理还是不行。
             请问应该如何写正则呢？

                                           word全文内容比如：
Dim b$
b = "我们，" & vbCrLf & _
"和，" & vbCrLf & _
"大家：" & vbCrLf & _
"没有，" & vbCrLf & _
"就一定去，" & vbCrLf & _
"不会，" & vbCrLf & _
"好。"

                             我想要的结果是：1、 “我们，” + 分行符 + “和。”
                                                         2、 “没有，” + 分行符 + “就一定去，”
                                                         3、 “就一定去，” + 分行符 + “不会，”
                                                         4、 “不会，” + 分行符 + “好。”

                         如果进行正则处理后，答案如下，又该如何替换呢：
“我们，和” & vbcrlf & _
"大家：" & vbcrlf & _
"没有，就一定去，不会，好。"

duquancai

没有模拟Word文档附件（你的 Word文档比如 b$   根本不成立，也就是说：你的比如是错误的假设！！！），加上个人感觉无实际意义，所以不想写代码。楼主等等吧，有大神会写的。

chenlifeng123

duquancai 发表于 2017-7-24 20:32
没有模拟Word文档附件（你的 Word文档比如 b$   根本不成立，也就是说：你的比如是错误的假设！！！），加 ...

由于我想处理的内容就是一楼所举例的内容，所以没有再上传附件，没有考虑到老师的方便问题，实在抱歉。
另外，此疑问也许无太多的实际意义，但的确是我遇到的一个情况，所以顺便提出来了，感谢老师花出了富贵的时间关注。

duquancai

chenlifeng123 发表于 2017-7-24 22:47
由于我想处理的内容就是一楼所举例的内容，所以没有再上传附件，没有考虑到老师的方便问题，实在抱歉。
...

一楼所举例的内容      我再说一次：是错误的假设！！！在word文档中根本不存在   你一楼所举例的内容！

chenlifeng123

duquancai 发表于 2017-7-24 22:51
一楼所举例的内容      我再说一次：是错误的假设！！！在word文档中根本不存在   你一楼所举例的内容！

对不起 ，可能是我想当然出的问题。我现在把附件上传了。

duquancai

chenlifeng123 发表于 2017-7-24 23:51
对不起 ，可能是我想当然出的问题。我现在把附件上传了。

你附件中的Word文档内容 和你描述的 大相径庭！！！你自己慢慢玩吧。

chenlifeng123

duquancai 发表于 2017-7-25 19:33
你附件中的Word文档内容 和你描述的 大相径庭！！！你自己慢慢玩吧。

感谢您的一直关注，为此浪费了您的时间，我表达万分歉意！
       需要补充的是，可能是我的表达不到位及专业性不够，导致我在一楼描述的与附件的内容，让人看起来不一致。但我本心并无恶意为难和有意更改。老师所说的大相径庭，可能是说我用的回车符吧，我在一楼用VBCRLF表示（我以为就是回车符号），而在附件中就直接用手动回车表示了。对此再次表示歉意！