正则和字典的已经引用，为什么还会出现错误424呢？

chenwenming

Microsoft Scripting Runtime
Microsoft VBcript regular Express
正则和字典的已经引用，为什么还会出现错误424呢

1. Sub test()
   
2.     Dim reg As New RegExp
   
3.     Dim p As Paragraph
   
4.     Dim dic As New Scripting.Dictionary
   
5.     Dim dic2, dic3 As Scripting.Dictionary
   
6.     level1 = ""
   
7.     level2 = ""
   
8.         For Each p In Paragraphs
   
9.         reg.Pattern = "^\s*[一二三四五六七八九十]+、"
   
10.         If reg.test(p.Range.Text) Then
    
11.             Set dic2 = New Scripting.Dictionary
    
12.             dic.Add p.Range.Text, dic2
    
13.             level1 = p.Range.Text
    
14.             GoTo next1
    
15.         End If
    
16.         reg.Pattern = "^\s*[0-9]+、"
    
17.         If reg.test(p.Range.Text) And level1 <> "" Then
    
18.             If Not (dic(level1).Exists(p.Range.Text)) Then
    
19.                 Set dic3 = New Scripting.Dictionary
    
20.                 dic(level1).Add p.Range.Text, dic3
    
21.             End If
    
22.             level2 = p.Range.Text
    
23.             GoTo next1
    
24.         End If
    
25.         reg.Pattern = "^\s*[A-Z]+、"
    
26.         If reg.test(p.Range.Text) And level2 <> "" Then
    
27.             If Not (dic(level1)(level2).Exists(p.Range.Text)) Then
    
28.                 dic(level1)(level2).Add p.Range.Text, ""
    
29.                 p.Range.HighlightColorIndex = wdAuto
    
30.             Else
    
31.                 'p.Range.HighlightColorIndex = wdYellow
    
32.                 p.Range.Delete
    
33.             End If
    
34.         End If
    
35. next1:
    
36.     Next
    
37. End Sub

复制代码

chenwenming

找到原因了

1. Sub test()
   
2.     'Dim reg As New RegExp
   
3.     Dim reg As Object
   
4.     Dim dic, dic2, dic3 As Object
   
5.     Dim p As Paragraph
   
6.     'Dim dic As New Scripting.Dictionary
   
7.     Set dic = CreateObject("scripting.dictionary")
   
8.     'Dim dic2, dic3 As Scripting.Dictionary
   
9.     level1 = ""
   
10.     level2 = ""
    
11.         For Each p In ActiveDocument.Paragraphs
    
12.          Set reg = CreateObject("vbscript.regexp")
    
13.         reg.Pattern = "^\s*[一二三四五六七八九十]+、"
    
14.         If reg.test(p.Range.Text) Then
    
15.             Set dic2 = CreateObject("scripting.dictionary")
    
16.             'Set dic2 = New Scripting.Dictionary
    
17.             dic.Add p.Range.Text, dic2
    
18.             level1 = p.Range.Text
    
19.             GoTo next1
    
20.         End If
    
21.         reg.Pattern = "^\s*[0-9]+、"
    
22.         If reg.test(p.Range.Text) And level1 <> "" Then
    
23.             If Not (dic(level1).Exists(p.Range.Text)) Then
    
24.                 Set dic3 = CreateObject("scripting.dictionary")
    
25.                 'Set dic3 = New Scripting.Dictionary
    
26.                 dic(level1).Add p.Range.Text, dic3
    
27.             End If
    
28.             level2 = p.Range.Text
    
29.             GoTo next1
    
30.         End If
    
31.         reg.Pattern = "^\s*[A-Z]+、"
    
32.         If reg.test(p.Range.Text) And level2 <> "" Then
    
33.             If Not (dic(level1)(level2).Exists(p.Range.Text)) Then
    
34.                 dic(level1)(level2).Add p.Range.Text, ""
    
35.                 p.Range.HighlightColorIndex = wdAuto
    
36.             Else
    
37.                 'p.Range.HighlightColorIndex = wdYellow
    
38.                 p.Range.Delete
    
39.             End If
    
40.         End If
    
41. next1:
    
42.     Next
    
43. End Sub
    

复制代码