Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

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

Wenn in Ihrem Word-Dokument mehrere Grafiken enthalten sind, die sowohl Inline-Bilder als auch Floating Shapes 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 Floating Shapes mit VBA-Code


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

Die Suchen und Ersetzen Feature in Word kann Ihnen helfen, die Anzahl der Inline-Bilder nur schnell und einfach zu zählen, gehen Sie bitte wie folgt vor:

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

doc Anzahl Bilder 1

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

doc Anzahl Bilder 2

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

doc Anzahl Bilder 3


Zählen Sie die Anzahl der Inline-Bilder und Floating Shapes mit VBA-Code

Die obige Methode kann nur die Anzahl der Inline-Bilder zählen. Wenn im Dokument einige frei bewegliche Formen vorhanden sind, werden diese nicht gezählt. Der folgende VBA-Code kann Ihnen helfen, sowohl die Inline-Bilder als auch die Floating-Shapes zu zählen.

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

2. Dann klick Einsatz > Modul, kopiere und füge unterhalb Code in das geöffnete leere Modul ein, siehe Screenshot:

VBA-Code: Zählt die Anzahl der Inline-Bilder und der Floating Shapes:

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 Schlüssel, um diesen Code auszuführen, und eine Eingabeaufforderung wird ausgegeben, um Ihnen zu sagen, wie viele Inline-Bilder und fließende Formen in diesem Word-Dokument, siehe Screenshot:

doc Anzahl Bilder 4




Empfohlene Word-Produktivitätswerkzeuge

Kutools für Word - Mehr als 100 Erweiterte Funktionen Sparen Sie bei Word 50% Zeit

  • Komplizierte und wiederholte Operationen können in Sekundenschnelle einmalig ausgeführt werden.
  • Fügen Sie mehrere Bilder in verschiedenen Ordnern gleichzeitig in ein Word-Dokument ein.
  • Führen Sie mehrere Word-Dateien in Ordnern zusammen und kombinieren Sie sie in der gewünschten Reihenfolge.
  • Teilen Sie das aktuelle Dokument nach Überschrift, Abschnittswechsel oder anderen Kriterien in separate Dokumente auf.
  • Konvertieren Sie Dateien zwischen Doc und Docx, Docx und PDF, Sammlung von Tools für gemeinsame Konvertierungen und Auswahl usw.
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.