Как программно удалить макрос из документа ?

[Николай IV]

В документе имеется некий макрос. Есть ли возможность его удаления из документа другим макросом, который записан в Normal.dot ?

[CaptainNemo]

Сообщение от Николай IV

В документе имеется некий макрос. Есть ли возможность его удаления из документа другим макросом, который записан в Normal.dot ?

Думаю, что можно. В настройках Office разрешите доступ к объектной модели и дайте ссылку Reference на библиотеку Microsoft Visual Basic Extensible.
Тогда можно удалять все модули из проекта активного документа кодом из шаблона Normal. К сожалению, сейчас опаздываю на поезд, нет времени код писать, вот что-то начал, нужно только доработать:

Sub DeleteModule()
    Set myProject = ActiveDocument.VBProject
    For i = 2 To ActiveDocument.VBProject.VBComponents.Count
    Set VBComp = myProject.VBComponents(i)
    myProject.VBComponents.Remove VBComp
    Next i
End Sub

Если имя процедуры (макроса) знаете, то можно удалить только его в модуле

[Николай IV]

Спасибо,CaptainNemo. Есть еще уточнение: не в каждом документе есть макрос, и желательно сначала проверить наличие, чтобы не получать сообщение об ошибке. А имя пусть будет простое - AutoOpen. И ещё вопрос: а где искать настройки Office ? В Word (2003) или где ещё ? Я пользователь (ну, чуть продвинутый ), а не программист (очень давно знакомился с Basic), поэтому далеко не все опции ворда и офиса знаю.

[akokin]

Николай, настройки разрешения доступа можно установить здесь: Сервис - Макрос - Безопасность - вкладка Надежные издатели - установите флажок на параметре "Доверять доступ к Visual Basic Project".
Ссылку на библиотеку надо подключить из редактора Visual Basic: меню Tools - Referenses - флажок поставьте на Microsoft Visual Basic 6.0 Extensibility.

[akokin]

Вот обнаружил подходящий код макроса для целей Николая (на форуме microsoft.public.word.vba.general). Исправил тип переменных, так как иначе выдавало ошибку, и описал каждое действие макроса (скорее для себя, пока разбирался с кодом):

Sub removeMacro()
'Удаление конкретного макроса
Dim aMdl As Variant
Dim aPrj As Variant
Dim lLin As Long
Dim lLin2Del As Long
Dim strSub2Del As String
On Error Resume Next
'Вводим имя макроса
strSub2Del = "AutoOpen"
'Присваиваем переменной имя конкретного проекта (в данном случае это проект "Normal")
Set aPrj = Application.VBE.VBProjects("Normal")
'Присваиваем переменной имя конкретного модуля, содержащего удаляемый макрос (например, "Module1")
Set aMdl = aPrj.VBComponents("Module1")
'Процедура удаления макроса из кода модуля
With aMdl.CodeModule
'метод ProcBodyLine возвращает первую строку конкретной процедуры _ 
      как номер строки (число) (например, строка Sub может _
      находиться на 3-й строке в модуле, значит возвращено будет 3)
   iLin = .ProcBodyLine(strSub2Del, vbext_pk_Proc)
'метод ProcCountLines возвращает количество строк в конкретной процедуре
   iLin2Del = .ProcCountLines(strSub2Del, vbext_pk_Proc)
'собственно удаление строк кода макроса
   .DeleteLines iLin, iLin2Del - 1
End With
End Sub

Если такого макроса нет в проекте или модуле, то ничего не произойдет. Формально, конечно, должна быть выдана ошибка, но я поставил подавление ошибок, поэтому пользователь ничего и не заметит.
Хотя, наверное, надо по умному задавать условия.

[Николай IV]

Антон, признателен за поддержку. Увы - пока не работает ...

[Николай IV]

Уважаемый CaptainNemo - ваш макрос сработал. AutoOpen из файла удалился. Спасибо, буду дальше шевелить мозгами, как прикрутить так, как мне надо .

[akokin]

Сообщение от Николай IV

Антон, признателен за поддержку. Увы - пока не работает ...

Николай, могу предложить способ получения имени проекта из активного документа (добавлен в код новая переменная). Попробуйте такой код:

Sub removeModule2()
'Удаление конкретного макроса при сохранении документа под другим именем
Dim aMdl As Variant
Dim aPrj As Variant
Dim lLin As Long
Dim lLin2Del As Long
Dim strSub2Del As String
Dim oDlg As Dialog
Set oDlg = Dialogs(wdDialogFileSaveAs)
On Error Resume Next
Dim oPrj As String

'Получаем имя проекта
oPrj = ActiveDocument.VBProject.Name

'Открываем окно "Сохранить как"
oDlg.Show
'Вводим имя макроса
strSub2Del = "AutoOpen"
'Присваиваем переменной имя полученного проекта
Set aPrj = Application.VBE.VBProjects(oPrj)
'Присваиваем переменной имя конкретного модуля, содержащего удаляемый макрос (например, "Module1")
Set aMdl = aPrj.VBComponents("Module1")
'Процедура удаления макроса из кода модуля
With aMdl.CodeModule
   'метод ProcBodyLine возвращает первую строку конкретной процедуры как номер строки (число) _
   (например, строка Sub может находиться на 3-й строке в модуле, значит возвращено будет 3)
   iLin = .ProcBodyLine(strSub2Del, vbext_pk_Proc)
   'метод ProcCountLines возвращает количество строк в конкретной процедуре
   iLin2Del = .ProcCountLines(strSub2Del, vbext_pk_Proc)
   'собственно удаление строк кода макроса
   .DeleteLines iLin, iLin2Del - 1
End With
End Sub

[Николай IV]

Увы, увы, увы ... Не идёт пока ваш макрос, Антон

[akokin]

Сообщение от Николай IV

Увы, увы, увы ... Не идёт пока ваш макрос, Антон

Николай, а что именно происходит? Что сообщает или вообще молчит? Попробуйте закомментировать строку

On Error Resume Next

и сообщите, какую ошибку выдает.