Tutorial για την προσθήκη Visual Basic πίνακες του Word

Οι πίνακες είναι ένα βασικό χαρακτηριστικό του Word . Εμφανίζονται σε όλα τα είδη των εγγράφων που θα βοηθήσουν τους χρήστες του Word οργανώσετε οπτικά δεδομένα . Μπορεί να είναι χρονοβόρο να δημιουργήσετε πίνακες με τις προτιμήσεις σας , αλλά αν γνωρίζετε κάτι σχετικά με τη Visual Basic , scripting γλώσσα του Word , μπορείτε πιο γρήγορα να δημιουργήσουν, να συμπληρώσετε και να μορφοποιήσετε πίνακες . Μελετώντας το παρακάτω πρόγραμμα της Visual Basic θα σας δώσει ένα προβάδισμα στο χειρισμό πίνακες του Word μέσω κώδικα . Πληκτρολογήστε κώδικα για να δημιουργήσετε ένα πίνακα
Η

Sub mac ( ) Dim όπου Ως RangeDim nuTab Όπως φαίνεται στον Πίνακα

Set όπου = Selection.RangeSet nuTab = ActiveDocument.Tables.Add (όπου , NumRows : = 7 , NumColumns : . . . . = 3 )

nuTab.Columns ( 1 ) κύτταρα ( 1 ) Εύρος = " κάποια πράγματα " nuTab.Columns ( 2 ) κύτταρα ( 2 ) Εύρος = " κάποια περισσότερα πράγματα "

nuTab.AutoFormat wdTableFormatClassic1

Με nuTab.Columns ( 2 ) . κύτταρα ( 2 ) Με . Σύνορα ( wdBorderTop ) . linestyle = wdLineStyleSingle.LineWidth = wdLineWidth300pt.ColorIndex = wdYellowEnd WithWith . Σύνορα ( wdBorderBottom ) . linestyle = wdLineStyleSingle.LineWidth = wdLineWidth300pt.ColorIndex = wdYellowEnd WithEnd Με

End Sub ------------------------- ------------- εισάγετε τον ανωτέρω κώδικα στο Visual Basic IDE ( ολοκληρωμένο περιβάλλον ανάπτυξης ) , το οποίο μπορείτε να εισάγετε μέσα από το Word πατώντας alt - F11 , και την εξασφάλιση είστε στο παράθυρο κώδικα ( View> Code ) .

Εκτελέστε το σενάριο με την επιστροφή στο Word , επιλέγοντας "Προγραμματιστής > Μακροεντολές , " επιλογή " mac " από τη λίστα και πατώντας το πλήκτρο " Run". Visual Basic δημιουργεί έναν νέο πίνακα στο τρέχον σημείο εισαγωγής , προσθέτει κάποια στοιχεία για αυτό και μορφές ένα από τα κελιά .
Εικόνων Μάθετε πώς το Script
Έργα

Επιστροφή στο IDE για να μελετήσει τον κώδικα . Η δήλωση Set όπου = Selection.Range ορίζει μια μεταβλητή που αντιπροσωπεύει την τρέχουσα θέση του δρομέα . Αυτό είναι όπου μπορείτε να εγκαταστήσετε ένα νέο πίνακα. Η δεύτερη γραμμή ( Set nuTab = ... ) στην πραγματικότητα δημιουργεί τον πίνακα , χρησιμοποιώντας το αντικείμενο ActiveDocument να το πράξουν .

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

Αν ανησυχείτε για να μην γνωρίζοντας τις συγκεκριμένες λειτουργίες και ιδιότητες (π.χ. Στήλες , κύτταρα ) ενός αντικειμένου , μπορείτε εύκολα να πάρετε ένα περιγραφικό κατάλογο τους πατώντας F2 , η οποία καλεί το πρόγραμμα περιήγησης αντικειμένου . Στο πλαίσιο αναζήτησης του προγράμματος περιήγησης αντικείμενο, μπορείτε να εισάγετε τον όρο " Πίνακες " και πατήστε "Enter ", επιλέξτε " Πίνακας " στο παράθυρο αποτελεσμάτων στα δεξιά , και να πάρετε μια λίστα με όλα τα μέλη του πίνακα .

Επιστρέφοντας στον κώδικα , ανατρέξτε στη δήλωση " με nuTab.Columns ( 2 ) . κύτταρα ... " Η λέξη-κλειδί λέει Με Visual Basic που δεν θέλετε να πληκτρολογήσετε μια μακρά σειρά από διακεκομμένες λέξεις για να αναφερθεί κατ 'επανάληψη σε ένα αντικείμενο είναι η μέθοδος ή ιδιότητα ( π.χ. Object1.Object2.Object3.doThis ( ) ) . Αντ 'αυτού , θέλετε να κάνετε ζουμ δικαίωμα στα μέλη ενός συγκεκριμένου αντικειμένου στην αλυσίδα . Για παράδειγμα :

Με Object1.Object2.Object3.doThis ( ) End With
εικόνων Εφαρμόστε μορφοποίηση
Η

Η nuTab.AutoFormat δήλωση ... εφαρμόζει ένα σύστημα σύνορα με το πλήρες τραπέζι , ενώ η πρώτη με δήλωση αρχίζει να μορφοποιήσετε ένα μεμονωμένο κύτταρο . Η μορφοποίηση του κώδικα σας είναι η εφαρμογή δεν είναι ειδικά σε κελιά πίνακα , αλλά μπορεί να λειτουργήσει με οποιοδήποτε αντικείμενο Range. Οι nuTab.Columns ( 2 ) . Κύτταρα ( 2 ) αντικείμενο συμβαίνει να είναι το αντικείμενο Σειρά σε αυτή την περίπτωση .

Πειραματιστείτε με διαφορετικές επιλογές μορφοποίησης που προσφέρει το Word . Χρησιμοποιήστε το Object Browser για να τους βρείτε . Ξεκινήστε με αναζητούν μια γνωστή λύση ( π.χ. wdLineStyleSingle ) , και παρατηρώντας τη συλλογή παρόμοιες επιλογές της οποίας αποτελεί μέρος .
Η
εικόνων