Πώς να μετρήσετε τον αριθμό των εικόνων σε ένα έγγραφο του Word;
Εάν υπάρχουν πολλά γραφικά στο έγγραφο του Word που περιέχουν τόσο ενσωματωμένες εικόνες όσο και κυμαινόμενα σχήματα, τώρα, θέλετε να μετρήσετε τον αριθμό αυτών των γραφικών σε ολόκληρο το έγγραφο, πώς θα μπορούσατε να λάβετε τον αριθμό των εικόνων γρήγορα και σωστά;
Μετρήστε τον αριθμό των ενσωματωμένων εικόνων με τη δυνατότητα Εύρεση και αντικατάστασης
Μετρήστε τον αριθμό των ενσωματωμένων εικόνων με τη δυνατότητα Εύρεση και αντικατάστασης
Η Εύρεση και αντικατάσταση Η δυνατότητα στο Word μπορεί να σας βοηθήσει να μετρήσετε τον αριθμό των ενσωματωμένων εικόνων μόνο γρήγορα και εύκολα, κάντε τα εξής:
1. Κλίκ Αρχική > Εύρεση > Σύνθετη εύρεση, δείτε το στιγμιότυπο οθόνης:
2. Στην Εύρεση και αντικατάσταση πλαίσιο διαλόγου, κάτω από το Εύρεση καρτέλα, πληκτρολογήστε το ^g μέσα στο βρείτε αυτό πλαίσιο κειμένου και, στη συνέχεια, επιλέξτε Κύριο έγγραφο από το Βρείτε το αναπτυσσόμενη λίστα, δείτε το στιγμιότυπο οθόνης:
3. Και στη συνέχεια μπορείτε να δείτε τον αριθμό των ενσωματωμένων εικόνων σε αυτό το έγγραφο του Word να εμφανίζεται όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:
Μετρήστε τον αριθμό τόσο των ενσωματωμένων εικόνων όσο και των κυμαινόμενων σχημάτων με τον κωδικό VBA
Η παραπάνω μέθοδος μπορεί να μετρήσει μόνο τον αριθμό των ενσωματωμένων εικόνων, εάν υπάρχουν κάποια κινούμενα σχήματα στο έγγραφο, δεν θα μετρηθούν. Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να μετρήσετε τόσο τις ενσωματωμένες εικόνες όσο και τα κινούμενα σχήματα, κάντε το ως εξής:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στη συνέχεια, κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στην ανοιχτή κενή ενότητα, δείτε το στιγμιότυπο οθόνης:
Κωδικός VBA: Μετρήστε τον αριθμό τόσο των ενσωματωμένων εικόνων όσο και των αιωρούμενων σχημάτων
Sub CountImagesInDoc()
Dim xInlines As Long
Dim xFloaters As Long
Dim sh As Shape
Dim tbxs As Long
Dim msg As String
With ActiveDocument
For Each sh In .Shapes
If sh.Type = msoTextBox Then tbxs = tbxs + 1
Next
xInlines = .InlineShapes.Count
xFloaters = .Shapes.Count - tbxs
End With
xPrompt = "Inline images:" & vbTab & xInlines & vbCr
xPrompt = xPrompt & "Floating shapes:" & vbTab & xFloaters & vbCr
xPrompt = xPrompt & vbTab & "Total:" & vbTab & (xInlines + xFloaters) & vbCr
xPrompt = xPrompt & "Counts do not include headers and footers, etc."
MsgBox xPrompt, vbInformation, "Kutools for Word"
End Sub
3. Αφού επικολλήσετε τον κωδικό και πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και εμφανίζεται ένα πλαίσιο προτροπής για να σας πει πόσες ενσωματωμένες εικόνες και κυμαινόμενα σχήματα σε αυτό το έγγραφο του Word, δείτε το στιγμιότυπο οθόνης:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Συνοψίστε τα έγγραφα / Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...) / Μαζική μετατροπή σε PDF / Εξαγωγή σελίδων ως εικόνες / Εκτύπωση πολλών αρχείων ταυτόχρονα...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Όλες οι κεφαλίδες / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...
➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Διαγώνιος γραμμικός πίνακας / Λεζάντα εξίσωσης / Λεζάντα εικόνας / Λεζάντα πίνακα / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...
🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες / πίνακες / σχήματα / επικεφαλίδες παραγράφους / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία / αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / εναλλαγή μεταξύ των παραθύρων εγγράφων / 11 Εργαλεία μετατροπής...
