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

In einem Word-Dokument können Sie mit der Funktion „Einfügen“ schnell mehrere Bilder gleichzeitig hinzufügen. Manchmal benötigen Sie dabei jedoch zusätzlich den Dateipfad und den Dateinamen als Beschriftung – besonders nützlich für Dokumentationen, Berichte oder Präsentationen, in denen die Bildquelle klar nachvollziehbar sein muss.

In diesem Tutorial zeigen wir Ihnen Schritt für Schritt, wie Sie mehrere Bilder effizient in ein Word-Dokument einfügen – inklusive Dateipfad und Dateinamen als Beschriftungen –, damit Sie Ihre Bilder noch besser verwalten können.

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 unterstützt Sie dabei, mehrere Bilder mitsamt ihrem Dateipfad und Namen als Beschriftungen einzufügen. Gehen Sie dazu wie folgt vor:

1. Halten Sie Alt + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications 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. Es erscheint ein Durchsuchen-Fenster, in dem Sie den Ordner mit Ihren Bildern auswählen können.



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

   

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 ihrem Dateipfad und ihren Namen in ein Word-Dokument einzufügen. Diese Funktion spart Zeit und gewährleistet eine höhere Genauigkeit im Vergleich zum manuellen Hinzufügen der Details. Mit der Bilder-Funktion erledigen Sie diese Aufgabe mühelos.

Führen Sie nach der Installation von Kutools für Worddie folgenden Schritte aus:

1. Klicken Sie auf Kutools>Mehrere Bilder.

   

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

     

3. Nach dem Einfügen der Bilder werden Dateipfad und Dateiname automatisch als Beschriftung hinzugefügt.

   

Beste Office-Produktivitätswerkzeuge

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

🤖KUTOOLS KI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI-Korrekturlesen …

📘Dokument-Meisterschaft: Seiten aufteilen, Dokumente zusammenführen, Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML …), stapelweise in PDF konvertieren …

✏Inhaltsbearbeitung: Stapelweises Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Tabelle transponieren – Zeilen und Spalten tauschen / Tabelle in Text umwandeln …

🧹Mühelose Bereinigung: Fegen Sie überflüssige Leerzeichen/Abschnittsumbruch/Textfeld/Hyperlinks/ Weitere Entfernungs-Werkzeuge finden Sie in der EntfernenGruppe …

➕Kreative Einfügungen: Fügen Sie Tausendertrennzeichen/Kontrollkästchen/Optionsfeld/QR-Code/Strichcode/Mehrere Bilder/ Weitere Funktionen finden Sie in der Einfügen-Gruppe …

🔍Präzisionsauswahl: Wählen Sie gezielt bestimmte Seiten, Tabellen, Formen oder Überschriftenabsätze aus – und verbessern Sie Ihre Navigation mit weiteren Auswählen-Funktionen …

⭐Hervorragende Erweiterungen: Zu beliebigen Positionen navigieren / Wiederkehrenden Text automatisch einfügen / Zwischen Dokumentenfenstern wechseln / 11 Konvertierungswerkzeuge Konvertierungs- …

🌍Unterstützt über 40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere!

 

Kostenlos herunterladen     Jetzt kaufen     Weitere Informationen

 

---

Office Tab– Bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher

• Aktivieren Sie die tabbasierte Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
• Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs desselben Fensters – statt in separaten Fenstern.
• Steigert Ihre Produktivität um 50 % und spart Ihnen täglich Hunderte von Mausklicks!

Kostenlos herunterladen     Jetzt kaufen     Weitere Informationen

 

---

✨ Kutools for Office – Eine Installation, fünf leistungsstarke Werkzeuge!

Enthält Office Tab Pro·Kutools für Excel·Kutools für Outlook·Kutools für Word·Kutools for PowerPoint

📦 Alle 5 Werkzeuge in einem Paket erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Zeit sparen und sofort die Produktivität steigern

⬇️ Jetzt herunterladen🎁 Das vollständige Paket kaufen📖 Weitere Informationen

Beste Office-Produktivitätswerkzeuge

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

• 🤖KUTOOLS AI-Funktionen:KI-Assistent/Echtzeit-Assistent/Super Polieren/Super Übersetzen/KI-Redaktion/KI Korrekturlesen
• 📘Dokument-Meisterschaft:Seiten aufteilen/Dokumente zusammenführen/Stapelweise in PDF konvertieren
• ✏Inhaltsbearbeitung:Stapelweise Suchen und Ersetzen/Alle Bilder skalieren
• 🧹Mühelose Bereinigung:Überflüssige Leerzeichen entfernen/Abschnittsumbruch entfernen
• ➕Kreative Einfügungen:Tausendertrennzeichen einfügen/Kontrollkästchen einfügen/QR-Code erstellen
• 🌍Unterstützt über 40 Sprachen: Kutools spricht Ihre Sprache – mit Unterstützung für über 40 Sprachen!

Kostenlos herunterladenJetzt kaufenWeitere Informationen zu Kutools