Макросы и безопасность

Введение 

       В приложении Microsoft Office Word 2003 часто выполняемые задачи можно автоматизировать путем создания макросов. Макрос — это набор команд и инструкций, группируемых вместе в виде единой команды для автоматического выполнения задачи.

       Как правило, макросы используются для:

• ускорения часто выполняемых операций редактирования или форматирования;
• объединения нескольких команд, например вставки таблицы с определенными размерами, границами и числом строк и столбцов;
• упрощения доступа к параметрам в диалоговых окнах;
• автоматизации обработки сложных последовательных действий в задачах.

       Макросы бывают двух типов: внутренние и внешние. Внутренние внедряются непосредственно в документ или шаблон и могут быть выполнены, только если пользователь работает с данным файлом. Если вы создали макрос для шаблона Normal, то его можно будет выполнять только для документов, созданных на основе этого шаблона. Преимущество таких макросов в том, что они вместе с документом перемещаются по жесткому диску, а также с компьютера на компьютер.

       Внешний макрос можно применять в случае, если он полезен при работе с документами, созданными на основе разных шаблонов. Если вы пользуетесь большим количеством  шаблонов, то вносить в каждый из них макрос будет неудобно, как  придется делать при использовании внутреннего макроса. Внешний же макрос можно применять для работы с любыми документами, а также свободно переносить с компьютера на компьютер. Для создания внешнего макроса его нужно сохранить с расширением BAS.

 

       Задание

 

Значения  для поля «Факультет»:

3 – Машиностроительные  технологии и оборудование

Значения  для поля «Кафедра»:

3 – Экономика  и менеджмент

Значения  для поля «Название  документа»:

3 – Контрольная  работа

Значения  для поля «Название  курса»:

0 – вводится  пользователем с помощью InputBox 

       Макросы и безопасность

       В то время как большинство макросов не только безвредны, но и полезны, макросы  представляют собой важную проблему безопасности. Макрос, созданный с вредительскими целями, может содержать код, который повлечет повреждение или уничтожение документа и даже всей системы. Чтобы защитить систему и файлы, не следует включать макросы из неизвестных источников. Чтобы иметь возможность включать и отключать макросы и при этом иметь доступ ко всем макросам, которые необходимо использовать, в приложениях семейства Office необходимо установить средний уровень безопасности (рисунок 1,2). Чтобы установить уровень безопасности в приложении семейства Office, в котором можно использовать VBA-макрос, в меню Сервис выберем команду «Макрос», а затем — «Безопасность». Выберем необходимый уровень безопасности и нажмите ОК. Меню «Сервис / Макросы / Безопасность» (Рис. 1 и 2).

    

Рисунок 1 - Меню Сервис -> Макрос -> Безопасность

       

       Рисунок 2 – Макросы и безопасность

       Тогда мы сможем включать или выключать макросы каждый раз при открытии файла, который содержит макрос, и при этом сможем запускать любой макрос по выбору.  

    Создание макроса 

     Макросы можно создавать с помощью средства для записи макросов или введя его код на языке Visual Basic для приложений в редакторе Visual Basic.

     Можно использовать и оба метода сразу: записать часть шагов, а затем  расширить макрос с помощью программного кода.

        Алгоритм работы с макрорекордером выглядит так:

    1. Включить запись макроса, настроив некоторые параметры;

    2. Выполнить действия, которые вы хотели бы автоматизировать;

    3. Остановить запись;

    4. Использовать записанный макрос по необходимости.

    Выберем вкладку Сервис, выберем пункт Макрос, выберем пункт с надписью Начать запись (Рис. 3).

    

    Рисунок 3 -  Начало записи макроса

    Появится  окно для настройки свойств макроса (Рис. 4).

    

    Рисунок 4 -  Окно для настройки  свойств макроса

    Имя макроса: в это поле нужно ввести имя макроса. Имена макросов должны начинаться с буквы, не должны содержать пробелов и символов пунктуации. Максимальная длина в Excel — 64 символа, в Word — 80 символов. Можно писать по-русски. Желательно давать макросам какие-нибудь осмысленные имена. Например, Формат_Times_Красный.

    Назначить макрос кнопке: диалоговое окно назначения макроса настраиваемой кнопке.

    Назначить макрос клавишам: диалоговое окно назначения макроса сочетанию клавиш на клавиатуре.

    В поле Макрос доступен для надо выбрать место сохранения макроса, которое определяет его доступность для различных документов. По умолчанию здесь выбран параметр для всех документов (Normal.dot).

    В поле Описание содержится описание макроса. Вы вполне можете оставить его пустым.

    Кнопка  OK начинает запись макроса. Но до начала записи воспользуемся кнопкой Назначить макрос клавишам. Появится окно настройки комбинации клавиш для запуска макроса.

    Чтобы назначить макросу сочетание клавиш, нужно установить курсор в поле Новое сочетание клавиш и нажать нужное сочетание на клавиатуре. В случае, если это сочетание не назначено ранее для быстрого вызова каких-либо команд, под полем Текущие сочетания мы увидим надпись Текущее назначение: [нет] (Рис. 5).  

 

    Рисунок 5 -  Окно назначения сочетания клавиш макроса

    Теперь  нажмем на кнопку Назначить. Выбранное сочетание клавиш переместиться в поле Текущие сочетания. Нажав кнопку Закрыть, мы завершаем настройку горячих клавиш для нашего будущего макроса и начинаем его запись.

    В процессе записи макроса Указатель мыши при этом примет вид магнитофонной кассеты и появится маленькая панель Остановить запись. На ней всего две кнопки — Остановить запись и Пауза.

       При появлении панели записи макроса:

1. Создать новый документ Word
2. Набрать текст титульного листа

       После описанных выше действий нажмем кнопку «ОК» и остановим запись. Макрос готов.

     Для  создания диалогового окна InputBox, зайдем в код созданного макроса. Для этого в диалоговом окне Макрос выберем созданный макрос и нажмем кнопку Изменить.

     Найдем  место, где к курсу должно вписаться название введенного пользователем курса через диалоговое окно.

Впишем код:

       Dim sInput As String     ' введенный текст хранится в переменной

           sInput = InputBox ("Введите значение для поля Название курса", "Ввод данных")

           Selection.TypeText Text:=("по курсу: " & sInput) ' пишется это слово

          

       При запуске макроса назначенным сочетанием клавиш появится окно (Рис. 6)

       

       Рисунок 6 – Диалоговое окно для ввода названия курса 

Итак, программа на языке  Visual Basic For Applications для создания макроса будет выглядеть следующим образом:

Sub Макрос1()

'

' Макрос1 Макрос

' Макрос записан  21.12.2010 Admin

' Ctrl + Shift+ Alt + R ‘назначенные клавиши

    Documents.Add DocumentType:=wdNewBlankDocument ‘создание нового док-та

    Application.Move Left:=390, Top:=21

    With ActiveDocument.Styles(wdStyleNormal).Font

        If .NameFarEast = .NameAscii Then

            .NameAscii = ""

        End If

        .NameFarEast = ""

    End With

  

    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter ‘выравнивание

    Selection.Font.Size = 14 ‘ размер шрифта                                              по центру

    With Selection.ParagraphFormat

        .SpaceAfter = 6

    End With

        Selection.ParagraphFormat.LineSpacing = LinesToPoints(1) ‘интервал Одинарный

        Selection.TypeText Text:="МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ"

    Selection.TypeParagraph

    With Selection.ParagraphFormat

        .SpaceAfter = 0

    End With

    Selection.TypeText Text:="ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ  УЧРЕЖДЕНИЕ"

    Selection.TypeParagraph

    Selection.TypeText Text:="ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ"

    Selection.TypeParagraph

    Selection.TypeText Text:="ДОНСКОЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ"

    Selection.ParagraphFormat.LineSpacing = LinesToPoints(1.5) ‘интервал Полуторный

    Selection.TypeParagraph

    Selection.TypeParagraph

    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft ‘выравнивание по

    Selection.TypeText Text:=("Факультет: ")                                      по левому краю

    Selection.Font.Underline = wdUnderlineSingle ‘нижнее почеркивание

    Selection.TypeText Text:="Машиностроительные технологии и оборудование"

    Selection.Font.Underline = wdUnderlineNone

    Selection.TypeParagraph  ‘нажатие клавиши Enter, т.е. новая строка

    Selection.TypeText Text:=("Кафедра: ")

    Selection.Font.Underline = wdUnderlineSingle

    Selection.TypeText Text:="Экономика и менеджмент"

    Selection.Font.Underline = wdUnderlineNone

    Selection.TypeParagraph

    Selection.TypeParagraph

    Selection.TypeParagraph

    Selection.TypeParagraph

    Selection.TypeParagraph

    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter   ‘выравнивание

    Selection.Font.Size = 20                                                                          по центру  

    Selection.TypeText Text:=("КОНТРОЛЬНАЯ РАБОТА")

    Selection.TypeParagraph

    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft

    Selection.Font.Size = 14

   Dim sInput As String  ‘sInput – переменная для введенного текста

    sInput = InputBox("Введите значение для поля Название курса", "Ввод данных")