сору.
Виконати послідовність дій, що є тілом макросу. За умовою - ці дії змінюють колір шрифту попередньо виділеного тексту (команда Формат-Шрифт, у полі Колір встановити необхідний колір). Зазначимо, що всі виконувані під час запису макросу дії протоколюються. Тому необхідно уникати виконання помилкових дій.
Завершити запис макросу, натиснувши піктограму Стоп в піктографічне меню.
Створення макросу програмуванням. Основа процесу - написання програми мовою VBA. Розглянемо процес створення макросу на конкретному прикладі.
Приклад 2. Створити макрос, який перекодовує набрані в документі російськомовні символи в англомовні і навпаки. Даний макрос корисний при роботі з двомовними текстами. Часто при наборі тесту користувачі не дивляться на екран. В результаті можлива ситуація, коли частина символів виявляється набраної не на тій розкладці клавіатури. При виявленні цього набраний текст доводиться видаляти і, переключившись, набирати повторно. Створення і використання запропонованого макросу дозволить уникнути цієї незручності.
Реалізуємо послідовність дій.
Виконати команду Сервіс-Макрос- PedaicmopVisual Basic .
У вікні редактора Visual Baric виконати команду Вставіт'-Модул' (Insert-Module).
У полі Ім'я f Name.) вікна Властивості (Properties) вказати ім'я створюваного макросу (Наприклад, Перекодування Тексту). p> У вікні редактора набрати програму Перекодування Тексту на мові VBA.
Далі наводиться текст програми:
Sub Перекодування Тексту () On Error Resume Next
Dim n As Integer 'Лічильник
Dim strSetRus As String ' Символи російської розкладки
'клавіатури
Dim strSetEng As String ' Символи англійської розкладки Dim strMisStr As String ' Вихідна помилкова рядок Dim strCurrChar As String 1 Поточний символ Dim numChrPos As Integer 'Номер позиції поточного символу Dim strNewStr As String ' перекодувати рядок strMisStr = Selection.Text 'Визначимо вихідну помилкову
'рядок
'Символи англійської та відповідної їй російською 'розкладки
StrSetEng = "QWERTYUIOP ... qwertyuiop"
StrSetRus = "JlIiyKEHnfflU3Xb ... i4uyKeHriinu3Xb ...."
'Аналізуємо символи вихідного рядка For n = 1 Те Len (strMisStr)
'Витягуємо поточний символ strCurrChar = Mid (strMisStr, n, 1)
'Визначимо позиції поточного символу в англійській
1 розкладці
numChrPos = InStr (StrSetEng, StrCurrChar)
' Символ належить англійській розкладці If numChrPos <> 0 Then 'Замінюємо на російську
strCurrChar = Mid (strSetRus, numChrPos, 1) Else
' Визначаємо позицію
numChrPos = InStr (StrSetRus, StrCurrChar)
'Замінимо латинським
strCurrChar = Mid (strSetEng, numChrPos, 1) End If
1 Формуємо перекодувати рядок . strNewStr = strNewStr 4 strCurrChar Next n
'Міняємо рядок на перекодувати Selection.Text = StrNewStr End Sub
5. Зберегти створений макрос і закрити вікно редактора Visual Basic .
В результаті виконання цих дій створений макрос перекодування виділених російськомовних символів в англомовні і навпаки.
Існують три основні способу виклику макросу:
натисканням комбінації клавіш (В«гарячихВ» клавіш);
за допомогою піктографічного меню;
з використанням команд основного меню.
Вибір способу запуску макросу визначається самим користувачем виходячи з власних потреб та уподобань. Так, наприклад, перший спосіб доцільно використовувати для запуску найбільш часто виконуваних макрокоманд. Другий спосіб відрізняє наочність запуску. Третій ілюструє можливість вводити в основне меню власні команди і тим самим удосконалювати меню Word.
Розглянемо один з способів налаштування - виклик макросу за допомогою піктографічного меню. Для настройки виконуються наступні операції:
1. Вибрати в основному меню команду Cepeuc -Настройка. У вікні Налаштування вибрати вкладку Команди.
Встановити в поле Категорії елемент Макрос.
Вибрати з поля Команди, яке містить перелік імен існуючих макросів активного шаблону, ім'я викликається макросу (у нашому прикладі - Перекодування Тексту) і встановити на ньому покажчик миші.
При натиснутій лівій кнопці миші відбуксирувати що з'явилася рамку піктограми в рядок піктографічного меню. При цьому вже знаходяться в цьому рядку піктограми зсуваю...
