Microsoft Word е мощен инструмент за създаване на текстови документи. С негова помощ можете да създадете малък удобен календар, който да бъде извикан, като щракнете върху съответния бутон в лентата с инструменти. За да направите това, ще трябва да използвате инструментариума на Microsoft Visual Basic, който е инсталиран заедно с всеки пакет на Microsoft Office.
Инструкции
Етап 1
Създайте документ на Word и го запазете като шаблон. За целта използвайте съответните елементи от менюто „Файл“(за Office 2007 и по-нови - бутонът Microsoft Office в горния ляв ъгъл) - „Нов“- „Празен документ“и след това „Запазване като“- „Шаблон на дума“.
Стъпка 2
Отворете програмната среда на Visual Basic, като натиснете клавишната комбинация alt="Image" и F11. Ще се отвори прозорец на редактор, в който натиснете клавиша "F7".
Стъпка 3
В горната част на прозореца изберете "Вмъкване" - "Потребителски формуляр". Изберете менюто "Инструменти" - "Допълнителни контроли". В изскачащото меню поставете отметка в квадратчето до „Управление на календара“(или „Управление на календара“). Щракнете върху "Ok".
Стъпка 4
Кликнете върху иконата "Календар", която се появява в контролния панел "Кутия с инструменти". Преместете показалеца на мишката върху фигурата и нарисувайте квадрат с размера, който ви е необходим за календара.
Стъпка 5
Можете да промените опциите за показване на календара. За да направите това, в лявата част на прозореца, в менюто Properties (Свойства) изберете „Custom“и щракнете върху бутона с многоточието в дясната част на реда. В изскачащия прозорец изберете необходимите настройки. В раздела "Шрифт" и "Цвят" можете да изберете параметрите на самия панел на календара. След като направите всички настройки, щракнете върху "OK".
Стъпка 6
Кликнете върху заглавието на формуляра и в „Свойства“(ред „Надпис“) можете да посочите името „Календар“. Заглавието ще се промени.
Стъпка 7
За да организирате затварянето на календара, като натиснете клавиша "Esc". За да направите това, изберете бутона "CommandButton" в ToolBox, нарисувайте го. Променете стойността в „Отказ“под „Свойства“на „Вярно“. Натиснете F7, въведете между двата реда "Private Sub.." и "End Sub" реда "Unload Me", след което щракнете върху "OK".
Стъпка 8
За да покажете текущата дата в календара, поставете кода след елемента "Private Sub Calendar1_Click ()": Private Sub UserForm_Initialize ()
Календар 1. Днес
Крайна под
Стъпка 9
За да покажете календара във всеки документ, създаден в шаблона, изберете командата "Вмъкване" - "Модул" и въведете: Sub OpenCalendar ()
Потребителска форма 1. Показване
Край на под
Стъпка 10
Щракнете върху бутона "Запазване" в лентата с инструменти (или "Файл" - "Запазване"). Можете да затворите редактора.
Стъпка 11
За да го тествате, натиснете alt="Изображение" и F8 в Word. Въведете "OpenCalendar", щракнете върху "Run". Календарът ще се отвори. Запазете създадения шаблон.
