Хід роботи

1. Створити папку Лаб_2в робочій папці з вашим прізвищем за шляхомD:\ФормаНавчання\НазваГрупи\Прізвище\Лаб_2, в якій створити документ Microsoft Word з назвоюЗвіт_Лаб_2_ПрізвищеСтудента.

2. Провести аналіз завдання (рис. 2.3).

Запрошуємо Вас взяти участь в презентації нової методики з маркетингу та цінних паперів. Презентація відбудеться (число та місяць) поточного року.

Контактний телефон: (номер контактного телефону).

З повагою, голова оргкомітету (прізвище та ініціали студента)

Рис. 2.3. Зразок тексту запрошення на презентацію, процес створення якого слід автоматизувати

3. Відповідно до першого етапу постановки (аналогічно до лаб. 1) визначити задачу автоматизації, її характеристики та особливості.

4. Розбити загальну задачу на підзадачі, визначити їх характеристики та особливості та обґрунтувати вибір аналогу (використання макросів) для вирішення поставленої задачі.

5. Створення макросу Запрошення.

У вікні відкритого файлу Звіт_Лаб_2_ПрізвищеСтудентавиконати командиСервисМакросНачать запись. Ввести ім’я макросу (рис. 2.4).

Примітка! Ім’я нового макросу (до 80 символів) може містити тільки літери і цифри (пропуски та інші символи заборонені), але повинно починатися з літери. Якщо введене ім’я не є коректним, програма видає помилкуInvalid procedure name.

Рис. 2.4. Початок створення макросу

Примітка! Можна також створити кнопку на панелі інструментів або призначити комбінацію клавіш для запуску нового макросу. Якщо Ви не призначили макрос кнопці чи комбінації клавіш, то створену процедуру надалі можна завантажувати за допомогою командиСервисМакросМакросыз подальшим вибором потрібного імені макросу зі списку запропонованих.

Натиснути кнопку ОК (абоНазначить макрос панели чи клавишам, а потімЗакрыть). На екрані з’явиться панель інструментівОстановка записи.

Встановити параметри форматування шрифту та абзацу тексту (Виконати командуФорматШрифт. Встановити параметри: шрифт –Times New Roman, розмір –14 пт. Виконати командуФорматАбзац. Встановити параметри: вирівнювання тексту –по ширині, відступ першого рядка абзацу –1,27 пт, міжрядковий інтервал –полуторний) та ввести потрібний текст:

Запрошуємо Вас взяти участь в презентації нової методики з маркетингу та цінних паперів.

(Примітка!Потрібно одразу уважно і правильно набирати його з клавіатури, не використовуючи зайвих команд видалення символів, переміщення курсору тощо, оскільки все це призводить до запису непотрібних інструкцій у макросі, що створюється).

Натиснути кнопку Остановить записьна панеліОстановка записи.

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

6. Створення процедури Введення.

Відкрити макрос для редагування, обравши команду СервисМакрос Макросы. Вибрати зі списку макросЗапрошення_ПрізвищеСтудентаі натиснути кнопкуИзменить.

Виділити всі оператори між ключовими словами процедури Sub Запрошення_ПрізвищеСтудента ()іEnd Sub.

Виконати команду ПравкаКопировать (EditCopy). Виділений фрагмент знаходиться тепер у буфері обміну.

Виконати командуВставкаПроцедура (InsertProcedure). Відкриється діалогове вікноВставка процедури(Add Procedure)(рис. 2.5).

Ввести у поле Имя (Name)назву процедуриВведення_ПрізвищеСтудентата натиснутиОК.

Виконати команду ПравкаВставить (EditPaste). При цьому розділ, скопійований в буфер обміну, вставиться в процедуру.

Розмістити курсор наприкінці рядків перед інструкцією End Sub. Натиснувши один раз клавішу <Enter>, вставити порожній рядок між останнім рядком та інструкцієюEnd Sub.

Ввести наступні команди, в точності повторюючи їх написання (назви команд, наявність пробілів, двокрапок, крапок, лапок, текст в лапках має точно збігатись зі зразком!):

Selection.TypeText Text:=" Презентація відбудеться "

Selection.TypeText Text:=InputBox("Введіть число та місяць проведення презентації:")

Selection.TypeText Text:=" поточного року."

Selection.TypeParagraph

Selection.TypeText Text:="Контактний телефон: "

Selection.TypeText Text:=InputBox("Введіть номер контактного телефону:")

Selection.TypeText Text:="."

Selection.TypeParagraph

Selection.TypeParagraph

Selection.TypeText Text:="З повагою, голова оргкомітету "

Selection.TypeText Text:=InputBox("Введіть прізвище та ініціали голови оргкомітету:")

Selection.TypeParagraph

Команда InputBox призначена для відкриття діалогового вікна, в якому користувач повинен ввести інформацію, що запитується, та натиснути ОК, щоб продовжити виконання процедури.

Записана процедура Введення_ПрізвищеСтудентатепер містить модулі введення даних і, запитавши в користувача необхідну інформацію, вставить в тексті потрібні дані.

Далі необхідно перевірити роботу нової процедури Введення_ПрізвищеСтудентаз доданим модулем.

1. У вікні редактора Visual Basic виконати команду ФайлЗакрыть и вернуться в Microsoft Word (FileClose and Return to Microsoft Word).

2. Щоб запустити нову процедуру Введеннявиконати командуСервисМакросМакросы.

3. У діалоговому вікні Макрос вибрати зі списку макрос Введення_ПрізвищеСтудентаі натиснути кнопкуВыполнитьабо двічі натиснути лівою кнопкою миші на імені макросу.

7. Додавання в процедуру інструкції для формування вікна повідомлення.

Відкрити макрос Введення_ПрізвищеСтудента і у вікні Visual Basic розмістити курсор перед першим рядком процедури

Selection.TypeText Text:=" Презентація відбудеться ".

Натиснути клавішу <Enter> і в новому рядку ввести наступне:

MsgBox "Зараз вам буде запропоновано ввести інформацію про презентацію."

Виконати команду ФайлЗакрыть и вернуться в Microsoft Word (FileClose and Return to Microsoft Word).

Відкрити новий документ і протестувати відредагований макрос Введення_ПрізвищеСтудента.

На рис. 2.6 показане вікно повідомлення, яке виводиться на екран після запуску відредагованої процедури Введення_ПрізвищеСтудента.

Рис. 2.6. Вікно повідомлення

8. Ще раз протестувати роботу створеної процедури та порівняти результат її виконання зі зразком на рис. 2.3.

9. Використати процедуру Введення_ПрізвищеСтудента при формуванні тексту основного документадля подальшого злиття з існуючим джерелом даних.

10. Оформити електронний звіт засобами текстового процесора MicrosoftWord.

11. Ознайомитись з контрольними питаннями та захистити роботу викладачу.

Контрольні питання

1. З яких етапів складається процес автоматизації постановки та вирішення фінансово-економічної задачі?

2. Сформулюйте цілі та характеристики підзадач, визначених на другому етапі постановки в процесі виконання даної лабораторної роботи?

3. Що таке макрос і яку структуру він має? Що таке VisualBasic?

4. Який порядок запису макросу та способи його запуску?

5. Як застосовується макрос при роботі з текстом?

6. Як переглянути та відредагувати створений макрос?

7. Для чого призначені команди Selection.TypeParagraph, Selection.TypeТext?

8. В який колір пофарбовані ключові команди Visual Basic, коментар, команди форматування тексту та сам текст у макросі, інструкції макросу, які записані невірно?

9. Яку дію виконує макрос по команді InputBox, MsgBox?

10. Якими операторами починається та закінчується макрос?

11. Як створити процедуру, що виводить в процесі роботи макросу на екран вікно введення даних, вікно повідомлення?

12. Опишіть порядок створення макросу, який повністю автоматизує процес злиття основного документаз усіма записами існуючого джерела даних в новий документ.