Πώς να βρείτε και αντικατάσταση στυλ του Word σε Visual Basic του Excel

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

1 Πιέστε το πλήκτρο " Alt " + " F11 " στο πληκτρολόγιό σας από το Excel για να ανοίξετε το πρόγραμμα επεξεργασίας της Visual Basic . 2

Ανοίξτε μονάδα κώδικα VBA σας από το αριστερό μενού πλοήγησης παράθυρο ή να δημιουργήσετε μια νέα ενότητα κάνοντας κλικ στο " Εισαγωγή" και " ενότητα " στο μενού στην κορυφή
εικόνων 3

Αντιγράψτε και Επικολλήστε τον ακόλουθο κώδικα στο παράθυρο ενότητα : . με ActiveDocument.Content.Find . ClearFormatting.Font.Bold = TrueWith Replacement.ClearFormatting.Font.Bold = FalseEnd With.Execute FindText : . = "" , ReplaceWith : = " " , _Format : = True , Αντικατάσταση : = wdReplaceAllEnd Με

Αυτό κώδικας θα βρείτε όλο το κείμενο που είναι έντονο και να την αντικαταστήσει με το κείμενο που δεν είναι έντονο .
Η 4

αλλάξτε το " . Font.Bold = True " γραμμή για να αλλάξετε το στυλ που θέλετε να βρείτε ή να προσθέσετε νέες γραμμές για πιο σύνθετες μορφές , όπως η έντονη γραφή , μπλε ή υπογραμμισμένο κείμενο . Σε αυτή την περίπτωση που θα αντικαταστήσει τη γραμμή με : . Font.Bold = True.Font.Color = BlueFont.Underlined = True
5

Επεξεργαστείτε το " Font.Bold = False . " Γραμμή για να αλλάξετε το στυλ που θέλετε να αντικαταστήσετε τα βρήκε με στυλ . Για παράδειγμα , μπορεί να θέλετε να αλλάξετε όλο το κείμενο που βρέθηκε στο κόκκινο , έτσι θα αντικαταστήσετε τη γραμμή με : . Font.Color = Red

6

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε κώδικα VBA αντικατάστασης <. br >

Η