Πώς να χρησιμοποιήσετε το Visual Basic στο Word

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

1 Ανοίξτε το Microsoft Office Word 2007 , κάντε κλικ στην καρτέλα "Προγραμματιστής " και επιλέξτε " Visual Basic ". " . Ενότητα " Επιλέξτε το μενού "Εισαγωγή" και επιλέξτε 2

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα υπορουτίνα :

Private Sub useVBinWord ( )

Τύπου " . Enter "
εικόνων 3

Πληκτρολογήστε το παρακάτω, για να εισαγάγετε δύο γραμμές κειμένου :

Selection.TypeText κείμενο : = " είμαι η εισαγωγή αυτού του κειμένου σε αυτό το έγγραφο του Word . "

Selection.TypeParagraph

Selection.TypeText Κείμενο : = " είμαι , επίσης, πρόκειται να εισάγετε αυτόν τον πίνακα : "

Selection.TypeParagraph
Η 4

Πληκτρολογήστε το παρακάτω, για να εισαγάγετε έναν πίνακα με τέσσερις στήλες και τέσσερις γραμμές:

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

4 , 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

με τη
5

Πληκτρολογήστε το παρακάτω για να προσθέσετε τα ονόματα των πεδίων με τις στήλες του πίνακα :

Selection.TypeText Κείμενο : = " Πεδίο1 "

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

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

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

Selection.TypeText Κείμενο : = " Πεδίο3 "

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

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

Πατήστε το " F5 " για να εκτελέσετε υπορουτίνα σας
Η
εικόνων