Το Microsoft Word είναι ένα ισχυρό εργαλείο για τη δημιουργία εγγράφων κειμένου. Με τη βοήθειά του, μπορείτε να δημιουργήσετε ένα μικρό βολικό ημερολόγιο, το οποίο μπορείτε να καλέσετε κάνοντας κλικ στο κατάλληλο κουμπί στη γραμμή εργαλείων. Για να το κάνετε αυτό, θα πρέπει να χρησιμοποιήσετε το κιτ εργαλείων της Microsoft Visual Basic, το οποίο είναι εγκατεστημένο μαζί με οποιοδήποτε πακέτο του Microsoft Office.
Οδηγίες
Βήμα 1
Δημιουργήστε ένα έγγραφο του Word και αποθηκεύστε το ως πρότυπο. Για να το κάνετε αυτό, χρησιμοποιήστε τα κατάλληλα στοιχεία μενού "Αρχείο" (για το Office 2007 και νεότερη έκδοση - το κουμπί του Microsoft Office στην επάνω αριστερή γωνία) - "Νέο" - "Κενό έγγραφο" και, στη συνέχεια, "Αποθήκευση ως" - "Πρότυπο λέξεων".
Βήμα 2
Ανοίξτε το περιβάλλον προγραμματισμού της Visual Basic πατώντας το συνδυασμό πλήκτρων alt="Image" και F11. Θα ανοίξει ένα παράθυρο προγράμματος επεξεργασίας, στο οποίο πατήστε το πλήκτρο "F7".
Βήμα 3
Στο επάνω μέρος του παραθύρου, επιλέξτε "Εισαγωγή" - "Φόρμα χρήστη". Επιλέξτε το μενού "Εργαλεία" - "Πρόσθετοι έλεγχοι". Στο αναδυόμενο μενού, επιλέξτε το πλαίσιο δίπλα στο "Calendar Control" (ή "Calendar Control). Κάντε κλικ στο "Ok".
Βήμα 4
Κάντε κλικ στο εικονίδιο "Ημερολόγιο" που εμφανίζεται στον πίνακα ελέγχου "Εργαλειοθήκη". Μετακινήστε το δείκτη του ποντικιού πάνω από το σχήμα και σχεδιάστε ένα τετράγωνο στο μέγεθος που χρειάζεστε για το ημερολόγιο.
Βήμα 5
Μπορείτε να αλλάξετε τις επιλογές εμφάνισης για το ημερολόγιο. Για να το κάνετε αυτό, στο αριστερό τμήμα του παραθύρου, στο μενού Properties, επιλέξτε "Custom" και κάντε κλικ στο κουμπί με την έλλειψη στο δεξί μέρος της γραμμής. Στο αναδυόμενο παράθυρο, επιλέξτε τις απαιτούμενες ρυθμίσεις. Στην καρτέλα "Γραμματοσειρά" και "Χρώμα", μπορείτε να επιλέξετε τις παραμέτρους του ίδιου του πίνακα ημερολογίου. Αφού κάνετε όλες τις ρυθμίσεις, κάντε κλικ στο "OK".
Βήμα 6
Κάντε κλικ στον τίτλο της φόρμας και στο "Properties" (γραμμή "Caption") μπορείτε να καθορίσετε το όνομα "Calendar". Ο τίτλος θα αλλάξει.
Βήμα 7
Για να οργανώσετε το κλείσιμο του ημερολογίου πατώντας το πλήκτρο "Esc". Για να το κάνετε αυτό, επιλέξτε το κουμπί "CommandButton" στο ToolBox, σχεδιάστε το. Αλλάξτε την τιμή στο Cancel στο Properties σε True. Πατήστε F7, εισάγετε μεταξύ των δύο γραμμών "Private Sub.." και "End Sub" τη γραμμή "Unload Me" και, στη συνέχεια, κάντε κλικ στο "OK".
Βήμα 8
Για να εμφανιστεί η τρέχουσα ημερομηνία στο ημερολόγιο, επικολλήστε τον κωδικό μετά το στοιχείο "Private Sub Calendar1_Click ()": Private Sub UserForm_Initialize ()
Ημερολόγιο 1. Σήμερα
Τέλος Υποτ
Βήμα 9
Για να εμφανίσετε το ημερολόγιο σε οποιοδήποτε έγγραφο που δημιουργήθηκε στο πρότυπο, επιλέξτε την εντολή "Εισαγωγή" - "Μονάδα" και εισαγάγετε: Sub OpenCalendar ()
UserForm 1. Εμφάνιση
Τέλος Υποτ
Βήμα 10
Κάντε κλικ στο κουμπί "Αποθήκευση" στη γραμμή εργαλείων (ή "Αρχείο" - "Αποθήκευση"). Μπορείτε να κλείσετε το πρόγραμμα επεξεργασίας.
Βήμα 11
Για να το δοκιμάσετε, πατήστε alt="Image" και F8 στο Word. Εισαγάγετε "OpenCalendar", κάντε κλικ στο "Εκτέλεση." Το ημερολόγιο θα ανοίξει. Αποθηκεύστε το δημιουργημένο πρότυπο.
