удаление внедренных в документ макросов

[Пименов Александр]

Сообщение от Ципихович Эндрю

>также добавлять модули, классы, формы и т.д.
подскажите пожалуйста код

Код для какой задачи?

[Ципихович Эндрю]

добавлять модули, разве важно какие в модули процедуры?

[Пименов Александр]

Конечно важно!!!
Вот например макрос проверяющий наличие в Шаблоне Normal наличие модуля NewMacros в который обычно записываются автоматически созданные макросы и выводит их названия списком:

Public Sub NewMacrosListProcedurs()
Dim NormalProject As VBProject, Component As VBComponent
Dim CodeModule As CodeModule
Dim booNewMacros As Boolean
Dim NameProcedurs As String
    booNewMacros = False 
    Set NormalProject = ActiveDocument.VBProject.VBE.VBProjects("Normal") ' 
    For Each Component In NormalProject.VBComponents
        If Component.Name = "NewMacros" Then
            booNewMacros = True
            Exit For
        Else
            booNewMacros = False
        End If
    Next Component
    If booNewMacros = False Then 
        MsgBox "Модуль NewMacros в шаблоне Normal отсутствует!!!"
        Exit Sub
    End If
    
    Set CodeModule = Component.CodeModule
        If CodeModule.CountOfDeclarationLines <> CodeModule.CountOfLines _
            And CodeModule.CountOfLines > 0 Then
                Start = CodeModule.CountOfDeclarationLines + 1
                k = 0
                NameProcedurs = ""
                    Do
                        If Start > CodeModule.CountOfLines Then Exit Do
                            k = k + 1
                            i = CodeModule.ProcOfLine(Start, vbext_pk_Proc)
                            j = CodeModule.ProcStartLine(i, vbext_pk_Proc)
                            NameProcedurs = NameProcedurs & k & ". " & i & Chr(13)
                            Start = j + CodeModule.ProcCountLines(i, vbext_pk_Proc)
                    Loop
         End If
         MsgBox "Всего процедур: " & k & Chr(13) & NameProcedurs 
End Sub

Вот тестирующий макрос, не забудьте подключить библиотеку Microsoft Visual Basic for Applications Extensibility 5.3
Пример подключения дал caute
Запишите несколько макросов с разными именами в шаблон Normal и запустите мой тестирующий макрос

[Пименов Александр]

Вот сам макрос

[Ципихович Эндрю]

спасибо, чтобы по феншую и с Explicitom дружить на сроке
Start = CodeModule.CountOfDeclarationLines + 1, объявить Start
А ещё можно разбить - модуль, его процедуры, клавиши запуска процедур

[Пименов Александр]

Можно много чего сделать, была бы задача и желание......