Zum Hauptinhalt springen

Kutools für Office — Eine Suite. Fünf Tools. Erledigen Sie mehr.

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

Author Xiaoyang Last modified

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 for 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 for Word – Erweitern Sie Ihr Word-Erlebnis mit mehr als 100 bemerkenswerten Funktionen!

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

📘 Dokument beherrschen: Seiten aufteilen / Dokumente zusammenführen / Bereich in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML ...) / Stapelweise Konvertierung zu PDF ...

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

🧹 Mühelos reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfeld / Verknüpfungen / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen ...

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

🔍 Präzise Auswahl: Einzelne Seiten, Referenztabellen, Form, Überschriftenabsatz gezielt festlegen / Navigation mit weiteren Auswählen -Features verbessern ...

⭐ Besondere Erweiterungen: Zu jedem Bereich navigieren / Automatisches Einfügen von wiederkehrendem Text / Zwischen Dokument-Fenster umschalten /11 Konvertierungs-Werkzeuge ...

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

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Jetzt Kutools for Word herunterladen! 🚀
 

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

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

📦 Alle5 Tools in einer Suite erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Sofort Zeit sparen und Produktivität steigern

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

Kutools for Word – 100+ Tools für Word

Kostenloser Download Jetzt kaufen Mehr erfahren über Kutools