Дана курсова робота служить для заповнення прогалини в цій справі. Головним її завданням є допомогти майбутнім фахівцям з документознавства оволодіти знаннями та навичками комп’ютерної обробки їнформації.

1. Постановка задачі

Підготувати контрольний текст MS Word для випробування макроса, виготовити та випробувати макрос, призначений для пошуку в тексті і виводу на екран слів з м’яким знаком,і окраски цих слів в червоний колір.

2. Виконання роботи

2.1. Текст програм

Sub Krob_var6()

Dim i As Integer, j As Integer, k As Integer

For i = 1 To ActiveDocument.Words.Count

k = 0

For j = 1 To ActiveDocument.Words(i).Characters.Count

If ActiveDocument.Words(1).Characters(j) = "ь" Then k = k + 1

Next j

If k > 1 Then ActiveDocument.Words(i).Font.Color = wdColorRed

Next i

End Sub

2.2. Словесний алгоритм програм

Програма містить два вкладені цикли. Параметром зовнішнього циклу є змінна і. Зовнішній цикл служить для перебору слів тексту MS Word. В якості параметра внутрішнього циклу використовується змінна j. Внутрішній цикл служить для перебору букв кожного слова. У внутрішньому циклі міститься розгалуження. Воно призначене для пошуку мякого знака в слові та підрахунку кількості таких випадків, а також окраски того слова в червоний колів, яке містить більше одного мякого знака.

2.3. Таблиця ідентифікаторів програм

Ім’я змінної в програмі | Призначення змінної

i | змінна цілого типу, параметр циклу

j | змінна цілого типу, параметр циклу

k | Кількість букв “ь”

2.4. Опис одержаних результатів

Для випробування програми використовувався такий контрольний текст:

Сьогодьні падав дощ. Але надворі було тепло.

Після запуску програми, в слові сьогодьні було знайдено зайвий м’який знак, і виділене це слово в червоний колір.

3. Перелік та короткий опис використаних програмних засобів

3.1. Створення макроса за допомогою макрорекордера

Мета роботи: освоєння прийомів виготовлення макроса в середовищі додатків до Windows 95, програмування макроса шляхом виконання певного переліку операцій над документом і автоматичного запису цих операцій у вигляді інструкцій мови Visual Basic for Application, запуску та перевірки роботи макроса.

Макрос представляє собою програму, написану мовою Visual Basic for Application. Він призначений для автоматизації рутинної та непродуктивної роботи з документами. Як правило, макроси використовують для розширення можливостей додатків до Windows 95, зокрема MS Word, MS Excel та ін. Зберігається макрос у тому самому файлі, де знаходиться документ, який він обробляє.

Макрос можна виготовити за допомогою макрорекордера або редактора Visual Basic. Макрос, виготовлений за допомогою макрорекордера, має обмежені можливості, бо може виконувати лише види робіт, передбачені додатком. Рекомендується виготовляти макрос за допомогою макрорекордера, а потім доповнювати його засобами Visual Basic за допомогою редактора макросів.

Для виготовлення макроса за допомогою макрорекордера служить команда головного меню: Сервіс – Макрос – Почати запис. Під час виконання цієї команди появляється вікно Запис макроса, призначене для найменування макроса. Макрорекордер пропонує свої варіанти імен – Макрос1, Макрос2 і т. д., можна погодитися з ним і натиснути клавішу Ok. Після цього необхідно виконати всі роботи, які повинен буде повторити макрос. Для закінчення запису макроса служить команда Припинити запис із одноіменного віконця, розташованого на фоні документа. Якщо це віконце випадково виявилося відсутнім, його можна встановити командою головного меню: Вигляд – Панелі інструментів – Припинити запис.

Всі операції над документом, виконані під час запису макроса, виявляться записаними у вигляді інструкцій Visual Basic. Текст макроса можна переглянути і відредагувати за допомогою команди головного меню: Сервіс – Макрос – Макроси, яка викликає вікно Макрос. У цьому вікні вибираємо команду Змінити, після чого появляється вікно редактора макросів Microsoft Visual Basic з текстом макросів. Запуск готового макроса забезпечується командою Виконати з вищезгаданого вікна Макрос.

Приклад. Постановка задачі: виготовити макрос, який додає в кінець тексту відкритого документа MS Word слова “До зустрічі”, окрашені в червоний колір. Описати команди одержаного макроса.

Виготовлення макроса:

відкриваємо документ MS Word;

виконаємо команду головного меню: Сервіс – Макрос – Почати запис;

у вікні Запис макроса погодимось на пропозицію рекордера назвати новий макрос Макрос1 (може бути Макрос2, Макрос3 і т.д.), натиснемо клавішу Ok;

появляється вікно Документ MS Word, у ньому перенесемо курсор на кінець тексту командою Ctr+End;

вносимо текст До зустрічі.;

натискаємо клавішу Home для переводу курсора на початок рядка;

натискаємо клавіші Shift+End для виокремлення рядка;

на панелі інструментів Малювання вибираємо колір шрифту – Червоний;

у вікні Припинити запис натискаємо клавішу Припинити запис, вона має вигляд заштрихованого синім кольором квадратика.

Перегляд тексту макроса:

у вікні Документ MS Word виконуємо команду Сервіс – Макрос – Макроси;

у вікні Макрос вибираємо ім’я макроса та команду Змінити.

Текст макроса у вікні MS Visual Basic має вигляд:

Sub Макрос1()‘‘

Макрос1 Макрос‘

Макрос записан 30.11.02 DroNgo‘

Selection.EndKey Unit:=wdStory

Selection.TypeText Text:=”До зустрічі.”

Selection.HomeKey Unit:=wdLine

Selection.EndKey Unit:=wdLine, Extend:=wdExtend

Selection.Font.Color = wdColorRed

Selection.TypeParagraph

End Sub

Опис інструкцій макроса:

Sub Макрос1() – початок програми, назва макроса;‘

‘ Макрос1 Макрос

‘ Макрос записан 30.11.02 DroNgo

‘ – коментарі програми, які не виконуються, вони служать для пояснення програми;

Selection.EndKey Unit:=wdStory – перенесення курсора на кінець тексту відкритого документа;

Selection.TypeText Text:=”До зустрічі.” – занесення тексту До зустрічі;

Selection.HomeKey Unit:=wdLine – перенесення курсора на початок рядка тексту;

Selection.EndKey Unit:=wdLine, Extend:=wdExtend – виокремлення рядка тексту;

Selection.Font.Color = wdColorRed – надання виокремленому фрагменту червоного кольору;

Selection.TypeParagraph – переведення курсора на наступний рядок;

End Sub – кінець програми.

Виконати макрос можна, натиснувши кнопку-команду Виконати у вікні Макрос або у вікні редактора Microsoft Visual Basic.

3.2. Редагування макроса за допомогою редактора Visual Basic

Мета