Microsoft Word is a powerful tool for creating text documents. With its help, you can create a small convenient calendar that can be called up by clicking on the appropriate button in the toolbar. To do this, you will need to use the Microsoft Visual Basic toolkit, which is installed with any Microsoft Office package.
Instructions
Step 1
Create a Word document and save it as a template. To do this, use the appropriate menu items "File" (for Office 2007 and higher - the Microsoft Office button in the upper left corner) - "New" - "Blank Document", and then "Save As" - "Word Template".
Step 2
Open the Visual Basic programming environment by pressing the key combination alt="Image" and F11. An editor window will open, in which press the "F7" key.
Step 3
At the top of the window, select "Insert" - "User Form". Select the "Tools" - "Additional Controls" menu. In the pop-up menu, check the box next to Calendar Control (or Calendar Control). Click "Ok".
Step 4
Click on the "Calendar" icon that appears in the "Toolbox" control panel. Move the mouse pointer over the shape and draw a square the size you need for the calendar.
Step 5
You can change the display options for the calendar. To do this, in the left part of the window, in the Properties menu, select "Custom" and click on the button with the ellipsis in the right part of the line. In the pop-up window, select the required settings. In the "Font" and "Color" tab, you can select the parameters of the calendar panel itself. After making all the settings, click "OK".
Step 6
Click on the title of the form, and in the "Properties" (line "Caption") you can specify the name "Calendar". The title will change.
Step 7
To organize the closing of the calendar by pressing the "Esc" key. To do this, select the "CommandButton" button in the ToolBox, draw it. Change the value in Cancel in Properties to True. Press F7, enter between the two lines "Private Sub.." and "End Sub" the line "Unload Me", then click "OK".
Step 8
To display the current date in the calendar, paste the code after the item "Private Sub Calendar1_Click ()": Private Sub UserForm_Initialize ()
Calendar1. Today
End Sub
Step 9
To display the calendar in any document created on the template, select the command "Insert" - "Module" and enter: Sub OpenCalendar ()
UserForm1. Show
End Sub
Step 10
Click the "Save" button on the toolbar (or "File" - "Save"). You can close the editor.
Step 11
To test it, press alt="Image" and F8 in Word. Enter "OpenCalendar", click "Run." The calendar will open. Save the created template.
