Активный проект Ворда

Sub DeleteModule()
 
'удалить модуль с именем ...
 
'удаляет модуль с активного документа, при этом код должен быть в активном документе
 
 
 
    Dim Module As String
 
    Module = "Module1"
 
 
 
    Dim vbCom As Object
 
    Set vbCom = Application.VBE.ActiveVBProject.VBComponents
 
 
 
    'когда модуль с указанным именем отсутствует, получаем
 
    'ошибку 9 - Subscript out of range - Индекс вне заданного диапазона
 
    vbCom.Remove VBComponent:=vbCom.Item(Module)
 
    'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
 
    Set vbCom = Nothing
 
 
 
End Sub
 
'очистить модуль ThisDocument
 
'подключить библиотеку Tools > References
 
'Microsoft Visual Basic for Applications Extensibility 5.3
 
Public Sub ThisDocumentClear()
 
 
 
Dim DocProject As VBProject
 
Dim CodeModule As CodeModule
 
    Set DocProject = ActiveDocument.VBProject
 
    Set CodeModule = DocProject.VBComponents("ThisDocument").CodeModule
 
    CodeModule.DeleteLines 1, CodeModule.CountOfLines
 
End Sub