- •1. Автоматизація підготовки юридичних, методичних та наукових документів на основі макросів
- •Загальні відомості
- •Основні методи створення макросів
- •1.2.1. Створення “свого” макросу за допомогою рекордера
- •1.2.2. Написання тексту процедури і її модернізація.
- •1.2.3. Створення кнопок користувача та панелеї інструментів
- •1.3. Приклади запису макросів ms word
- •1.3.1. Форматування слова чи фрази
- •1.3.2. Оформлення зауважень
- •1.3.3. Підпис до малюнків
- •1.4. Створення макросу у середовищі ms Excel
- •1.4.1. Форматування виділених осередків
- •1.4.2. Написання макросу в редакторі vba
- •1.5. Повторення дій у середовищі vba
1.3.2. Оформлення зауважень
Нехай при написанні деякого звіту чи статті вам необхідно виділяти яким-небудь особливим способом частини тексту, у яких ви хочете або висловити свою думку, дати пораду чи попередити читача про що-небудь. У таких випадках непогано було б помістити в текст заголовок, наприклад, слово Зауваження синього кольору і виділити абзац тексту зауваження, наприклад, рамкою і червоним шрифту, тобто відмінним від іншого тексту стилем.
Створимо нові стилі в наступній послідовності.
Спочатку краще створити стиль Зауваження_текст для абзацу, що попередньо має границю типу Объмная і шрифт червоного кольору, причому як стиль наступного абзацу вибрати стиль Основной текст. (рис.1.5.)
Рис. 1.5. Вікно ”Изменение стиля”
Потім після виділення якого-небудь іншого абзацу і форматування його синім кольором з атрибутом напівжирного потрібно створити стиль Зауваження_заголовок, причому як стиль наступного абзацу вибрати стиль Зауваження_текст. (рис.1.6)
Рис. 1.6. Вікно “Изменение стиля”
Тепер створимо макрос для оформлення зауважень:
Перейти на новий рядок тексту натисканням клавіші Enter.
По команді СервисМакросНачать запись почати запис макросу з ім'ям Зауваження; додати до існуючого опису, наприклад, таке : Підготовляє текст - зауваження до документа.
Клацнути на кнопці Назначить макрос клавишам і з появою вікна Настройка клавиатуры натиснути комбінацію клавіш, наприклад, Ctrl+Alt+З, а потім – кнопки Назначить і Закрыть.
Після появи на екрані панелі Останов вибрати на панелі стилів стиль Зауваження_заголовок, увести слово Зауваження (цим стилем) і натиснути Enter.
Зупинити запис макросу.
Перевірити макрос Зауваження можна шляхом натискання комбінації клавіш Ctrl+Alt+З, попередньо перейшовши на новий рядок тексту. Власне текст зауваження вводиться в абзаці з рамкою і закінчується це введення натисканням клавіші Enter.
1.3.3. Підпис до малюнків
Якщо створюваний документ буде містити велике число малюнків, то корисним буде макрос, що буде автоматично задавати номер чергового малюнка деяким власним стилем і встановлювати стиль підпису під малюнком. Після виконання такого макросу залишається тільки ввести текст підпису. Виконаєте наступні кроки:
Створіть стиль Рис_текст, вибравши шрифт Arial з абзацом без відступу і стилем наступного абзацу Основной текст.
Створіть стиль Рис_номер, вибравши шрифт Arial з абзацом з відступом 0,5см і атрибутом напівжирний.
По команді Сервис-Макрос-Начать запись почати запис макросу з ім'ям Номер_малюнка; додайте до існуючого опису, наприклад, таке :Автоматично нумерує малюнок, установлює стиль підпису малюнка.
Клацніть на кнопці Назначить макрос клавишам і з появою вікна Настройка клавиатуры натисніть комбінацію клавіш, наприклад, Ctrl+Alt+N, а потім – кнопки Назначить і Закрыть.
Після появи на екрані панелі Останов виконайте команду Вставка-Название для висновку вікна Название; клацніть у цьому вікні на кнопці Создать й у вікні Новое название введіть, наприклад, Рис.1. і клацніть на кнопці ОК , а у вікні Название знову – ОК.
У результаті на екрані з'явиться текст Рис.1.х, де х – це номер чергового малюнка; установите стиль поточної рядка Рис_номер і натисніть Enter.
Зупинити запис макросу.
Тому що в ході створення стилів для макросу в тексті документа Word могли бути внесені небажані зміни, видалите їх. Випробуйте створений макрос вставкою 4-5 картинок з галереї ClipArt ( командою Вставка-Рисунок-Картинки, а після вибору категорії і малюнка вставте його в документ шляхом вибору команди Добавить з контекстного меню, викликуваного правою кнопкою миші). Постачите їхній придатними підписами, виконуючи макрос комбінацією клавіш Ctrl+Alt+N.
