Hoe verwijder ik een module met Word VBA?

[KlaasHamer]

Het antwoord op deze vraag is overal te vinden als het gaat om Excel VBA. Ik slaag er alleen niet in om Excel VBA te vertalen naar Word VBA.

Voor Excel is de code:

Sub DeleteModule()
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent

Set VBProj = ActiveWorkbook.VBProject
Set VBComp = VBProj.VBComponents("Module1")
VBProj.VBComponents.Remove VBComp
End Sub

Hoe 'vertaal' ik dit naar Word VBA?

Dank voor het meedenken.

 

[edmoor]

Doe het eens zo:

Sub VerwijderModule()
  ActiveDocument.VBProject.VBComponents.Remove _
  ActiveDocument.VBProject.VBComponents("Module1")
End Sub

Toegang tot het project moet wel vertrouwd zijn.
Zie hiervoor de instellingen in het Vertrouwenscentrum.

 

[snb]

In tegenstelling tot Excel heeft Word daarvoor een aparte methode:

Sub M_snb()
   Application.OrganizerDelete ActiveDocument, "snb", wdOrganizerObjectProjectItems
End Sub

Terzijde:

Hoe eenvoudiger je schrijft (ook in Excel), hoe eenvoudiger een vertaling:

Sub M_snb()
   With ActiveWorkbook.VBProject
     .VBComponents.Remove .VBComponents("Module1")
   End With
End Sub

Sub M_DeleteModule_in_Word()
   With ActiveDocument.VBProject
     .VBComponents.Remove .VBComponents("Module1")
   End With
End Sub