Sub DelAllCodes() Dim i, A As Integer For Each i In ActiveDocument.VBProject.VBComponents A = i.CodeModule.CountOflines i.CodeModule.DeleteLines 1, A Next End Sub '----------------------