Wie füge ich mehrere Bilder mit Dateinamen in ein Word-Dokument ein?

In Word-Dokumenten können Sie mit der Funktion Einfügen schnell mehrere Bilder gleichzeitig einfügen. Manchmal müssen Sie jedoch den Dateipfad und die Namen als Beschriftung einfügen, wenn Sie die Bilder einfügen. Wie können Sie mit dieser Aufgabe in der Word-Datei umgehen?

Fügen Sie mithilfe des VBA-Codes mehrere Bilder mit Dateinamen ein

Fügen Sie mit Kutools for Word mehrere Bilder mit Dateinamen ein

Fügen Sie mithilfe des VBA-Codes mehrere Bilder mit Dateinamen ein

Der folgende VBA-Code kann Ihnen beim Einfügen des Dateipfads und des Namens als Beschriftung beim Einfügen der Bilder helfen. Gehen Sie dazu folgendermaßen vor:

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

2. Und dann klicken Insert > ModulKopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein:

VBA-Code: Fügen Sie mehrere Bilder mit Dateinamen 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. Dann drücken F5 Um diesen Code auszuführen, wird ein Durchsuchen-Fenster angezeigt. Wählen Sie den Ordner aus, der die Bilder enthält, die Sie einfügen möchten. Siehe Screenshot:

4. Dann klick OK Klicken Sie auf die Schaltfläche, alle Bilder im ausgewählten Ordner wurden in das Word-Dokument eingefügt, und der Dateipfad und der Name werden als Beschriftung eingefügt. Siehe Abbildung:

Fügen Sie mit Kutools for Word mehrere Bilder mit Dateinamen ein

Wenn Sie Kutools for WordMit seinen Bilder Mit dieser Funktion können Sie schnell mehrere Bilder mit Dateipfad und Namen sofort in das Word-Dokument einfügen.

Nach der Installation Kutools for WordBitte machen Sie Folgendes:

1. Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Kutoolen > Bilder, siehe Screenshot:

2. In der herausgesprungen Bilder einfügen Im Dialogfeld führen Sie bitte die folgenden Schritte aus:

• (1.) Klicken Sie auf Dateien hinzufügen or Ordner hinzufügen Schaltfläche, um die Bilder auszuwählen, die Sie einfügen möchten;
• (2.) Dann überprüfen Fügen Sie den Dateipfad jedes Bildes als Beschriftung ein Option links unten im Dialogfeld;
• (3.) Und dann klicken Insert .

3. Nach dem Einfügen der Bilder sehen Sie den Dateipfad und den Namen jedes Bildes. Siehe Screenshot:

Klicken Sie hier, um Kutools for Word herunterzuladen und jetzt kostenlos zu testen!

Beste Office-Produktivitätstools

Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!

🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren  /  Text umschreiben  /  Dokumente zusammenfassen  /  Erkundigen Sie sich nach Informationen basierend auf Dokument, alles in Word

📘 Dokumentenbeherrschung: Seiten teilen  /  Dokumente zusammenführen  /  Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...)  /  Stapelkonvertierung in PDF  /  Seiten als Bilder exportieren  /  Drucken Sie mehrere Dateien gleichzeitig...

✏ Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg  /  Größe aller Bilder ändern  /  Vertauschen Sie Tabellenzeilen und -spalten  /  Tabelle in Text konvertieren...

🧹 Mühelose Reinigung: Wegfegen Zusätzliche Räume  /  Abschnittswechsel  /  Alle Header  /  Textfelder  /  Hyperlinks  / Weitere Entfernungswerkzeuge finden Sie auf unserer Gruppe entfernen...

➕ Kreative Einsätze: Einfügen Tausend Trennzeichen  /  Kontrollkästchen  /  Radio Knöpfe  /  QR Code  /  Strichcode  /  Diagonale Linientabelle  /  Gleichungsbeschriftung  /  Bildunterschrift  /  Tabellenüberschrift  /  Mehrere Bilder  / Entdecken Sie mehr im Gruppe einfügen...

🔍 Präzise Auswahl: Punktgenau bestimmte Seiten  /  Tabellen  /  Formen  /  Überschriften von Absätzen  / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...

⭐ Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort  /  Sich wiederholenden Text automatisch einfügen  /  Wechseln Sie nahtlos zwischen Dokumentfenstern  /  11 Konvertierungstools...

👉 Möchten Sie diese Funktionen ausprobieren? Kutools für Word bietet a 60-Tage kostenlose Testversion, ohne Einschränkungen! 🚀

Free Download     Weiterlesen     JETZT KAUFEN