Direkt zum Inhalt

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 mehrere Bilder mit Dateinamen ein, indem Sie verwenden Kutools for Word


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:

doc Bilder mit Dateinamen einfügen 1

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:

doc Bilder mit Dateinamen einfügen 2


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

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.

Kutools for Word : Mit mehr als 100 praktischen Word-Add-Ins können Sie diese innerhalb von 60 Tagen ohne Einschränkung testen. 

Nach der Installation Kutools for WordBitte machen Sie Folgendes:

1. Klicken Sie Kutoolen > Bilder, siehe Screenshot:

doc Bilder mit Dateinamen einfügen 3

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 .

doc Bilder mit Dateinamen einfügen 4

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

doc Bilder mit Dateinamen einfügen 5

Zum Herunterladen klicken Kutools for Word und jetzt kostenlos testen!

Beste Office-Produktivitätstools

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

Tauchen Sie ein in die hervorgehobenen Funktionen unten oder Klicken Sie hier, um die volle Kraft von zu entdecken Kutools for Word.

📘 Dokumentenbeherrschung: Seiten teilen  /  Dokumente zusammenführen  /  Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/XLSX)  /  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 ReinigungWegfegen Zusätzliche Räume  /  Abschnittswechsel  /   Alle Header  /  Textfelder  /  Hyperlinks  /  Weitere Entfernungswerkzeuge finden Sie in unserer Entfernungsgruppe

Kreative Einsätze: Insert Tausend Trennzeichen  /  Kontrollkästchen  /  Radio Knöpfe  /  QR Code  /  Strichcode  /  Diagonale Linientabelle  /  Gleichungsbeschriftung  /  Bildunterschrift  /  Tabellenüberschrift  /  Mehrere Bilder  /  Entdecken Sie mehr in unserer Beilagengruppe

🔍 Präzise Auswahl: Lokalisieren Sie bestimmte Seiten  /  Tabellen  /  Formen  /  Überschriften von Absätzen  /  Navigieren Sie ganz einfach mit unserer Select Group

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

Verwandeln Sie Ihre Word-Aufgaben mit Kutools. 👉 Jetzt mit 30-Tage-Testversion herunterladen 🚀.

 
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How can I decrease the overall size of the photo so there are multiple per page?
This comment was minimized by the moderator on the site
Is there a way to insert each picture and file name per page? Sometimes if one picture is too big the file name will then go to the next page or if picture is too small the next picture will be together in one page instead on the next page
This comment was minimized by the moderator on the site
Hello, Rizza,
To insert each picture and file name per page, please apply the following vba code:
Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath As String, xFile As String
    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
                    
                    ' Add the picture
                    Selection.InlineShapes.AddPicture xPath & "\" & xFile, False, True
                    Selection.TypeParagraph
                    
                    ' Add the file path below the picture
                    Selection.TypeText xPath & "\" & xFile
                    Selection.TypeParagraph
                    
                    ' Move to the next page
                    Selection.InsertBreak Type:=wdPageBreak
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub


Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
A problem occurs when the file name to be added exceeds 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
pic5...
This comment was minimized by the moderator on the site
change the file name to 01, 02, 03 and it will work
This comment was minimized by the moderator on the site
Wow this is great! I only needed the file name, so I deleted "xPath & "\" &" from the .Text line and that worked perfectly. Thanks for this!
This comment was minimized by the moderator on the site
Which line of code would you change and how to have the file path written before the picture, aka the caption (filename) is above rather than below.
This comment was minimized by the moderator on the site
With Selection
.Text = xFile
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.MoveDown wdLine

End With
This comment was minimized by the moderator on the site
Have to add this .MoveDown wdLine after .Text=xFile
This comment was minimized by the moderator on the site
buenas noches amigo me ha servido mucho su información sinembargo me surge una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations