VB: удалить макрос

[vuk]

есть макрос в Ворде который автоматически стартует при открытии документа ("Private Sub Document_Open()") выполняет некоторые действия и потом сохраняет новый документ.
Проблема в том, что в новом сохраненном файле макрос не нужен совершенно.
делаю следующее:

ThisDocument.SaveAs FileName:="F:\" + variable + ".doc"

 Application.OrganizerDelete Source:= _
        "F:\" + variable + ".doc" _
        , Name:="Имя макроса", Object:=wdOrganizerObjectProjectItems 'криво, я знаю :)

получаю:

"Run-time error 5936
элемент проекта не может быть удален"

подозреваю, это потому что работающий макрос сам себя удалить не может, но не создавать же новый файл с отдельным "удалятелем"...
задача максимум: удалить макрос в новом документе
задача минимум: убрать автостарт макроса в новом документе

Отвечу по старой памяти.
Если удерживать SHIFT при открытии, то макрос работать не будет...

Либо как вариант, отключить вообще макросы, потом отредактировать, потом включить.

[vuk]

не вариант, автоматика нужна, для того и макрос

[LightImage]

Удаление всего VBA-проекта для Excel, для Word думаю будет аналогично:

Private Sub DelProject()
' Полная очистка всего VBA-проекта
' Использовать осторожно!
' В Excel 2002 для того, чтобы эта функция выполнилась, надо
' зайти в меню Сервис/Макрос/Безопасность и на вкладке
' "Надежные источники" поставить галочку "Доверять доступ к Visual Basic Project"
Dim prj, x, MeVBComponent
Const vbext_ct_StdModule As Integer = 1
Const vbext_ct_ClassModule As Integer = 2
Const vbext_ct_MSForm As Integer = 3
Const vbext_ct_ActiveXDesigner As Integer = 11
Const vbext_ct_Document As Integer = 100
    Set prj = VBProject.VBComponents
    For Each x In prj
        Select Case x.Type
            Case vbext_ct_StdModule, vbext_ct_ClassModule, _
                vbext_ct_MSForm, vbext_ct_ActiveXDesigner
                prj.Remove x
            Case vbext_ct_Document
                If x.Name = Me.CodeName Then
                    Set MeVBComponent = x
                Else
                    x.CodeModule.DeleteLines 1, x.CodeModule.CountOfLines
                End If
        End Select
    Next
    If Not IsEmpty(MeVBComponent) Then
        MeVBComponent.CodeModule.DeleteLines 1, MeVBComponent.CodeModule.CountOfLines
    End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Пример использования функции очистки проекта
    If Me.FileFormat <> xlTemplate Then
        DelProject
    End If
End Sub

Про _автоматическое_ удаление макросов пока подсказать не могу.
P.S. Зато можно сохранить документ в формате RFT (в нем макросов не будет), потом, если нужно, этот rtf можно снова сохранить в doc:

ThisDocument.SaveAs FileName:="F:\" + variable + ".doc", FileFormat:=wdFormatRTF

[vuk]

Set prj = VBProject.VBComponents -> object required
If x.Name = Me.CodeName Then -> Method or data member not found

с RTF задача минимум выполнена, псиб.

vuk:
Проблема в том, что в новом сохраненном файле макрос не нужен совершенно.
делаю следующее

Если только отключить макрос в другом документе, то можно просто сравнивать:

Допустим, начальный документ start.doc

Private Sub Document_Open()
If ActiveWindow.Document.Name = "start.doc" Then
MsgBox ("Начали!")
Else
Exit Sub
End If
End Sub

Вместо MsgBox макрос, который надо запустить.
Если не start.doc, то не запускается.


А там, наверно, и удалить лишнее можно...

А про Excel можете написать, пожалуйста, как в нем удалить макрос программным путем?

[EvroStandart]

А если создать из макроса новый документ и скопировать туда что нужно?