Как програмно добавить обработчик сообытия в док MSOffice

[WERT]

Привет народ.
Есть проблемка. Создаю в ASP вордовский документ

Dim sApp
Set sApp = CreateObject ("Word.Application")

sApp.Visible = TRUE
sApp.Documents.Add

sApp.ActiveDocument.SaveAs "c:\Path\qqqq.rtf",6,False,"",True,"",False,False,False,False,False

все вроде хорошо, но хотелось бы что бы юзер не смог этот докумет сохранить как, или (что лутше) мог сохранить как, но и сохранил бы его скопией по первоначальному пути чтобы потом можно его было подобрать, т.е. необходимо в документ втиснуть обработчик события "Сохранить как". Отключение кнопки не рулит.
Заранее благодарен

[Naeel Maqsudov]

Здесь ранее обсуждалась тема добавления обработчиков событий элементов управления (есть работающий пример).
Думаю, Ваш случай аналогичен.

[WERT]

Если не сложно то или ссылку или пример

[WERT]

Что я смог нарыть то это

sss = "Sub Document_Close() " & Chr(10) & Chr(13) & _
" MsgBox(1) "& Chr(10) & Chr(13) & _
"End Sub"
qqq = Doc.Scripts.Add(, ,,,,sss)

но гад не хотит работать при закрытии
Могет это не из той оперы Помогите ПЛЗ

[WERT]

Нашел

With Application.ActiveDocument.VBProject.VBComponents(1).CodeModule
.InsertLines .CountOfLines + 1, "Sub Document_Close()"
.InsertLines .CountOfLines + 1, " Msgbox (""Hello"")""
.InsertLines .CountOfLines + 1, "End Sub" & Chr(13)
End With