p>
'зберігаємо всі відкриті кнігіEach w In Application. Workbooks. Savew
End Sub
. б.7. Передбачити на формі кнопку "Вихід" із збереженням всіх зроблених змінах в книгах. xls
При натисканні на кнопку "Вихід" програма буде закрита, всі зроблені змін будуть збережені.
Код процедури:
Private Sub cmdExit_Click ()
For Each w In Application. Workbooks. Savew. Quit
End Sub
Список використаної літератури
1.А. Васильєв, А. Андрєєв. VBA в Office 2000. Навчальний курс - С-Пб.: "Пітер" <# "center"> Програми
Для демонстрації роботи програми відкриємо файл "Завдання 1. doc ", який містить інформацію користувача форму і модуль з макросами.
У Word 2003 для виклику користувача форми виберемо в меню Сервіс ? Макрос ? Макроси (в Word 2007-2010 вкладка Вид < span align = "justify">? Макроси ? Макроси ) і у вікні виберемо макрос Open_UserForm1. Натиснемо кнопку Виконати . (Для перегляду коду програми можна натиснути Alt + F11 - відкриється редактор VBA.)
При натисканні на 1 кнопку ("Відкрити файл") відкриється діалогове вікно "Відкриття документа". Відкривається обраний документ. p align="justify"> Код процедури:
Private Sub cmdOpenFile_Click ()
Call openFile
End Sub
Sub openFile ()
'закриваємо призначену для користувача форму
Unload UserForm1
'відкриття файлу за допомогою діалогового вікна
With Dialogs (wdDialogFileOpen) = "*. doc * "
ShowWith
'знову відкриваємо форму
UserForm1. Show
End Sub
При натисканні на 2 кнопку ("Копіювати в буфер") буде поміщений в буфер 1 абзац активного документа.
Код процедури:
Private Sub cmdCopyClipboard_Click ()
Call TextCopyClipboard
End Sub...