Как сделать календарь в Ворде

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). Нажмите «Ок».
4. Кликните на появившейся иконке «Calendar» в панели управления «Toolbox». Переместите указатель мыши на форму и нарисуйте квадрат необходимого для календаря размера.
5. Можно изменить параметры отображения календаря. Для этого в левой части окна, в меню Properties, выберите «Custom» и нажмите на кнопку с многоточием в правой части строки. Во всплывшем окне выберите необходимые настройки. Во вкладке «Шрифт» и «Цвет» можно выбрать параметры самой панели календаря. После произведения всех настроек нажмите «Ок».
6. Нажмите на заголовок формы, а в «Properties» (строка «Caption») можете указать название «Календарь». Заголовок изменится.
7. Чтобы организовать закрытие календаря по клавише «Esc». Для этого выберите в ToolBox кнопку «CommandButton», нарисуйте ее. Значение в Cancel в «Properties» смените на «True». Нажмите F7, введите между двумя сточками «Private Sub..» и «End Sub» строку «Unload Me», после чего нажмите «Ок».
8. Для отображения текущей даты в календаре вставьте код после пункта «Private Sub Calendar1_Click()»:Private Sub UserForm_Initialize()
   Calendar1.Today
   End Sub
9. Чтобы календарь отображался в любом документе, созданном на шаблоне, выберите команду «Insert» - «Module», и введите:Sub OpenCalendar()
   UserForm1.Show
   End Sub
10. Нажмите кнопку «Save» на панели инструментов (или «File» - «Save»). Можете закрыть редактор.
11. Для проверки работоспособности нажмите Alt и F8 в Word. Введите «OpenCalendar», нажмите «Выполнить». Откроется календарь. Сохраните созданный шаблон.