Πώς να ξεκινήσετε τη χρήση VBA με το Microsoft Word

Ξεκινώντας τη χρήση της Visual Basic for Applications ( VBA ) στο Microsoft Word δεν είναι τόσο περίπλοκο όπως μπορείτε να σκεφτείτε . VBA είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται σε εφαρμογές του Microsoft Office για να αυτοματοποιήσουν εργασίες ρουτίνας . Ο πιο γρήγορος τρόπος για να ξεκινήσετε είναι με τη χρήση μακροεντολών . Μια μακροεντολή VBA σας επιτρέπει να βάλετε το Word στον αυτόματο πιλότο , επιτρέποντάς σας να εκτελέσετε μια συλλογή από εντολές με ένα κλικ ή το πάτημα ενός πλήκτρου . Μπορείτε να καταγράψετε μια μακροεντολή και να επεξεργαστείτε τη μακροεντολή αφού έχει δημιουργηθεί για να προσθέσετε περισσότερες εντολές , όπως απαιτείται . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Word , κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Καταγραφή μακροεντολής . " Πληκτρολογήστε " createTable " κάτω " Macro name" και κάντε κλικ στο κουμπί " OK" . 2

Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο εικονίδιο " Πίνακας " . Σύρετε το ποντίκι σας πάνω από τις πλατείες και κάντε κλικ στο τετράγωνο με την ένδειξη " 3x3 πίνακα " για να εισάγετε ένα νέο πίνακα . Κάντε κλικ στο εικονίδιο " Stop Recording" στο παράθυρο μακροεντολών για να διακόψετε την εγγραφή της μακροεντολής .
Εικόνων 3

Κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Μακροεντολές " για να ανοίξει το παράθυρο διαλόγου Μακροεντολές . Κάντε κλικ στο " createTable " macro δημιουργήσατε στα προηγούμενα βήματα και κάντε κλικ στο κουμπί "Επεξεργασία" για να ανοίξει το παράθυρο VB Editor. Το ακόλουθο κώδικα VBA ήταν δημιουργείται αυτόματα για σας να δημιουργήσετε τον πίνακα :

ActiveDocument.Tables.Add Σειρά : = Selection.Range , NumRows : = 3 , NumColumns : = _

3 , DefaultTableBehavior : = wdWord9TableBehavior , AutoFitBehavior : . = _

wdAutoFitFixed

Με Selection.Tables ( 1 )

Εάν Style <> " Πίνακας Grid " Τότε

. Style = " πίνακα Grid "

End If

. ApplyStyleHeadingRows = True

. ApplyStyleLastRow = False

. ApplyStyleFirstColumn = True
. . .

ApplyStyleLastColumn = False

ApplyStyleRowBands = True

ApplyStyleColumnBands = False

End With

Selection.TypeText Κείμενο : = " Όνομα "

Selection.MoveRight Μονάδα : = wdCell

Selection.TypeText Κείμενο : = " Επώνυμο "

Selection.MoveRight Μονάδα : = wdCell

Επιλογή . TypeText κειμένου: = " Βαθμός "
Η 4

Προσθέστε τον ακόλουθο κώδικα VBA για να συμπληρώσετε τον πίνακα με τα δεδομένα :

με Selection.Tables ( 1 )

. κυττάρων ( 2 , 1 ) . Range.Text = " John"

. τηλέφωνα ( 2 , 2 ) . Range.Text = " Smith "

. τηλέφωνα ( 2 , 3 ) . Σειρά . Text = " B "

. κυττάρων ( 3 , 1 ) . Range.Text = " Όσκαρ "

. κυττάρων ( 3 , 2 ) . Range.Text = " Ramos "

. κυττάρων ( 3 , 3 ) . Range.Text = " A + "

End με τη
5

Πατήστε το " F5 " για να εκτελέσετε τη μακροεντολή . Αυτό θα δημιουργήσει ένα νέο πίνακα με τρεις στήλες και τρεις γραμμές , και θα συμπληρώσετε τα κελιά με δεδομένα .
Η
εικόνων