Οι κεφαλίδες είναι ένα εξαιρετικό μέρος για την εισαγωγή του εγγράφου Word σας και είναι επίσης εύχρηστες. Απλά πρέπει να κάνετε διπλό κλικ στην κεφαλίδα και να πληκτρολογήσετε, σωστά; Όσο εύκολο κι αν είναι, όπως και οτιδήποτε άλλο, αυτή η εργασία μπορεί να γίνει μάλλον μονότονη και ενοχλητική αν πρέπει να προσθέσετε την ίδια κεφαλίδα για πολλά έγγραφα στη σειρά.

Για αυτό το σενάριο, ή ίσως για άλλα σενάρια, το VBA είναι χρήσιμο. Χρησιμοποιώντας VBA, μπορείτε να γράψετε ένα κομμάτι κώδικα που προσθέτει αυτόματα το κείμενο που θέλετε στην επικεφαλίδα του εγγράφου σας.

Αυτόματη προσθήκη κειμένου σε επικεφαλίδα εγγράφου με VBA στο Word

Το VBA ή η Visual Basic για εφαρμογές είναι μια ενσωματωμένη μορφή της Visual Basic που χρησιμοποιείται στις εφαρμογές του Microsoft Office. Το VBA σάς επιτρέπει να γράφετε κώδικες για να δημιουργήσετε μακροεντολές, οι οποίες με τη σειρά τους αυτοματοποιούν εργασίες που διαφορετικά θα έπρεπε να εκτελείτε χειροκίνητα. Το VBA σάς επιτρέπει ακόμη και να δημιουργήσετε τα δικά σας προσαρμοσμένα κουμπιά και δυνατότητες για το Microsoft Word.

instagram viewer

Σε αυτό το άρθρο, θα δημιουργήσουμε μια μακροεντολή και θα γράψουμε έναν κώδικα για αυτήν, ο οποίος θα προσθέσει προσαρμοσμένο κείμενο στην κεφαλίδα του εγγράφου. Οι κεφαλίδες είναι μια χρήσιμη ενότητα στα έγγραφα του Word και μπορείτε να αξιοποιήσετε πολλά από τις κεφαλίδες στο Microsoft Word.

Για παράδειγμα, θα δημιουργήσουμε έναν κώδικα που προσθέτει το κείμενο Γράφτηκε και δημοσιεύτηκε από την MakeUseOf στην κεφαλίδα. Θα κάνουμε αυτό το κείμενο με έντονη γραφή και θα το ευθυγραμμίσουμε στο κέντρο του εγγράφου.

1. Πρόσβαση στην καρτέλα προγραμματιστή

Το πρώτο βήμα για τη δημιουργία μακροεντολών του Word είναι η πρόσβαση στην καρτέλα Προγραμματιστής από την κορδέλα. Αυτή η καρτέλα είναι απενεργοποιημένη από προεπιλογή, καθώς οι μακροεντολές προορίζονται για προχωρημένους χρήστες. Οι ληφθείσες μακροεντολές είναι ένας εύκολος τρόπος για τους χάκερ να έχουν πρόσβαση και να εγκαταστήσουν κακόβουλο λογισμικό στο σύστημά σας, επομένως Η Microsoft αποφάσισε να τις αποκλείσει από προεπιλογή.

Με αυτά τα λόγια, θα πρέπει να ενεργοποιήσετε την καρτέλα Προγραμματιστής από τις Επιλογές. Φυσικά, εάν έχετε χρησιμοποιήσει μακροεντολές στο παρελθόν, η καρτέλα Προγραμματιστής θα είναι ήδη διαθέσιμη, επομένως δεν χρειάζεται να το κάνετε ξανά. Εάν είναι η πρώτη φορά που εργάζεστε με μακροεντολές και VBA σε προγράμματα του Office, καλό είναι να διαβάσετε τον οδηγό μας για πώς να αρχίσετε να χρησιμοποιείτε μακροεντολές στο Word.

  1. Στο Microsoft Word, μεταβείτε στο Αρχείο μενού.
  2. Επιλέγω Επιλογές. Αυτό θα ανοίξει το παράθυρο Επιλογές του Word.
  3. Στο Επιλογές Word παράθυρο, επιλέξτε Προσαρμογή κορδέλας.
  4. Δεξιά, κάτω Κύριες καρτέλες, μετακινηθείτε προς τα κάτω και ελέγξτε Προγραμματιστής.
  5. Κάντε κλικ Εντάξει.

Τώρα θα δείτε την καρτέλα Προγραμματιστής στην κορδέλα, ακριβώς ανάμεσα στην Προβολή και τη Βοήθεια.

2. Δημιουργία της Μακροεντολής

Τώρα ήρθε η ώρα να λερώσετε τα χέρια σας με μια μακροεντολή και κάποιο κωδικό. Μόλις δημιουργήσετε μια μακροεντολή και γράψετε τον κώδικα για αυτήν, μπορείτε να της αντιστοιχίσετε μια συντόμευση, ώστε να μην χρειάζεται να πηγαίνετε στο μενού μακροεντολών κάθε φορά.

Με αυτόν τον τρόπο, μπορείτε να αυξήσετε περαιτέρω την παραγωγικότητά σας, καθώς θα πατήσετε μόνο έναν συνδυασμό πλήκτρων στο πληκτρολόγιό σας και η μαγεία θα συμβεί στα παρασκήνια.

  1. μεταβείτε στο Προγραμματιστής αυτί.
  2. Κάντε κλικ στο Μακροεντολές από το Κώδικας Ενότητα.
  3. Εισαγάγετε ένα όνομα για τη μακροεντολή σας. Θα ονομάσουμε το δικό μας muoHeading.
  4. Κάντε κλικ στο Δημιουργώ.

Μόλις κάνετε κλικ Δημιουργώ, θα ανοίξει ένα νέο παράθυρο που περιέχει δύο γραμμές κώδικα και μια γραμμή πληροφοριών. Οι γραμμές Sub και End Sub σηματοδοτούν την αρχή και το τέλος του κώδικα της μακροεντολής σας. Εισαγάγετε τον παρακάτω κώδικα ανάμεσα στις δύο γραμμές:

Dim header Range Οπως και Εύρος
Dim headerText As Σειρά
Σειρά headerRange = ActiveDocument. Ενότητες. Είδος(1).Κεφαλίδες (wdHeaderFooterPrimary).Εύρος
Εύρος κεφαλίδας. Κείμενο = "Γράφτηκε και εκδόθηκε από MUO"
Εύρος κεφαλίδας. Γραμματοσειρά. Έντονη = Αληθής
Εύρος κεφαλίδας. Μορφή παραγράφου. Alignment = wdAlignParagraphCenter

Η δήλωση Dim σε αυτόν τον κώδικα δηλώνει το Εύρος κεφαλίδας και headerText μεταβλητές ως α Εύρος και ένα Σειρά αντίστοιχα. Στη συνέχεια, το Σειρά δήλωση ορίζει το Εύρος κεφαλίδας μεταβλητή στην κεφαλίδα του τρέχοντος ενεργού εγγράφου.

ο Σειρά Η δήλωση αποκτά πρώτα πρόσβαση στο τρέχον ενεργό έγγραφο, μετά στις ενότητες του, μετά στο πρώτο στοιχείο και στις κεφαλίδες σε αυτό. Τέλος, αποκτά πρόσβαση στην κύρια κεφαλίδα του Word και, στη συνέχεια, την ορίζει ως α Εύρος.

Μόλις δηλωθούν αυτά τα δύο, το Εύρος κεφαλίδας κείμενο ορίζεται στο κείμενο που θέλουμε. Στην επόμενη γραμμή, η γραμματοσειρά έχει οριστεί ως έντονη γραφή και, στη συνέχεια, στην τελική γραμμή, η στοίχιση παραγράφου ορίζεται στο κέντρο. Οι παράμετροι που ξεκινούν με "wd" υποδεικνύουν ότι η παράμετρος είναι αποκλειστική του Microsoft Word.

ο Υπο και End Sub Οι κωδικοί δεν περιλαμβάνονται σε αυτό το παραπάνω απόσπασμα, καθώς υποτίθεται ότι πρέπει να επικολλήσετε τον κώδικα από το απόσπασμα μεταξύ αυτών των δύο. Ο τελικός κωδικός σας θα πρέπει να μοιάζει με την παρακάτω εικόνα:

3. Χρησιμοποιώντας τη Μακροεντολή

Αφού ρυθμίσετε τον κώδικα, είστε έτοιμοι να χρησιμοποιήσετε τη μακροεντολή. Δεν χρειάζεται να το αποθηκεύσετε. οτιδήποτε πληκτρολογείτε στον χώρο εργασίας VBA αποθηκεύεται αμέσως. Τώρα ήρθε η ώρα να ρυθμίσετε μια συντόμευση για τη μακροεντολή και να δείτε αν λειτουργεί!

  1. μεταβείτε στο Αρχείο μενού.
  2. Επιλέγω Επιλογές.
  3. Επιλέγω Προσαρμογή κορδέλας.
  4. Κάντε κλικ στο Προσαρμογή δίπλα στο Συντομεύσεις πληκτρολογίου στο κάτω μέρος του παραθύρου. Αυτό θα ανοίξει το παράθυρο Προσαρμογή πληκτρολογίου.
  5. Στο Προσαρμογή πληκτρολογίου παράθυρο, μετακινηθείτε προς τα κάτω στο Κατηγορίες λίστα και επιλέξτε Μακροεντολές.
  6. Στο δεξί μενού, επιλέξτε τη μακροεντολή σας.
  7. Κάντε κλικ στο πλαίσιο κειμένου κάτω από, Πατήστε νέο πλήκτρο συντόμευσης.
  8. Εισαγάγετε τον συνδυασμό πλήκτρων στο πληκτρολόγιό σας. Είναι καλή ιδέα να το χρησιμοποιήσετε Ctrl, Alt, και Βάρδια Την ίδια στιγμή. Με αυτόν τον τρόπο, ο συνδυασμός πιθανότατα δεν θα είναι ήδη σε χρήση. Θα χρησιμοποιήσουμε Alt + Ctrl + Βάρδια + H.
  9. Κάντε κλικ στο Κλείσε και μετά κάντε κλικ στο Εντάξει.

Τώρα ήρθε η ώρα να δείτε τη μαγεία στη δουλειά. Πατήστε το συνδυασμό πλήκτρων που μόλις αντιστοιχίσατε στη μακροεντολή στο πληκτρολόγιό σας. Ας ελπίσουμε ότι θα δείτε το κείμενο στην κεφαλίδα σας! Τολμηρό και κεντραρισμένο! Εάν τα πράγματα δεν πάνε όπως τα σχεδιάζετε, εντοπίστε τα βήματά σας και ελέγξτε τον κωδικό σας για λάθη.

Κάθε φορά που θέλετε να αλλάξετε το κείμενο που προσθέτει ο κώδικας στην επικεφαλίδα σας, μπορείτε απλώς να μεταβείτε στο μενού μακροεντολών και να επεξεργαστείτε τη μακροεντολή. Αν είστε περίεργοι για τις προεπιλεγμένες συντομεύσεις του Word, ρίξτε μια ματιά στις δικές μας Φύλλο εξαπάτησης συντομεύσεων πληκτρολογίου Microsoft Word.

Αυτοματοποιήστε τη ροή εργασίας σας

Είναι αλήθεια ότι η προσθήκη κειμένου στην κεφαλίδα ενός εγγράφου στο Word απαιτεί λίγη προσπάθεια, αλλά λίγη προσπάθεια σε μεγάλες ποσότητες μπορεί να γίνει μονότονη, αν όχι δύσκολη. Τέλος πάντων, αν μπορείτε να το κάνετε πιο εύκολο και λιγότερο χρονοβόρο, τότε γιατί να μην το κάνετε;

Η VBA υπάρχει για να εξυπηρετεί τέτοιους σκοπούς. Εάν επιθυμούσατε μια δυνατότητα του Word που θα προσθέτει αυτόματα ένα προσαρμοσμένο κείμενο στην κεφαλίδα οποιουδήποτε εγγράφου, δεν χρειάζεται πλέον να το επιθυμείτε. Με το VBA, μπορείτε να δημιουργήσετε οποιαδήποτε δυνατότητα θεωρείτε ότι λείπει από το Word. Η προσθήκη κειμένου στην κεφαλίδα ενός εγγράφου είναι απλώς ένα μικρό παράδειγμα του τι μπορείτε να επιτύχετε με το VBA στο Word.

Τώρα ξέρετε πώς να γράφετε κώδικα για αυτόν τον σκοπό και να αντιστοιχίζετε μια συντόμευση σε αυτόν. Επομένως, το μόνο που χρειάζεται να κάνετε είναι να πατήσετε έναν συνδυασμό πλήκτρων, να καθίσετε και να παρατηρήσετε ότι το Word κάνει τη βαρετή δουλειά για εσάς σε χιλιοστά του δευτερολέπτου.