Public Sub Erase() 

Option Explicit
Call EraseTestObj(ThisApplication.ObjectDefs)


'==============================================================================
' Удалить все тестовые объекты приложения
'==============================================================================
Sub EraseTestEvents(ObjDefs)
        
        Dim  testdesc, i
        With ObjDefs
        
        'Если нет информации об объектах, выйти из процедуры
            If .Count = 0 Then 
                    MsgBox "Определения объектов отсутствуют.", _
                            vbInformation, "Информация о текущей настройке"
                    Exit Sub
            End If

            testdesc = "Тестовый объект"
            On Error Resume Next
            For i = 0 to .Count - 1
                    if .Item(i).Description = testdesc Then
                        .Item(i).Erase
                    End If
                    If Err<>0 Then
                        MsgBox "Ошибка удаления типа объекта """ & .Item(i).Description & """" & Chr(13)_
                                    & "(возможно, в системе созданы объекты данного типа.)"_
                                    & Chr(13) &    "Код ошибки: " & Err, vbExclamation     
                    End If
            Next
        End With
End Sub 
'==============================================================================