Πώς να αφαιρέσετε ένα συγκεκριμένο χρώμα επισήμανσης από το έγγραφο του Word

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

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

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

Τώρα ρίξτε μια ματιά στην παρακάτω προσέγγιση.

Αφαιρέστε ένα συγκεκριμένο χρώμα επισήμανσης μέσω VBA

1. Πρώτα απ 'όλα, κάντε κλικ στην καρτέλα "Προγραμματιστής" στην Κορδέλα.
2. Στη συνέχεια, κάντε κλικ στο "Visual Basic" για να ενεργοποιήσετε το πρόγραμμα επεξεργασίας VBA στο Word. Και δεδομένου ότι ενδέχεται να μην έχετε ακόμα διαθέσιμη την καρτέλα "Προγραμματιστής", μπορείτε να πατήσετε "Alt + F11".
3. Στη συνέχεια, κάντε κλικ στο "Κανονικό" έργο στην αριστερή στήλη του προγράμματος επεξεργασίας.
4. Στη συνέχεια, κάντε κλικ στην καρτέλα "Εισαγωγή" στη γραμμή μενού.
5. Στο αναπτυσσόμενο μενού, επιλέξτε "Ενότητα".
6. Τώρα κάντε διπλό κλικ στη νέα ενότητα για να ανοίξετε την περιοχή κωδικοποίησης.
7. Επικολλήστε την ακόλουθη μακροεντολή στη λειτουργική μονάδα:

Sub RemoveSpecificHighlightColor()
  Dim objDoc As Document
  Dim objRange As Range
  Dim strHighlightColor As String
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strHighlightColor = InputBox("Choose a Highlight colour to remove (enter the value):" & vbNewLine & _
                      vbTab & "Auto" & vbTab & vbTab & "0" & vbNewLine & _
                      vbTab & "Black" & vbTab & vbTab & "1" & vbNewLine & _
                      vbTab & "Blue" & vbTab & vbTab & "2" & vbNewLine & _
                      vbTab & "BrightGreen" & vbTab & "4" & vbNewLine & _
                      vbTab & "DarkBlue" & vbTab & vbTab & "9" & vbNewLine & _
                      vbTab & "DarkRed" & vbTab & vbTab & "13" & vbNewLine & _
                      vbTab & "DarkYellow" & vbTab & "14" & vbNewLine & _
                      vbTab & "Gray25" & vbTab & vbTab & "16" & vbNewLine & _
                      vbTab & "Gray50" & vbTab & vbTab & "15" & vbNewLine & _
                      vbTab & "Green" & vbTab & vbTab & "11" & vbNewLine & _
                      vbTab & "Pink" & vbTab & vbTab & "5" & vbNewLine & _
                      vbTab & "Red" & vbTab & vbTab & "6" & vbNewLine & _
                      vbTab & "Teal" & vbTab & vbTab & "10" & vbNewLine & _
                      vbTab & "Turquoise" & vbTab & "3" & vbNewLine & _
                      vbTab & "Violet" & vbTab & vbTab & "12" & vbNewLine & _
                      vbTab & "White" & vbTab & vbTab & "8" & vbNewLine & _
                      vbTab & "Yellow" & vbTab & vbTab & "7", "Highlight Color")
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .Highlight = True
 
      Do While .Execute
        If Selection.Range.HighlightColorIndex = strHighlightColor Then
          Set objRange = Selection.Range
          objRange.HighlightColorIndex = wdNoHighlight
          Selection.Collapse wdCollapseEnd
        End If
      Loop
    End With
  End With
 
  MsgBox ("The chosen highlight color has been removed in the document.")
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

8. Στη συνέχεια, κάντε κλικ στο κουμπί "Εκτέλεση" ή πατήστε "F5" για να εκτελέσετε κωδικούς.
9. Στη συνέχεια, υπάρχει το πλαίσιο "Χρώμα επισήμανσης". Υπάρχει μια τιμή για κάθε χρώμα. Απλώς εισαγάγετε την τιμή που σχετίζεται με το χρώμα επισήμανσης που θα αφαιρεθεί.
10. Τελευταίο αλλά όχι το λιγότερο, κάντε κλικ στο "OK" για να συνεχίσετε.
11. Όταν ολοκληρωθεί, θα λάβετε ένα τέτοιο πλαίσιο μηνύματος:

Εδώ είναι το πιθανό αποτέλεσμα:

Διατηρήστε τα δεδομένα σας ασφαλή

Η ακεραιότητα των δεδομένων μπορεί εύκολα να τεθεί σε κίνδυνο. Ήρθε η ώρα να λάβετε προληπτικά μέτρα πριν να είναι πολύ αργά. Για παράδειγμα, ο πιο συνιστώμενος τρόπος είναι να δημιουργείτε αντίγραφα ασφαλείας των αρχείων σας τακτικά. Βεβαιωθείτε πάντα ότι έχετε την πιο πρόσφατη έκδοση για να καταφύγετε σε αυτήν σε περίπτωση που συμβεί κάτι απροσδόκητο. Διαφορετικά, θα πρέπει να περάσετε από το Ανάκτηση λέξεων για λήψη δεδομένων.

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

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