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

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

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

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

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

Текст програми:

Sub Slova()

m = ActiveDocument.Sentences.Count

For i = 1 To m

n = ActiveDocument.Sentences(i).Words.Count

For j = 1 To n

slo = ActiveDocument.Sentences(i).Words(j)

For k = j + 1 To n

If slo = ActiveDocument.Sentences(i).Words(k) Then _

ActiveDocument.Sentences(i).Words(j).Font.Color = wdColorGreen: _

ActiveDocument.Sentences(i).Words(k).Font.Color = wdColorRed

Next k

Next j

Next i

End Sub

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

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

.

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:=”До зустрічі.” – занесення