Μετάβαση στο κύριο περιεχόμενο

Πώς να αφαιρέσετε όλες τις εικόνες από το έγγραφο στο Word;

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

Αφαιρέστε όλες τις εικόνες από το έγγραφο με τη λειτουργία Εύρεση και αντικατάστασης
Αφαιρέστε όλες τις εικόνες από το έγγραφο χρησιμοποιώντας τον κωδικό VBA
Αφαιρέστε εύκολα όλες τις εικόνες από το έγγραφο με το Kutools for Word


Αφαιρέστε όλες τις εικόνες από το έγγραφο με τη λειτουργία Εύρεση και αντικατάστασης

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

Βήμα 1: Κάντε κλικ στο κουμπί Home > Αντικαταστήστε για να ανοίξετε το Εύρεση και αντικατάσταση παράθυρο;

Βήμα 2: Στο Εύρεση και αντικατάσταση παράθυρο, κάντε κλικ στο Περισσότερες κουμπί για να εμφανίσετε περισσότερα Αναζήτηση Επιλογές και, στη συνέχεια, κάντε κλικ στο Άμεση έκπτωση > Γραφιστικέςκαι, τέλος, κάντε κλικ στο Αντικατάσταση όλων κουμπί. Δείτε το στιγμιότυπο οθόνης:

Note: μπορείτε επίσης να εισάγετε ^g μέσα στο βρείτε αυτό κουτί απευθείας, κρατήστε την αντικατάσταση με κενό και στη συνέχεια κάντε κλικ στο Αντικατάσταση όλων κουμπί για να αφαιρέσετε όλες τις εικόνες από το έγγραφο.

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


Αφαιρέστε εύκολα όλες τις εικόνες από το έγγραφο με το Kutools for Word:

Η Κατάργηση εικόνων χρησιμότητα του Kutools για το Word μπορεί να σας βοηθήσει να αφαιρέσετε γρήγορα όλες τις εικόνες από ένα επιλεγμένο εύρος ή ολόκληρο το έγγραφο όπως χρειάζεστε. Δείτε τη λειτουργία όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Κατεβάστε και δοκιμάστε το τώρα! (60- ημέρα δωρεάν διαδρομή)


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

Η χρήση του κώδικα VBA είναι ένας άλλος ευκολότερος τρόπος για να αφαιρέσετε όλες τις εικόνες από το έγγραφο. Μπορείτε να χρησιμοποιήσετε έναν κωδικό VBA ως εξής για να αφαιρέσετε όλες τις εικόνες από το έγγραφο.

Βήμα 1: Πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογή παράθυρο;

Βήμα 2: Κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στο Μονάδα μέτρησης παράθυρο;

Βήμα 3: Κάντε κλικ στο τρέξιμο για να εφαρμόσετε το VBA.

Κωδικός VBA: Κατάργηση όλων των εικόνων από το έγγραφο:

Sub DitchPictures()
Dim objPic As InlineShape
For Each objPic In ActiveDocument.InlineShapes
objPic.Delete
Next objPic
End Sub

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


Καταργήστε όλες τις εικόνες από το έγγραφο με το Kutools for Word

Kutools για το Word παρέχει τον πιο βολικό τρόπο για να αφαιρέσετε όλες τις εικόνες από το έγγραφο. Μπορεί να αφαιρέσει όλες τις εικόνες από ολόκληρο το έγγραφο ή όλες τις εικόνες από το επιλεγμένο μέρος του εγγράφου.

Kutools για το Word : με περισσότερα από 100 εύχρηστα πρόσθετα Word, δωρεάν δοκιμή χωρίς περιορισμό 60 ημέρες.

Κατάργηση εικόνων από μια σειρά:

1. Επιλέξτε το εύρος που περιέχει τις εικόνες που θέλετε να καταργήσετε και, στη συνέχεια, εφαρμόστε αυτό το βοηθητικό πρόγραμμα κάνοντας κλικ Kutools > Περισσότερες > Κατάργηση εικόνων για να τα αφαιρέσετε ταυτόχρονα. Δείτε το στιγμιότυπο οθόνης:

Αφαιρέστε εικόνες από ολόκληρο το έγγραφο:

1. Απλώς ενεργοποιήστε το βοηθητικό πρόγραμμα κάνοντας κλικ Kutools > Περισσότερες > Κατάργηση εικόνων χωρίς να επιλέξετε κανένα μέρος του εγγράφου. Μετά ένα Kutools για το Word εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει την αφαίρεση όλων των εικόνων. Κάντε κλικ Ναι για να ξεκινήσετε την αφαίρεση.

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

Εάν θέλετε να δοκιμάσετε δωρεάν αυτό το βοηθητικό πρόγραμμα, μεταβείτε στη διεύθυνση δωρεάν λήψη του λογισμικού πρώτα και μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!

Βουτήξτε στις επισημασμένες λειτουργίες παρακάτω ή κάντε κλικ εδώ για να εξερευνήσετε την πλήρη ισχύ του Kutools για Word.

📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων  /  Συγχώνευση εγγράφων  /  Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/XLSX)  /  Μαζική μετατροπή σε PDF  /  Εξαγωγή σελίδων ως εικόνες  /  Εκτύπωση πολλών αρχείων ταυτόχρονα ...

Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία   /  Αλλαγή μεγέθους όλων των εικόνων   /  Μεταφορά σειρών και στηλών πίνακα  /  Μετατροπή πίνακα σε κείμενο ...

🧹 Καθαρισμός χωρίς κόποΣαρώστε μακριά Επιπλέον χώροι  /  Διακοπές ενότητας  /   Όλες οι κεφαλίδες  /  Κουτιά κειμένου  /  Υπερ-συνδέσεις  /  Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στην Ομάδα κατάργησης

Δημιουργικά ένθετα: Κύριο θέμα Χιλιάδες Διαχωριστές  /  Πλαίσια ελέγχου  /  Κουμπιά ραδιοφώνου  /  QR Code  /  barcode  /  Διαγώνιος γραμμικός πίνακας  /  Λεζάντα εξίσωσης  /  Λεζάντα εικόνας  /  Λεζάντα πίνακα  /  Πολλαπλές εικόνες  /  Ανακαλύψτε περισσότερα στην Ομάδα Εισαγωγής

🔍 Επιλογές Ακρίβειας: Εντοπίστε συγκεκριμένες σελίδες  /  πίνακες  /  σχήματα  /  επικεφαλίδες παραγράφους  /  Πλοηγηθείτε με ευκολία χρησιμοποιώντας την Ομάδα Επιλογής

Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία  /  αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου  /  εναλλαγή μεταξύ των παραθύρων εγγράφων  /  11 Εργαλεία μετατροπής ...

Μεταμορφώστε τις εργασίες σας στο Word με το Kutools. 👉 Λήψη με δοκιμή 30 ημερών τώρα 🚀.

 
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Great reminder about the find & replace>special>graphics option!

Saved me so much work!
This comment was minimized by the moderator on the site
i dont know but some of the graphic is not capturing in replace button.
This comment was minimized by the moderator on the site
Wow, yes thank you. Several other previous matches did not work.
This comment was minimized by the moderator on the site
Thank you so much for this how to - it saved me HOURS of work taking photos out of a document!! nancy
This comment was minimized by the moderator on the site
Your code will only remove inlineshapes, consider the following as I have sometimes seen problems when using collections Do While ActiveDocument.Shapes.count > 0 ActiveDocument.Shapes(1).Delete Loop Do While ActiveDocument.InlineShapes.count > 0 ActiveDocument.InlineShapes(1).Delete Loop I use these when changing a file to text only. I also convert all tables to tab delmited Do While ActiveDocument.Tables.count > 0 ActiveDocument.Tables(1).ConvertToText Separator:=wdSeparateByTabs Loop I have not seen any problems with do while loops, but have occasionally when deleting from a collection that I am playing with I alternatively use .count to get a total of items and use a for next with a step -1 to work on them backwards. By the way, I work on a Mac and objects sometimes act funny and some windows VBA objects are not even available.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations