Το Microsoft Word σας επιτρέπει να εφαρμόσετε τη μορφοποίηση στομεγάλα αποσπάσματα κειμένου enmasse. Μπορείτε να αντιγράψετε τη μορφοποίηση που εφαρμόζεται σε ένα κομμάτι κειμένου και να την εφαρμόσετε σε ολόκληρες παραγράφους και ενότητες με μερικά μόνο κλικ. Δυστυχώς, το ίδιο ισχύει και για τους πίνακες. Αν θέλετε να αλλάξετε το στυλ για όλους τους πίνακες σε ένα συγκεκριμένο έγγραφο, θα πρέπει να επιλέξετε το καθένα ξεχωριστά και να αλλάξετε το στυλ. Η εναλλακτική λύση είναι να χρησιμοποιήσετε μια μακροεντολή για να το κάνετε.
Εύρεση στυλ πίνακα
Προτού μπορέσετε να δημιουργήσετε τη μακροεντολή, πρέπει να βρείτετο όνομα του επιπέδου πίνακα που θέλετε να εφαρμόσετε. Αυτό είναι πολύ εύκολο. Ανοίξτε το έγγραφο του Word που θέλετε να αλλάξετε τα στυλ πίνακα για. Κάντε κλικ μέσα σε έναν πίνακα και, στη συνέχεια, μεταβείτε στην καρτέλα Σχεδίαση στην καρτέλα Εργαλεία πίνακα.
Τοποθετήστε το δείκτη του ποντικιού πάνω από το στυλ πίνακα που θέλετε να εφαρμόσετε σε όλα τα τραπέζια και μια άκρη εργαλείου θα σας πει τι λέγεται. Σημειώστε το όνομα και είστε έτοιμοι να δημιουργήσετε τη μακροεντολή.
Στυλ πίνακα μακροεντολών
Ενεργοποιήστε την καρτέλα Προγραμματιστής στο Word μεταβαίνοντας στο Αρχείο> Επιλογές> Προσαρμογή κορδέλας. Ενεργοποιήστε τη γραμμή εργαλείων του Προγραμματιστή και στη συνέχεια επιστρέψτε στο έγγραφό σας.
Στην καρτέλα Προγραμματιστής και κάντε κλικ στην επιλογή Μακροεντολές. Δώστε το ακόλουθο όνομα.
ApplyTableStyle
Κάντε κλικ στο κουμπί Δημιουργία και πληκτρολογήστε τα παρακάτω στον κώδικαbox, πρέπει να επεξεργαστείτε αυτήν τη γραμμή: tbl.Style = "Μεσαία Σκίαση 2 - Ακρόαση 1". Αντικαταστήστε το κομμάτι μέσα στα εισαγωγικά με το όνομα της μορφής του πίνακα που έχετε αντιγράψει στο προηγούμενο βήμα. Μην αφαιρέσετε τα εισαγωγικά από τον κώδικα. Απλά πληκτρολογήστε το όνομα του στυλ πίνακα και εκτελέστε το.
Sub ApplyTableStyle() Dim tbl As Table For Each tbl In ActiveDocument.Tables tbl.Style = "Medium Shading 2 - Accent 1" Next End Sub
Αυτό είναι μόνο που πρέπει να κάνετε. Μόλις τρέξει η μακροεντολή, θα αλλάξει αυτόματα το στυλ για όλους τους πίνακες. Εάν θέλετε να χρησιμοποιήσετε διαφορετικό στυλ πίνακα, θα πρέπει να καταργήσετε αυτήν τη μακροεντολή επειδή προωθεί ενεργά το στυλ όλων των πινάκων σε αυτό που έχετε ορίσει στη μακροεντολή.
Εάν πρέπει να αλλάξετε ποιο στυλ θα χρησιμοποιηθεί για τη μακροεντολήισχύει, θα πρέπει να επεξεργαστείτε τον κώδικα και να αντικαταστήσετε το όνομα του στυλ που θέλετε να εφαρμόσετε. Η μακροεντολή εφαρμόζει στυλ σε όλους τους τρέχοντες και όλους τους νέους πίνακες του εγγράφου. Αυτό θα ήταν προφανώς ευκολότερο εάν το Microsoft Word είχε μια ενσωματωμένη επιλογή για να το κάνει αυτό. Φαίνεται σαν ένα περίεργο κενό για την εφαρμογή.
Σχόλια