Microsoft Word є потужним інструментом для створення текстових документів. За його допомогою можна створити і невеликий зручний календар, який можна буде викликати за допомогою натискання на відповідну кнопку на панелі інструментів. Для цього необхідно буде скористатися інструментарієм Microsoft Visual Basic, який встановлюється разом з будь-яким пакетом Microsoft Office.
Інструкція
1. Створіть документ Word і збережіть його як шаблон. Для цього скористайтеся відповідними пунктами меню "Файл" (для Office 2007 і вище - кнопка Microsoft Office у лівому верхньому куті) - "Створити" - "Порожній документ", а потім "Зберегти як" - "Шаблон Word".
2. Відкрийте середовище програмування Visual Basic за допомогою натискання комбінації клавіш Alt і F11. Відкриється вікно редактора, в якому натисніть клавішу F7.
3. У верхній частині вікна виберіть "Insert" - "User Form" ("Вставка - Власна форма"). Виберіть "Tools" - "Additional Controls". У спливаючому меню позначте пункт "Елемент керування календарем" (або "Calendar Control"). Натисніть "Ok".
4. Клацніть на іконці Calendar на панелі керування Toolbox. Перемістіть курсор миші на форму та намалюйте квадрат, необхідний для календаря розміру.
5. Ви можете змінити параметри відображення календаря. Для цього в лівій частині вікна, в меню Properties, виберіть "Custom" та натисніть кнопку з багатоточлям у правій частині рядка. У спливаючому вікні виберіть потрібні параметри. На вкладці "Шрифт" та "Колір" можна вибрати параметри самої панелі календаря. Після створення всіх параметрів натисніть "Ok".
6. Натисніть на заголовок форми, а в "Properties" (рядок "Caption") можете вказати назву "Календар". Заголовок буде змінено.
7. Щоб організувати закриття календаря за клавішею Esc. Для цього виберіть у ToolBox кнопку "CommandButton", намалюйте її. Змініть значення Cancel у "Properties" на "True". Натисніть F7, введіть між двома сточками "Private Sub".. і "End Sub" рядок Unload Me, після чого натисніть "Ok".
8. Щоб показати поточну дату календаря, вставте код після пункту "Private Sub Calendar1_Click ()":Private Sub UserForm_Initialize()Calendar1.TodayEnd Sub
9. Щоб відобразити календар у будь-якому документі, створеному на шаблоні, виберіть "Insert" - "Module", а потім введіть:Sub OpenCalendar()UserForm1.ShowEnd Sub
10. Натисніть кнопку "Save" на панелі інструментів (або "File" - "Save"). Можете закрити редактор.
11. Для перевірки працездатності натисніть Alt і F8 в Word. Введіть OpenCalendar, натисніть кнопку "Виконати". Відкриється календар. Збережіть створений шаблон.