Σε αυτήν την ανάρτηση, είμαστε στην ευχάριστη θέση να σας δείξουμε 3 αποτελεσματικές μεθόδους για να αφαιρέσετε μαζικά το χρώμα γεμίσματος πολλαπλών σχημάτων στο έγγραφο του Word σας.
Κατά την εισαγωγή σχημάτων σε ένα έγγραφο του Word, μπορείτε επίσης να εφαρμόσετε χρώμα πλήρωσης σε αυτά. Είναι εύκολο να προσθέσετε ή να αφαιρέσετε το χρώμα πλήρωσης ενός μόνο σχήματος. Όμως, όσον αφορά τη μαζική επεξεργασία, θα χρειαστούμε κάποιο κόλπο.
Αυτή τη φορά, θέλουμε να σας δείξουμε πώς να αφαιρέσετε μαζικά το χρώμα πλήρωσης πολλών σχημάτων στο έγγραφο. Έτσι μπορείτε να τα ξαναγεμίσετε με τα επιθυμητά χρώματα ή απλά να αφήσετε σχήματα σε κενό φόντο. Ακολουθούν 3 μέθοδοι που μπορούν να σας βοηθήσουν σε διαφορετικές περιπτώσεις.
Μέθοδος 1: Καταργήστε το χρώμα πλήρωσης πολλαπλών σχημάτων σε μια σελίδα
- Πρώτα απ 'όλα, κάντε κλικ στην καρτέλα "Αρχική σελίδα" στην Κορδέλα.
- Στη συνέχεια, κάντε κλικ στην εντολή "Επιλογή" στην ομάδα "Επεξεργασία".
- Στο αναπτυσσόμενο μενού, επιλέξτε "Επιλογή παραθύρου".
- Τώρα στο παράθυρο "Επιλογή και ορατότητα", μπορείτε να δείτε όλο το όνομα των σχημάτων σε αυτήν τη σελίδα. Πατήστε "Ctrl" για να επιλέξετε τα σχήματα που χρειάζεστε.
- Στη συνέχεια, κάντε κλικ στο "Μορφοποίηση" στην Κορδέλα.
- Στη συνέχεια κάντε κλικ στο "Shape Fill".
- Επιλέξτε "Χωρίς συμπλήρωση" στο αναπτυσσόμενο μενού.
Μέθοδος 2: Μαζική κατάργηση του χρώματος συμπλήρωσης όλων των σχημάτων σε ένα έγγραφο
- Πρώτα απ 'όλα, εάν είναι διαθέσιμη η καρτέλα "Προγραμματιστής", κάντε κλικ σε αυτήν και, στη συνέχεια, κάντε κλικ στην επιλογή "Visual Basic" για να ανοίξετε τον επεξεργαστή VBA. Εάν ο "Προγραμματιστής" δεν έχει ενεργοποιηθεί, πατήστε "Alt+ F11".
- Τώρα στο πρόγραμμα επεξεργασίας, κάντε κλικ στο "Κανονικό" έργο στην αριστερή πλευρά.
- Στη συνέχεια, κάντε κλικ στο «Εισαγωγή» στη γραμμή μενού.
- Στη συνέχεια, επιλέξτε "Module" στο αναπτυσσόμενο μενού.
- Κάντε διπλό κλικ στη νέα ενότητα για να την ανοίξετε και επικολλήστε αυτούς τους κωδικούς εκεί:
Sub RemoveAllShapeFill()
Dim objShape As Shape
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
For Each objShape In objDoc.Shapes
objShape.Fill.Visible = False
objShape.Line.Visible = msoTrue
Next objShape
Application.ScreenUpdating = True
Set objDoc = Nothing
End Sub
- Τέλος, κάντε κλικ στο κουμπί "Εκτέλεση" ή πατήστε "F5" για να εκτελέσετε κωδικούς.
Μέθοδος 3: Καταργήστε το χρώμα συμπλήρωσης όλων των πλαισίων κειμένου σε ένα έγγραφο
Τα πλαίσια κειμένου ανήκουν στην κατηγορία σχήματος. Σε περίπτωση που θέλετε να αφαιρέσετε το χρώμα πλήρωσης όλων των πλαισίων κειμένου, αλλά να διατηρήσετε αυτό των άλλων σχημάτων, μπορείτε να το χρησιμοποιήσετε με αυτόν τον τρόπο.
- Πρώτον, επαναλάβετε τα βήματα στη μέθοδο 2 για να εγκαταστήσετε και να εκτελέσετε μια μακροεντολή.
- Και αυτή τη φορά, αντικαταστήστε αυτήν τη μακροεντολή με αυτήν:
Sub RemoveTextBoxFill()
Dim objShape As Shape
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
For Each objShape In objDoc.Shapes
If objShape.Type = msoTextBox Then
objShape.Fill.Visible = msoFalse
objShape.Line.Visible = msoTrue
Else
Exit For
End If
Next objShape
Application.ScreenUpdating = True
Set objDoc = Nothing
End Sub
Εδώ είναι το αποτέλεσμα:
Ανακτήστε γρήγορα κατεστραμμένα έγγραφα
Αν ποτέ αντιμετωπίσετε πρόβλημα με αλλοίωση εγγράφων, μην πανικοβληθείτε. Λάβετε υπόψη ότι τα περισσότερα έγγραφα είναι ανακτήσιμα. Αυτό που πρέπει να κάνετε είναι να εκμεταλλευτείτε τον χρόνο και να λάβετε ένα διορθώστε το έγγραφο εργαλείο. Σήμερα, ένα τέτοιο βοηθητικό πρόγραμμα μπορεί να βοηθήσει πολύ στην ανάκτηση των δεδομένων σας.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων xls διορθώστε και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com