Microsoft Word on võimas tööriist tekstidokumentide loomiseks. Selle abiga saate luua väikese mugava kalendri, mille saab avada, klõpsates tööriistariba vastavat nuppu. Selleks peate kasutama tööriista Microsoft Visual Basic, mis on installitud koos mis tahes Microsoft Office'i paketiga.
Juhised
Samm 1
Looge Wordi dokument ja salvestage see mallina. Selleks kasutage vastavaid menüüelemente "Fail" (Office 2007 ja uuemate versioonide jaoks - vasakus ülanurgas olev Microsoft Office'i nupp) - "Uus" - "Tühi dokument" ja seejärel "Salvesta nimega" - "Sõna mall".
2. samm
Avage Visual Basicu programmeerimiskeskkond, vajutades klahvikombinatsiooni alt="Pilt" ja F11. Avaneb redaktori aken, milles vajutage klahvi "F7".
3. samm
Valige akna ülaosas "Lisa" - "Kasutaja vorm". Valige menüü "Tööriistad" - "Lisakontroll". Märkige hüpikmenüüs ruut „Kalendri juhtimine” (või „Kalendri juhtimine”). Klõpsake nuppu "OK".
4. samm
Klõpsake ikooni "Kalender", mis kuvatakse juhtpaneelil "Tööriistakast". Viige hiirekursor kuju kohale ja joonistage kalendri jaoks vajalik ruut.
5. samm
Saate muuta kalendri kuvamisvalikuid. Selleks valige akna vasakus osas menüüs Atribuudid "Kohandatud" ja klõpsake rea parempoolses osas olevat ellipsiga nuppu. Valige hüpikaknas vajalikud sätted. Vahekaartidel "Font" ja "Värv" saate valida kalendripaneeli enda parameetrid. Pärast kõigi seadete tegemist klõpsake nuppu "OK".
6. samm
Klõpsake vormi pealkirjal ja jaotises "Atribuudid" (rida "Pealkiri") saate määrata nime "Kalender". Pealkiri muutub.
7. samm
Kalendri sulgemise korraldamiseks vajutage klahvi "Esc". Selleks valige tööriistakastis nupp "CommandButton", joonistage see. Muutke suvandi Tühista jaotises Atribuudid väärtus Tõene. Vajutage F7, sisestage kahe rea "Private Sub.." ja "End Sub" vahele rida "Unload Me", seejärel klõpsake "OK".
8. samm
Praeguse kuupäeva kuvamiseks kalendris kleepige kood üksuse "Private Sub Calendar1_Click ()" järele: Private Sub UserForm_Initialize ()
Kalender 1. Täna
Lõpeta alam
9. samm
Kalendri kuvamiseks mis tahes mallil loodud dokumendis valige käsk "Insert" - "Module" ja sisestage: Sub OpenCalendar ()
UserForm1. Show
Lõpeta alam
10. samm
Klõpsake tööriistariba nuppu "Salvesta" (või "Fail" - "Salvesta"). Redaktori saate sulgeda.
11. samm
Selle testimiseks vajutage Wordis alt="Pilt" ja F8. Sisestage "OpenCalendar", klõpsake "Run". Kalender avaneb. Salvestage loodud mall.
