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

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. 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.

   

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.

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

1. Klicken Sie auf Kutools > Mehrfachbild.

   

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.

     

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

   

Beste Büroproduktivitätswerkzeuge

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

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

📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise in PDF konvertieren...

✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Zeilen und Spalten der Tabelle transponieren / Tabelle in Text umwandeln...

🧹 Müheloses Reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfelder / Hyperlinks / Für weitere Entfernungstools gehen Sie zur Entfernen-Gruppe...

➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie mehr in der Einfügen-Gruppe...

🔍 Präzise Auswahlen: Bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit mehr Auswahlfunktionen ...

⭐ Sterneverbesserungen: Zu jedem Standort navigieren / Automatisches Einfügen von wiederholtem Text / Wechsel zwischen Dokumentfenstern /11 Konvertierungswerkzeuge...

👉 Möchten Sie diese Funktionen ausprobieren? Laden Sie Kutools für Word jetzt herunter! 🚀

Kostenloser Download     Jetzt kaufen     Erfahren Sie mehr über Kutools für Word

 

Beste Büroproduktivitä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
• 📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Stapelweise in PDF konvertieren
• ✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen / Alle Bilder skalieren
• 🧹 Müheloses Reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche entfernen
• ➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen einfügen / QR-Codes erstellen

Kostenloser Download Jetzt kaufen Erfahren Sie mehr über Kutools