Удаление макроса при сохранении .doc файла

29.10.2009, 14:35. **Показов** 4165. **Ответов** 5

Author24 — интернет-сервис помощи студентам

Подскажите кто знает.
У меня есть мой документ(.doc) с встроенной в него программой на vba.
Сам документ довольно большой, а там еше это программа.
Клиентам он доступен только для просмотра.
Надо сделать чтобы после выполнения программы, документ сохранялся по другим именем без программного кода, то есть просто документ.
Другими словами надо удалить макрос.

@Serg61 · 09.11.2009, 14:51

Я сам долго искал - EXCEL это будет так:
Debug.Print Application.VBE.ActiveVBProject.VBComponents(5).Name
' проверку надо сделать циклом по коллекции, там в коллекции чего только нет (книга, листы, модули, формы...)

' / а это само удаление, и даже удаляет сам себя!!!
Application.VBE.ActiveVBProject.VBComponents.Remove Application.VBE.ActiveVBProject.VBComponents(5)

Я думаю в Word-е аналогично

@sergz76 · 11.11.2009, 18:31

Пожалуйста поподробне с примером (обленился я совсем

)

@Serg61 · 11.11.2009, 21:43

Visual Basic

'Attribute VB_Name = 'Module1'
Sub программа()
  MsgBox "Работать надо головой!"
End Sub
Sub УдалениеМодуля()
' Удалаем модуль 'Module1' в документе Word
' Эта процедура описана в модуле 'Module1'
' Если другая компановка, то смотри рекомендации выше в программе
РазмерКоллекции = Application.VBE.ActiveVBProject.VBComponents.Count
For i = 1 To РазмерКоллекции
  If Application.VBE.ActiveVBProject.VBComponents(i).Name = "Module1" Then
    Счетчик = i
    Exit For
  End If
Next i
Application.VBE.ActiveVBProject.VBComponents.Remove Application.VBE.ActiveVBProject.VBComponents(Счетчик)
ThisDocument.Save  ' закрыть книгу придется вручную! Похоже на конфликты - модуль уже удален!
' для Excel 'ThisDocument' надо заменить на 'ThisWorkbook'
End Sub

21.11.2009, 07:31

Спасибо!
Как удалить весь программный код в проекте?

@Serg61 · 21.11.2009, 21:41

Определенные рекомендации есть в процедуре 'программа'...
Могу только к этому добавить, что весь программный код это набор модулей и может быть события типа открыть книгу (документ).
Для удаления модулей с известными именами надо повторять эту опиисаную выше процедуру, или поставить case в цикле...

Тема закрыта...

allen
		1
	Удаление макроса при сохранении .doc файла 29.10.2009, 14:35. Показов 4165. Ответов 5 Метки нет (Все метки) Подскажите кто знает. У меня есть мой документ(.doc) с встроенной в него программой на vba. Сам документ довольно большой, а там еше это программа. Клиентам он доступен только для просмотра. Надо сделать чтобы после выполнения программы, документ сохранялся по другим именем без программного кода, то есть просто документ. Другими словами надо удалить макрос.

@Serg61 0 / 0 / 0 Регистрация: 31.01.2008 Сообщений: 72
	09.11.2009, 14:51	2
	Я сам долго искал - EXCEL это будет так: Debug.Print Application.VBE.ActiveVBProject.VBComponents(5).Name ' проверку надо сделать циклом по коллекции, там в коллекции чего только нет (книга, листы, модули, формы...) ' / а это само удаление, и даже удаляет сам себя!!! Application.VBE.ActiveVBProject.VBComponents.Remove Application.VBE.ActiveVBProject.VBComponents(5) Я думаю в Word-е аналогично 0

@sergz76 0 / 0 / 0 Регистрация: 18.10.2009 Сообщений: 8
	11.11.2009, 18:31	3
	Пожалуйста поподробне с примером (обленился я совсем) 0

allen
	21.11.2009, 07:31	5
	Спасибо! Как удалить весь программный код в проекте?

@Serg61 0 / 0 / 0 Регистрация: 31.01.2008 Сообщений: 72
	21.11.2009, 21:41	6
	Определенные рекомендации есть в процедуре 'программа'... Могу только к этому добавить, что весь программный код это набор модулей и может быть события типа открыть книгу (документ). Для удаления модулей с известными именами надо повторять эту опиисаную выше процедуру, или поставить case в цикле... Тема закрыта... 0