подскажите как реализовать субж ?
надо чтобы перед сохранением выдавался диалог с двумя кнопками — жмем на одну сохраняется, на другую несохраняется

Здравствуйте, Аноним, Вы писали:

А>подскажите как реализовать субж ?
А>надо чтобы перед сохранением выдавался диалог с двумя кнопками — жмем на одну сохраняется, на другую несохраняется

А разве Word и Excel этого не делает?

Здравствуйте, wildwind, Вы писали:

W>Здравствуйте, Аноним, Вы писали:

А>>подскажите как реализовать субж ?
А>>надо чтобы перед сохранением выдавался диалог с двумя кнопками — жмем на одну сохраняется, на другую несохраняется

W>А разве Word и Excel этого не делает?

делает
мне надо вставить свою проверку, диалог я просто для простоты указал

Здравствуйте, Аноним, Вы писали:

А>мне надо вставить свою проверку, диалог я просто для простоты указал

Ты без простоты объясни свою общую задачу.

Здравствуйте, wildwind, Вы писали:

W>Здравствуйте, Аноним, Вы писали:

А>>мне надо вставить свою проверку, диалог я просто для простоты указал

W>Ты без простоты объясни свою общую задачу.

при попытке сохранить файл, я выполняю некоторую проверку, по результатм которой принимается решение — сохранять/не сохранять
об этом решении сообщается диалогом

Здравствуйте, Аноним, Вы писали:

Ну в Excel есть Workbook.BeforeSave, в Ворде Application.DocumentBeforeSave.

Здравствуйте, wildwind, Вы писали:

W>Здравствуйте, Аноним, Вы писали:

W>Ну в Excel есть Workbook.BeforeSave, в Ворде Application.DocumentBeforeSave.

большое спасибо

Здравствуйте, wildwind, Вы писали:

W>Здравствуйте, Аноним, Вы писали:

W>Ну в Excel есть Workbook.BeforeSave, в Ворде Application.DocumentBeforeSave.

сделал по статье в мсдн

создал документ .dot, в проекте vb
добавил модуль

Dim objEventHandler As clsEventHandler

Sub CreateEventHandler()
Set objEventHandler = New clsEventHandler
Set objEventHandler.AppThatLooksInsideThisEventHandler = Word.Application
End Sub

Sub DestroyEventHandler()
Set objEventHandler = Nothing
End Sub

Sub AutoExec()
MsgBox "exec"
CreateEventHandler
End Sub

Sub AutoExit()
MsgBox "exit"
DestroyEventHandler
End Sub

добавил класс:

Public WithEvents AppThatLooksInsideThisEventHandler As Word.Application

Private Sub AppThatLooksInsideThisEventHandler_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "oooo" 'Doc.FullName
End Sub

в worde (2003)
Tools->Template And Add-ins
добавляю мой .dot файл
нажимаю сохранить — ничего не происходит
если пойти в Tools->Template And Add-ins и удалить мой .dot файл, то вылазит диалог exit
т.е. AutoExit вызвалась, а AutoExec нет. в чем может быть проблема ?