Supprimer une macro MS Word à l'aide de VBScript

Question

Je souhaite supprimer tous les modules vba d'un modèle MS Word à l'aide de VBScript. J'ai écrit le script suivant.

const wdDoNotSaveChanges = 0 

WScript.Echo "starting Word..." 
Dim oApplication, doc 
Set oApplication = CreateObject("Word.Application") 

WScript.Echo "opening template..." 
oApplication.Documents.Open "path\to\test.dot" 
Set doc = oApplication.ActiveDocument 

Dim comp, components 
Set components = oApplication.ActiveDocument.VBProject.VBComponents 
For Each comp In components 
    components.Remove comp 
Next 

WScript.Echo "exiting..." 

doc.close wdDoNotSaveChanges 
oApplication.Quit wdDoNotSaveChanges 

Lors de l'exécution du code similaire dans un module VBA dans Word, qui fonctionne, mais quand je lance ce VBScript, je reçois cette erreur: test.vbs(14, 2) Microsoft VBScript runtime error: Invalid procedure call or argument

Answer 1

Il se trouve qu'il est impossible de supprimer la VBComponent nommé "ThisDocument" (Si vous cliquez avec le bouton droit dans l'EDI, l'option de suppression n'est pas active). Vous pouvez utiliser quelque chose comme:

For Each comp In components 
    If comp.Name <> "ThisDocument" Then 
     components.Remove comp 
    End If 
Next