Developing.ru

Привет народ.
Есть проблемка. Создаю в 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

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

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

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

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

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

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

Нашел

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