3 γρήγοροι τρόποι μαζικής αλλαγής του χρώματος των κειμένων σε αγκύλες στο έγγραφο του Word

Κοινή χρήση τώρα:

Στο σημερινό σost, θα επικεντρωθούμε στην εμφάνιση 3 τρόπων μαζικής αλλαγής του χρώματος των κειμένων σε παρένθεση στο έγγραφο του Word.

Δεν είναι ασυνήθιστο να χρησιμοποιείτε διάφορους τύπους παρενθέσεων στο έγγραφό σας. Για κείμενα που περικλείονται σε αγκύλες, είναι εξίσου σημαντικά με αυτά που δεν είναι. Ακόμα και μερικές φορές, θα πρέπει να τα ξεχωρίζετε. Δεδομένης αυτής της ζήτησης, διαλέξαμε 3 γρήγορες προσεγγίσεις για να αλλάξετε μαζικά το χρώμα των κειμένων σε παρένθεση.Μαζική αλλαγή του χρώματος των κειμένων σε αγκύλες στο έγγραφο του Word

Μέθοδος 1: Χρησιμοποιήστε το "Advanced Find" για να βρείτε όλα τα κείμενα σε αγκύλες

  1. Αρχικά, κάντε κλικ στην καρτέλα "Αρχική σελίδα" στην Κορδέλα.
  2. Στη συνέχεια στην ομάδα "Επεξεργασία", κάντε κλικ στο αναπτυσσόμενο κουμπί δίπλα στην εντολή "Εύρεση".
  3. Στο αναπτυσσόμενο μενού, επιλέξτε "Σύνθετη εύρεση" για να ανοίξετε το παράθυρο διαλόγου "Εύρεση και αντικατάσταση".Κάντε κλικ στο "Αρχική σελίδα" -> Κάντε κλικ στο αναπτυσσόμενο κουμπί Δίπλα στο "Εύρεση" -> Επιλέξτε "Σύνθετη εύρεση"
  4. Στη συνέχεια, τοποθετήστε τον κέρσορα στο πλαίσιο κειμένου "Εύρεση τι" και εισαγάγετε μία από τις συμβολοσειρές στον παρακάτω πίνακα.
Βάσεις Συμβολοσειρές για να βρείτε αγκύλες και όλα τα συνημμένα κείμενα
Αγκύλες

[]

\ [* \]
Παρενθέσεις

()

\ (* \)
Τιράντες (αγκύλες)

{}

\ {* \}
Γωνιακά στηρίγματα

<>

\ <* \>

 

  1. Κάντε κλικ στην καρτέλα "Περισσότερα".
  2. Στη συνέχεια, επιλέξτε το πλαίσιο "Χρήση μπαλαντέρ".
  3. Κάντε κλικ στο "Εύρεση σε" και επιλέξτε "Κύριο έγγραφο".Πληκτρολογήστε συμβολοσειρά στο πλαίσιο "Εύρεση τι" Πλαίσιο κειμένου -> Κάντε κλικ στο "Περισσότερα" -> Επιλέξτε "Χρήση χαρακτήρων μπαλαντέρ" -> Κάντε κλικ στο "Εύρεση σε" -> Επιλέξτε "Κύριο έγγραφο"
  4. Τώρα θα δείτε όλα τα κείμενα μέσα στον συγκεκριμένο τύπο αγκυλών να είναι επιλεγμένα.
  5. Μπορείτε να συνεχίσετε να εκτελείτε στο πλαίσιο "Εύρεση και αντικατάσταση" κάνοντας κλικ στην καρτέλα "Μορφοποίηση" και επιλέξτε "Γραμματοσειρά".
  6. Στο πλαίσιο "Εύρεση γραμματοσειράς", επιλέξτε ένα χρώμα γραμματοσειράς και κάντε κλικ στο "OK". Στη συνέχεια, το χρώμα της γραμματοσειράς σε παρένθεση θα αλλάξει.
  7. Ή μπορείτε να πατήσετε "Ctrl + D" για να ανοίξετε το πλαίσιο "Γραμματοσειρά" και να ορίσετε ένα χρώμα γραμματοσειράς εκεί.

Μέθοδος 2: Χρησιμοποιήστε τη δυνατότητα "Εύρεση και αντικατάσταση" για αλλαγή χρώματος γραμματοσειράς

  1. Αρχικά, πατήστε "Ctrl + H" για να ενεργοποιήσετε το πλαίσιο "Εύρεση και αντικατάσταση".
  2. Στο πλαίσιο κειμένου "Εύρεση τι", εισαγάγετε μια συμβολοσειρά διαθέσιμη στον πίνακα στη μέθοδο 1.
  3. Και στο πλαίσιο κειμένου "Αντικατάσταση με", εισαγάγετε "^ &".
  4. Στη συνέχεια, κάντε κλικ στο "Περισσότερα" και επιλέξτε το πλαίσιο "Χρήση μπαλαντέρ".
  5. Στη συνέχεια κάντε κλικ στο κουμπί "Μορφοποίηση" και επιλέξτε "Γραμματοσειρά".
  6. Ορίστε ένα χρώμα γραμματοσειράς εκεί και κάντε κλικ στο "OK".
  7. Τέλος, κάντε κλικ στο "Αντικατάσταση όλων" στο πλαίσιο "Εύρεση και αντικατάσταση".Εισαγάγετε συμβολοσειρές στο "Εύρεση τι" και "Αντικατάσταση με" Πλαίσια κειμένου-> Επιλέξτε "Χρήση μπαλαντέρ" Πλαίσιο-> Κάντε κλικ στο "Μορφή" -> "Γραμματοσειρά" -> "Αντικατάσταση όλων"

Μέθοδος 3: Εκτελέστε κωδικούς VBA για να αλλάξετε το χρώμα των κειμένων

Η εκτέλεση της ακόλουθης μακροεντολής θα αλλάξει όλα τα κλειστά κείμενα σε όλους τους τύπους αγκυλών σε ένα καθορισμένο χρώμα.

  1. Πατήστε "Alt + F11" για να καλέσετε τον επεξεργαστή VBA.
  2. Στη συνέχεια, κάντε κλικ στο "Κανονικό" έργο.
  3. Στη συνέχεια κάντε κλικ στο "Εισαγωγή" και επιλέξτε "Ενότητα".Κάντε κλικ στο "Normal" -> Κάντε κλικ στο "Insert" -> Κάντε κλικ στο "Module"
  4. Κάντε διπλό κλικ για να ανοίξετε τη νέα μονάδα και επικολλήστε τους κωδικούς εκεί:
Sub ChangeTheFontColorInBrackets()
  Dim objRange As Range
  Dim strFontColor As String
  Set objRange = ActiveDocument.Content 
  strFontColor = InputBox("Enter the font color you want to change", "Font Color", "For example:2")
  ' Find the words in brackets and change the font color.

  With objRange.Find
    .Text = "\[*\]"
    .MatchWildcards = True
    .Replacement.Font.ColorIndex = strFontColor
    .Execute Replace:=wdReplaceAll
    .Text = "\(*\)"
    .Replacement.Font.ColorIndex = strFontColor
    .Execute Replace:=wdReplaceAll
    .Text = "\{*\}"
    .Replacement.Font.ColorIndex = strFontColor
    .Execute Replace:=wdReplaceAll
    .Text = "\<*\>"
    .Replacement.Font.ColorIndex = strFontColor
    .Execute Replace:=wdReplaceAll   
  End With
End Sub
  1. Πατήστε "F5" για να εκτελέσετε κωδικούς.
  2. Θα εμφανιστεί ένα πλαίσιο εισαγωγής. Μπορείτε να αναζητήσετε την τιμή ενός συγκεκριμένου χρώματος σε αυτήν την ιστοσελίδα:

https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex

Απλώς εισαγάγετε μια τιμή και κάντε κλικ στο "OK" για να συνεχίσετε.Εισαγάγετε μια τιμή χρώματος γραμματοσειράς -> Κάντε κλικ στο "OK"

Εδώ είναι το πιθανό αποτέλεσμα:Επίδραση της εκτέλεσης κωδικών VBA

Διεύθυνση διαφθοράς εγγράφου σωστά

Δεν πρέπει να βασίζεστε στην τύχη για να διατηρείτε τα δεδομένα ασφαλή. Αντ 'αυτού, πρέπει να κάνετε πλήρη προετοιμασία πριν συμβεί οποιαδήποτε καταστροφή δεδομένων. Ενας από αυτούςost είναι να αποκτήσετε ένα εξειδικευμένο εργαλείο για να το διορθώσετε κατεστραμμένη λέξη εκ των προτέρων.

Εισαγωγή συγγραφέα:

Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων Επισκευή Excel pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com

Κοινή χρήση τώρα:

Τα σχόλια είναι κλειστά.