Sub Открыть_закрыть_панель_буфера_обмена_Альт_я()
If CommandBars("Task Pane").Visible = False Then
WordBasic.EditOfficeClipboard 'открывание панели буфера обмена для офиса 2003, 2007
Else
CommandBars("Task Pane").Visible = False 'закрывание панели буфера обмена для офиса 2003
End If
2.
Sub AutoExec()
'AutoExec работает при запуске Word или загрузке глобального шаблона
CommandBars("Task Pane").Visible = False 'убрать панель Приступая к работе (находится справа от документа)
End Sub
3.
Sub AutoNew()
'AutoNew - макрос работает только будучи написанным в шаблоне, на основании которого создается новый документ Ворд
'уточнение наличия элемента управления с именем ... в документе Ворд
On Error Resume Next
ActiveDocument.Frame_рамка_каркас.Caption = ""
If Err.Number = 438 Then 'условие, если ..., тогда значит нет такого элемента управления с именем ..., ошибка 438 Object doesn't support this property or method то есть - Объект не поддерживает это свойство или метод
Else 'в противном случае сделать ...
If Len(Dir$("D:", vbDirectory)) = 0 Then 'условие, если ..., тогда диск ... не существует, дословно если длина имени пути - Dir$ диска больше нуля тогда диск ... существует
MsgBox$ "Диск D, на котором должны находиться файлы в папке с именем: D:\Рабочая папка\Пользователь для обеспечения программы не существует", vbOKOnly, "ВНИМАНИЕ": Exit Sub 'вывести надпись указанную в кавычках из строк-Chr$(13), столбцов-Chr$(9), выйти из программы
ElseIf Len(Dir$("D:\Рабочая папка", vbDirectory)) = 0 Then 'условие, если ..., тогда папка ... на диске ... не существует, дословно если длина имени пути - Dir$ папки .. на диске ... больше нуля тогда папка ... не существует
MsgBox$ "На диске D папка с именем: D:\Рабочая папка, в которой должна находится папка с именем: D:\Рабочая папка\Пользователь, в которой должны находиться файлы для обеспечения программы не существует", vbOKOnly, "ВНИМАНИЕ": Exit Sub 'вывести надпись указанную в кавычках из строк-Chr$(13), столбцов-Chr$(9), выйти из программы
ElseIf Len(Dir$("D:\Рабочая папка\Пользователь", vbDirectory)) = 0 Then 'условие, если ..., тогда папка ... на диске ... не существует, дословно если длина имени пути - Dir$ папки .. на диске ... больше нуля тогда папка ... не существует
MsgBox$ "На диске D папка с именем: D:\Рабочая папка\Пользователь, в которой должны находиться файлы для обеспечения программы не существует", vbOKOnly, "ВНИМАНИЕ": Exit Sub 'вывести надпись указанную в кавычках из строк-Chr$(13), столбцов-Chr$(9), выйти из программы
End If
End If
CommandBars("Task Pane").Visible = False 'убрать панель Приступая к работе (находится справа от документа)
4.
Sub AutoOpen()
'AutoOpen - макрос работает при открытии того документа Ворд, в котором присутствует данный макрос
'уточнение наличия элемента управления с именем ... в документе Ворд
On Error Resume Next
ActiveDocument.Frame_рамка_каркас.Caption = ""
If Err.Number = 438 Then 'условие, если ..., тогда значит нет такого элемента управления с именем ..., ошибка 438 Object doesn't support this property or method то есть - Объект не поддерживает это свойство или метод
Else 'в противном случае сделать ...
If Len(Dir$("D:", vbDirectory)) = 0 Then 'условие, если ..., тогда диск ... не существует, дословно если длина имени пути - Dir$ диска больше нуля тогда диск ... существует
MsgBox$ "Диск D, на котором должны находиться файлы в папке с именем: D:\Рабочая папка\Пользователь для обеспечения программы не существует", vbOKOnly, "ВНИМАНИЕ": Exit Sub 'вывести надпись указанную в кавычках из строк-Chr$(13), столбцов-Chr$(9), выйти из программы
ElseIf Len(Dir$("D:\Рабочая папка", vbDirectory)) = 0 Then 'условие, если ..., тогда папка ... на диске ... не существует, дословно если длина имени пути - Dir$ папки .. на диске ... больше нуля тогда папка ... не существует
MsgBox$ "На диске D папка с именем: D:\Рабочая папка, в которой должна находится папка с именем: D:\Рабочая папка\Пользователь, в которой должны находиться файлы для обеспечения программы не существует", vbOKOnly, "ВНИМАНИЕ": Exit Sub 'вывести надпись указанную в кавычках из строк-Chr$(13), столбцов-Chr$(9), выйти из программы
ElseIf Len(Dir$("D:\Рабочая папка\Пользователь", vbDirectory)) = 0 Then 'условие, если ..., тогда папка ... на диске ... не существует, дословно если длина имени пути - Dir$ папки .. на диске ... больше нуля тогда папка ... не существует
MsgBox$ "На диске D папка с именем: D:\Рабочая папка\Пользователь, в которой должны находиться файлы для обеспечения программы не существует", vbOKOnly, "ВНИМАНИЕ": Exit Sub 'вывести надпись указанную в кавычках из строк-Chr$(13), столбцов-Chr$(9), выйти из программы
End If
End If
CommandBars("Task Pane").Visible = False 'убрать панель Приступая к работе (находится справа от документа)
