Σε αυτό το άρθρο, θα επικεντρωθούμε στην εξήγηση 2 γρήγορων τρόπων για να αλλάξετε ομαδικά το χρώμα πολλών υπογραμμίσεων στο έγγραφο του Word.
Από προεπιλογή, το χρώμα υπογράμμισης στο Word ορίζεται ως "Αυτόματο". Αλλά μερικές φορές μπορεί να είναι μονότονο. Επομένως, τόσο για να διαφοροποιήσετε το σύνολο χρωμάτων στο έγγραφό σας όσο και για να ξεχωρίσετε τα σημαντικά περιεχόμενα, είναι καλή επιλογή να αλλάξετε το χρώμα της υπογράμμισης.
Είναι εύκολο να αλλάξετε το χρώμα της υπογράμμισης πριν το δημιουργήσετε. Επομένως, στα ακόλουθα περιεχόμενα, θα θέλαμε να δώσουμε έμφαση στην τροποποίηση του χρώματος των υπαρχουσών υπογραμμίσεων.
Μέθοδος 1: Χρησιμοποιήστε τη λειτουργία "Προηγμένη εύρεση".
Πρώτα απ 'όλα, πρέπει να βρείτε όλες τις υπογραμμισμένες περιπτώσεις στο τρέχον έγγραφο. Για αυτήν την ανάγκη, μπορείτε να ανατρέξετε στο προηγούμενο άρθρο μας: 2 Γρήγοροι τρόποι αναζήτησης υπογραμμισμένων κειμένων στο έγγραφο του Word
Αφού βρείτε και έχετε όλες τις υπογραμμίσεις στην επιλογή, ακολουθήστε τα παρακάτω βήματα:
- Απλώς κάνετε κλικ στο κουμπί ανάποδα τριγώνου πίσω από το εικονίδιο υπογράμμισης στην καρτέλα "Αρχική σελίδα".
- Στη συνέχεια, επιλέξτε ένα χρώμα που σας αρέσει στο εκτεταμένο μενού του "Υπογράμμιση χρώματος".
Εδώ είναι η επίδειξη βίντεο:
Μέθοδος 2: Εκτέλεση Word μακροεντολής
Η μακροεντολή του Word είναι ένα τόσο καταπληκτικό εργαλείο. Μπορούμε όχι μόνο να το χρησιμοποιήσουμε για να αναζητήσουμε όλες τις υπογραμμίσεις αλλά και να αλλάξουμε το χρώμα τους. Και οι δύο διαδικασίες μπορούν να ολοκληρωθούν σε μία μόνο μακροεντολή.
- Αρχικά, ενεργοποιήστε την καρτέλα "Προγραμματιστής" και κάντε κλικ σε αυτήν.
- Στη συνέχεια, κάντε κλικ στο "Visual Basic" στην ομάδα "Κώδικας".
- Στη συνέχεια κάντε κλικ στο "Normal".
- Στη συνέχεια, κάντε κλικ στην καρτέλα "Εισαγωγή".
- Και επιλέξτε "Module" στο μενού.
- Κάντε διπλό κλικ στη νέα ενότητα για να ανοίξετε το χώρο επεξεργασίας.
- Τώρα επικολλήστε τους παρακάτω κωδικούς εκεί:
Sub ChangeUnderlineColor()
Dim objDoc As Document
Dim objRange As Range
Set objDoc = ActiveDocument
Set objRange = objDoc.Range
objRange.Find.ClearFormatting
With objRange.Find
.Font.Underline = wdUnderlineSingle
.text = ""
.Replacement.text = ""
.Replacement.Font.UnderlineColor = wdColorBlue
.Execute Format:=True, Replace:=wdReplaceAll
End With
End Sub
- Τελευταίο αλλά όχι το λιγότερο, κάντε κλικ στο κουμπί "Εκτέλεση".
Σημειώσεις:
- Πρώτον, η γραμμή κώδικα ".Font.Underline = wdUnderlineSingle" σημαίνει ότι αυτή η μακροεντολή βρίσκει μόνο τις μεμονωμένες υπογραμμίσεις. Μπορείτε να αλλάξετε το "wdUnderlineSingle" σε "wdUnderlineDouble", "wdUnderlineThick" κ.λπ. Για περισσότερες σταθερές υπογράμμισης, μπορείτε να επισκεφτείτε αυτόν τον σύνδεσμο: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
- Δεύτερον, η γραμμή κώδικα ".Replacement.Font.UnderlineColor = wdColorBlue" σημαίνει ότι η μακροεντολή θα αλλάξει το χρώμα της υπογράμμισης σε μπλε. Και για περισσότερες σταθερές χρώματος, μπορείτε να επισκεφτείτε: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor
Ανάκτηση παραβιασμένων δεδομένων του Word
Η απώλεια δεδομένων στο Word είναι πολύ πιθανή στις μέρες μας. Για παράδειγμα, το πιο συνηθισμένο σφάλμα που θα συναντήσετε στο Word είναι το πάγωμα της οθόνης. Βέβαια, μπορείτε να επιλέξετε να επανεκκινήσετε το πρόγραμμα. Μερικές φορές, θα υπάρχει μια αυτόματα αποθηκευμένη έκδοση του εγγράφου στο οποίο εργάζεστε. Ωστόσο, δεν μπορούμε να αποκλείσουμε ή να ανεχτούμε την πιθανότητα απώλειας του εγγράφου είτε εν όλω είτε εν μέρει. Επομένως, πρέπει να σκεφτούμε τρόπους για να ανακτήσουμε τα δεδομένα. Και μιλώντας γι' αυτό, ένας επαγγελματίας... Επισκευή λέξεων εργαλείο είναι το κλειδί της επιτυχίας του.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένου του εργαλείου για επισκευή κατεστραμμένο xls και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com