Formules pour supprimer macro, module, boîte

Question

Bonjour ! 

Existe-t-il des formules VBA pour supprimer une macro, un module et une
bo&#238;te de dialogue dans un document WORD 

Merci d'avance et @ tr&#232;s bient&#244;t j'esp&#232;re !

michelxld · Answer

bonjour 

tu peux tester ces macros

'necessite d'activer la reference
'Microsoft Visual Basic for Applications Extensibility 5.3


Sub supprimerUserForm()
Dim VbComp As VBComponent
Set VbComp = ThisDocument.VBProject.VBComponents("Userform1")
ThisDocument.VBProject.VBComponents.Remove VbComp
End Sub


'*********


Sub supprimerUnModule()
With ThisDocument.VBProject.VBComponents
.Remove .Item("Module2")
End With
End Sub


'*********


Sub supprimerUneMacroPrecise()
'procedure nomm&#233;e "MaMacro dans le "Module3"
Dim Debut As Integer, Lignes As Integer


With ThisDocument.VBProject.VBComponents("Module3").CodeModule
Debut = .ProcStartLine("MaMacro", 0)
Lignes = .ProcCountLines("MaMacro", 0)
.DeleteLines Debut, Lignes
End With


End Sub


'*********


Sub SupprimToutVBA()
'copie le classeur en supprimant la totalit&#233; des procedures
Dim VbComp As Object


ThisDocument.SaveAs "C:	est.doc"


For Each VbComp In ActiveDocument.VBProject.VBComponents
Select Case VbComp.Type
Case 1 To 3
ActiveDocument.VBProject.VBComponents.Remove VbComp
Case Else
With VbComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VbComp


ActiveDocument.Save
End Sub



bon week end
michel

Formules pour supprimer macro, module, boîte

1 réponse

Discussions similaires