програму-макрос мовою VBA для [MS WORD], яка за допомогою кнопок на формі виробляє такі подієві процедури:
. А.1. Відкриває для роботи документ (ім'я документа не повинно здаватися "жорстко", тобто програмно - ім'я документа повинен мати можливість вибрати користувач вашої програми): - використовуйте dialogs. p align="justify"> Для демонстрації роботи програми відкриємо файл "Завдання 1. doc ", який містить інформацію користувача форму і модуль з макросами.
У Word 2003 для виклику користувача форми виберемо в меню Сервіс ? Макрос ? Макроси (в Word 2007-2010 вкладка Вид < span align = "justify">? Макроси ? Макроси ) і у вікні виберемо макрос Open_UserForm1. Натиснемо кнопку Виконати ( малюнок 3). (Для перегляду коду програми можна натиснути Alt + F11 - відкриється редактор VBA.)
В
Рисунок 3 - Запуск макросу
На екрані з'явиться форма з шістьма кнопками (малюнок 4).
В
Рисунок 4 - Користувацька форма
При натисканні на кнопку "Відкрити файл" відкриється діалогове вікно "Відкриття документа". Відкривається обраний документ. p align="justify"> Код процедури:
Private Sub cmdOpenFile_Click ()
Call openFile
End SubopenFile ()
'закриваємо призначену для користувача форму
Unload UserForm1
'відкриття файлу за допомогою діалогового вікна
With Dialogs (wdDialogFileOpen) = "*. doc * "
ShowWith
'знову відкриваємо форму
UserForm1. Show
End Sub
2. а.2. У документі програмно проводиться виділення якого-небудь шматка тексту і копіювання його в буфер. p align="justify"> При натисканні на кнопку "Копіювати в буфер" буде поміщений в буфер 1 абзац активного документа.
Код процедури:
Private Sub cmdCopyClipboard_Click ()
Call TextCopyClipboard
End SubTextCopyClipboard ()
'копіюємо 1 абзац
ActiveDocument. Paragraphs (1). Range. Copy
End Sub
