求助一个Word VBA中使用正则表达式抽取文档中内容的问题

johnsilver

一个word文档，里面是几道选择题，见图1。
我打算用word VBA引用正则表达式控件来解决，并已经在regexbuddy中测试过表达式的正确性，可以把题目匹配出来，见图2.
但是我在word vba中测试时，却总得不到正确结果。
代码如下：
Sub testregexp()
'测试正则表达式
   Set arg = ActiveDocument.Content
   Set regx = CreateObject("vbscript.regexp")
   regx.Global = True
   regx.MultiLine = True
   regx.Pattern = "(^.*\d\..*$)"
   Set mh = regx.Execute(arg)
   Debug.Print mh.Count
End Sub

请高手帮助指正错误，难道是在word中的元字符我用错了吗？如果是能否告诉我针对word的文档内容时使用的元字符的手册？

duquancai

试试这个           ^\d+\.[^\r]*\r

johnsilver

谢谢指点。已经完成了。很久没写过代码了，而且VBA中用RE也是第一次，感觉跟UNIX/LINUX下用起来差别不小。把代码发出来。如有更好方案还请多指点。

1. Sub testre()
   
2. '测试正则表达式
   
3.    Set arg = ActiveDocument.Content
   
4.    Set regx = CreateObject("vbscript.regexp")
   
5.    regx.Global = True
   
6.    regx.MultiLine = True
   
7.    'regx.Pattern = "(^[.^$]*\d+\.[^\r]*$)"     '这是题目的匹配串
   
8.    regx.Pattern = "(^[.^$]*\d+\.[^\r]*$)\r(A\..[^BCD\r]*)\s*(B\..[^CD\r]*)\s*(C\..[^D\r]*)\s*(D\..[^\r]*)"  '这是题目与选项的匹配串
   
9.     '下面是题目选项加上答案的匹配串，答案可能不存在，导致该题目无法匹配上，所以暂不采取此串，如果采用则下面的submatches(5)要启用
   
10.    'regx.Pattern = "(^[.^$]*\d+\.[^\r]*$)\r(A\..[^BCD\r]*)\s*(B\..[^CD\r]*)\s*(C\..[^D\r]*)\s*(D\..[^\r]*)\r+(\[.[^\r]*\])\r+"
    
11.    Set mh = regx.Execute(arg)
    
12.    'For Each mha In mh
    
13.    '  Debug.Print mha.Value
    
14.    'Next
    
15. ' n = mh(0).submathces.Count
    
16.   'Debug.Print mh.Count
    
17.   Debug.Print mh(2).SubMatches(0)
    
18.   Debug.Print mh(2).SubMatches(1)
    
19.   Debug.Print mh(2).SubMatches(2)
    
20.   Debug.Print mh(2).SubMatches(3)
    
21.   Debug.Print mh(2).SubMatches(4)
    
22.   'Debug.Print mh(2).SubMatches(5)
    
23. End Sub

复制代码