Direkt zum Inhalt

Wie zähle ich die Anzahl der Bilder in einem Word-Dokument?

Wenn Ihr Word-Dokument mehrere Grafiken enthält, die sowohl Inline-Bilder als auch schwebende Formen enthalten, möchten Sie jetzt die Anzahl dieser Grafiken im gesamten Dokument zählen. Wie können Sie die Anzahl der Bilder schnell und korrekt ermitteln?

Zählen Sie die Anzahl der Inline-Bilder mit der Funktion Suchen und Ersetzen

Zählen Sie die Anzahl der Inline-Bilder und schwebenden Formen mit VBA-Code


Zählen Sie die Anzahl der Inline-Bilder mit der Funktion Suchen und Ersetzen

Das Suchen und Ersetzen Mit der Funktion in Word können Sie die Anzahl der Inline-Bilder nur schnell und einfach zählen. Gehen Sie dazu wie folgt vor:

1. Klicken Sie Home > Finden Sie > Erweiterte Suche, siehe Screenshot:

Anzahl der Dokumente 1

2. In dem Suchen und Ersetzen Dialogfeld unter Finden Sie Geben Sie die Registerkarte ein ^g in die Finden Sie, was Textfeld, und wählen Sie dann Hauptdokument von dem Zu finden in Dropdown-Liste, siehe Screenshot:

Anzahl der Dokumente 2

3. Und dann können Sie sehen, dass die Anzahl der Inline-Bilder in diesem Word-Dokument wie folgt angezeigt wurde:

Anzahl der Dokumente 3


Zählen Sie die Anzahl der Inline-Bilder und schwebenden Formen mit VBA-Code

Die obige Methode kann nur die Anzahl der Inline-Bilder zählen. Wenn das Dokument einige schwebende Formen enthält, werden diese nicht gezählt. Der folgende VBA-Code kann Ihnen dabei helfen, sowohl die Inline-Bilder als auch die schwebenden Formen zu zählen. Gehen Sie dazu folgendermaßen vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Dann klick Insert > Modul, kopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein, siehe Screenshot:

VBA-Code: Zählen Sie die Anzahl der Inline-Bilder und der schwebenden Formen:

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. Nachdem Sie den Code eingefügt haben, drücken Sie F5 Wenn Sie den Schlüssel zum Ausführen dieses Codes eingeben, wird ein Eingabeaufforderungsfeld angezeigt, in dem angegeben wird, wie viele Inline-Bilder und schwebende Formen in diesem Word-Dokument enthalten sind (siehe Abbildung):

Anzahl der Dokumente 4


Beste Office-Produktivitätstools

Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!

🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren  /  Text umschreiben  /  Dokumente zusammenfassen  /  Erkundigen Sie sich nach Informationen basierend auf Dokument, alles in Word

📘 Dokumentenbeherrschung: Seiten teilen  /  Dokumente zusammenführen  /  Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...)  /  Stapelkonvertierung in PDF  /  Seiten als Bilder exportieren  /  Drucken Sie mehrere Dateien gleichzeitig...

Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg  /  Größe aller Bilder ändern  /  Vertauschen Sie Tabellenzeilen und -spalten  /  Tabelle in Text konvertieren...

🧹 Mühelose Reinigung: Wegfegen Zusätzliche Räume  /  Abschnittswechsel  /  Alle Header  /  Textfelder  /  Hyperlinks  / Weitere Entfernungswerkzeuge finden Sie auf unserer Gruppe entfernen...

Kreative Einsätze: Einfügen Tausend Trennzeichen  /  Kontrollkästchen  /  Radio Knöpfe  /  QR Code  /  Strichcode  /  Diagonale Linientabelle  /  Gleichungsbeschriftung  /  Bildunterschrift  /  Tabellenüberschrift  /  Mehrere Bilder  / Entdecken Sie mehr im Gruppe einfügen...

🔍 Präzise Auswahl: Punktgenau bestimmte Seiten  /  Tabellen  /  Formen  /  Überschriften von Absätzen  / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...

Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort  /  Sich wiederholenden Text automatisch einfügen  /  Wechseln Sie nahtlos zwischen Dokumentfenstern  /  11 Konvertierungstools...

👉 Möchten Sie diese Funktionen ausprobieren? Kutools für Word bietet a 60-Tage kostenlose Testversion, ohne Einschränkungen! 🚀
 
Comments (1)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
helpfulllll😀😁
Rated 5 out of 5
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations