过VBA删除Normal.dot底下的所有Module

Sub RemoveModule()
  Dim VBProj As VBIDE.VBProject
  Dim VBComp As VBIDE.VBComponent
  Set VBProj = NormalTemplate.VBProject
  For Each VBComp In VBProj.VBComponents
    If VBComp.Type = 1 Then VBProj.VBComponents.Remove VBComp
  Next
End Sub

上面的宏，运行时一定要加入引用VBIDE
以下的宏可以通过VBA直接加入上述的引用。
Sub VBIDEReference()
  ThisDocument.VBProject.References.AddFromGuid GUID:="{0002E157-0000-0000-C000-000000000046}", Major:=5, Minor:=3
End Sub