Zum Hauptinhalt springen

Wie fügt man mehrere Bilder mit Dateinamen in ein Word-Dokument ein?

Author: Xiaoyang Last Modified: 2025-08-06

In einem Word-Dokument können Sie schnell mehrere Bilder auf einmal mit der Einfügen-Funktion einfügen. Es kann jedoch vorkommen, dass Sie beim Einfügen der Bilder den Dateipfad und die Dateinamen als Beschriftungen hinzufügen müssen. Dies kann besonders nützlich sein für Dokumentationen, Berichte oder Präsentationen, bei denen die Quelle der Bilder wichtig ist.

In diesem Tutorial führen wir Sie durch die Schritte, um effizient mehrere Bilder zusammen mit ihren Dateipfaden und Dateinamen als Beschriftungen in ein Word-Dokument einzufügen und Ihnen so zu helfen, Ihre Bilder besser zu verwalten.

Mehrere Bilder mit Dateinamen mithilfe eines VBA-Codes einfügen

Mehrere Bilder mit Dateinamen mithilfe von Kutools für Word einfügen

Mehrere Bilder mit Dateinamen mithilfe eines VBA-Codes einfügen

Der folgende VBA-Code hilft Ihnen, mehrere Bilder zusammen mit ihrem Dateipfad und Namen als Beschriftungen einzufügen. Bitte folgen Sie diesen Schritten:

  1. Halten Sie Alt + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
  2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das geöffnete Modul ein: 
    Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath, xFile As Variant
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDialog.Show = -1 Then
        xPath = xFileDialog.SelectedItems.Item(1)
        If xPath <> "" Then
            xFile = Dir(xPath & "\*.*")
            Do While xFile <> ""
                If UCase(Right(xFile, 3)) = "PNG" Or _
                    UCase(Right(xFile, 3)) = "TIF" Or _
                    UCase(Right(xFile, 3)) = "JPG" Or _
                    UCase(Right(xFile, 3)) = "GIF" Or _
                    UCase(Right(xFile, 3)) = "BMP" Then
                    With Selection
                        .InlineShapes.AddPicture xPath & "\" & xFile, False, True
                        .InsertAfter vbCrLf
                        .MoveDown wdLine
                        .Text = xPath & "\" & xFile & Chr(10)
                        .MoveDown wdLine
                    End With
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub
  3. Drücken Sie F5, um den Code auszuführen. Ein Durchsuchen-Fenster wird erscheinen, in dem Sie den Ordner mit den Bildern auswählen können.

    4. Select a folder to insert pictures from

  4. Klicken Sie auf OK, und alle Bilder aus dem ausgewählten Ordner werden in das Word-Dokument eingefügt, wobei ihr Dateipfad und Name als Beschriftungen hinzugefügt werden.

    Selected pictures are inserted into the document with filenames

Mehrere Bilder mit Dateinamen mithilfe von Kutools für Word einfügen

Die Verwendung von Kutools für Word bietet eine effiziente Möglichkeit, mehrere Bilder zusammen mit ihren Dateipfaden und Namen in ein Word-Dokument einzufügen. Diese Funktion spart Zeit und gewährleistet Genauigkeit im Vergleich zum manuellen Hinzufügen von Dateidetails. Mit der Bilder-Funktion können Sie diese Aufgabe mühelos erledigen.

Kutools für Word,ausgestattet mit KI 🤖, bietet über 100 praktische Funktionen, um Ihre Aufgaben zu vereinfachen.

Nach der Installation von Kutools für Word folgen Sie diesen Schritten:

  1. Klicken Sie auf Kutools > Mehrfachbild.

    Multi-Picture option on the Kutools tab on the ribbon

  2. Im erscheinenden Bilder einfügen Dialogfeld führen Sie die folgenden Aktionen aus:
    • Klicken Sie auf Dateien hinzufügen oder Ordner hinzufügen, um die Bilder auszuwählen, die Sie einfügen möchten.
    • Aktivieren Sie die Option Dateipfad jedes Bildes als Beschriftung einfügen unten links im Dialogfeld.
    • Klicken Sie auf die Schaltfläche Einfügen, um die Bilder auf einmal einzufügen.

      Insert Pictures dialog box

  3. Nach dem Einfügen der Bilder wird der Dateipfad und Name jedes Bildes als Beschriftung hinzugefügt.

    Selected pictures are inserted into the document with filenames

Kutools für Word ist das ultimative Word-Add-in, das Ihre Arbeit optimiert und Ihre Dokumentverarbeitungsfähigkeiten steigert. Jetzt herunterladen!

Die besten Produktivitätstools für das Büro

Kutools für Word – Steigern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!

🤖 Kutools AI-Features: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen...

📘 Dokumenten-Beherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise Konvertierung nach PDF...

✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen über mehrere Dateien / Alle Bilder skalieren / Tabellenzeilen und -spalten transponieren / Tabelle in Text umwandeln...

🧹 Mühelos bereinigen: Entfernen Sie ganz einfach zusätzliche Leerzeichen / Abschnittsumbrüche / Textfelder / Hyperlinks / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen...

➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen im Bereich Einfügen...

🔍 Präzise Auswahl: Bestimmen Sie gezielt bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit weiteren Auswählen -Funktionen...

⭐ Herausragende Verbesserungen: Navigieren Sie zu beliebigen Standorten / Automatisches Einfügen von wiederkehrendem Text / Umschalten zwischen Dokument-Fenstern /11 Konvertierungswerkzeuge...

🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und mehr als40 weitere!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Laden Sie Kutools für Word jetzt herunter! 🚀
 

Die besten Produktivitätstools für das Büro

Kutools für Word – 100+ Werkzeuge für Word

Kostenloser Download Jetzt kaufen Mehr erfahren über Kutools