How to Insert Multiple Pictures with Filenames in Word？

To insert multiple pictures with filenames in Word, you can use several methods depending on how many images you need to add. For a few pictures, you can insert them manually and type the filenames below each image. For a large number of pictures, you can use VBA code to automatically insert images and display their filenames. If you want a more structured layout, you can add filenames as captions. For the easiest batch solution, Kutools for Word allows you to insert multiple pictures with filenames quickly without writing code.

Why Insert Pictures with Filenames in Word?

Insert Multiple Pictures with Filenames in a Word Document

• Method 1: Insert Manually and Add Filenames
• Method 2: Insert with VBA code
• Method 3: Insert Pictures with Filenames as Captions
• Method 4: Insert with Kutools for Word

Comparison of Different Methods

Frequently Asked Questions

Conclusion

Why Insert Pictures with Filenames in Word?

When creating a Word document that contains many pictures, inserting the images alone is often not enough. In many cases, you may also need to display the original filename under or above each picture so that readers can easily identify the image source, file order, product name, document reference, or related information.

For example, you may want to insert a batch of product photos into Word and show each product image’s filename below it. Or you may need to create a photo report, image catalog, inspection document, training material, or archive file where every picture must be clearly labeled.

Manually inserting pictures one by one and typing filenames can be time-consuming, especially when you have dozens or hundreds of images. This article introduces several practical methods to insert multiple pictures with filenames in Word, including manual insertion, VBA code, Word captions, and Kutools for Word.

Method 1: Insert Manually and Add Filenames

If the document is already open in Word, you should never rename it directly from File Explorer. Instead, use one of the safe methods below.

Steps:

1. Open the Word document where you want to insert the pictures, and place the cursor where you want the pictures to appear.
2. Click Insert > Pictures > This Device.
   
3. In the Insert Picture dialog box, select one or more pictures. Click Insert to add them to the document.
   
4. All selected pictures are inserted into the Word document. You can add the corresponding filename before or after each image as a caption or normal text.

Method 2: Insert Multiple Pictures with Filenames Using VBA

If you need to insert many pictures and automatically display each filename, using a VBA macro is a better solution. The macro can insert all images from a selected folder and add the filename for each picture automatically.

Steps:

1. Open the Word document where you want to insert the pictures.
2. Press Alt + F11 to open the Microsoft Visual Basic for Applications window.
3. Click Insert > Module. Then, copy and paste the following VBA code into the module window:

Sub PicWithfilename()
    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

4. Press F5 or click Run to execute the code. In the file picker window, select the folder containing pictures you want to insert.
   
5. Click OK. The selected pictures are inserted into the Word document one by one, and each file path and name is automatically added below its corresponding picture.
   

Method 3: Insert Pictures with Filenames as Captions with VBA code

Another option is to use filenames as captions. This is especially helpful when you want the filenames to appear in a more formal document format. Captions can make the document look more structured. They are useful for reports, manuals, catalogs, and documents that require image labels.

Steps:

1. Open the Word document where you want to insert the pictures.
2. Press Alt + F11 to open the Microsoft Visual Basic for Applications window.
3. Click Insert > Module. Then, copy and paste the following VBA code into the module window:

Sub InsertPicturesWithFilenameCaptions()
    Dim fd As FileDialog
    Dim folderPath As String
    Dim fileName As String
    Dim doc As Document
    Dim img As InlineShape
    Dim rng As Range
    Dim maxWidth As Single
    Set doc = ActiveDocument
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    With fd
        .Title = "Select the folder that contains the pictures"
        If .Show <> -1 Then Exit Sub
        folderPath = .SelectedItems(1) & "\"
    End With
    maxWidth = doc.PageSetup.PageWidth - doc.PageSetup.LeftMargin - doc.PageSetup.RightMargin
    fileName = Dir(folderPath & "*.*")
    Do While fileName <> ""
        If LCase(fileName) Like "*.jpg" _
            Or LCase(fileName) Like "*.jpeg" _
            Or LCase(fileName) Like "*.png" _
            Or LCase(fileName) Like "*.bmp" _
            Or LCase(fileName) Like "*.gif" _
            Or LCase(fileName) Like "*.tif" _
            Or LCase(fileName) Like "*.tiff" Then
            Set rng = doc.Range(doc.Content.End - 1)
            Set img = doc.InlineShapes.AddPicture( _
                FileName:=folderPath & fileName, _
                LinkToFile:=False, _
                SaveWithDocument:=True, _
                Range:=rng)
            If img.Width > maxWidth Then
                img.LockAspectRatio = True
                img.Width = maxWidth
            End If
            'Add filename as a caption
            img.Range.InsertCaption _
                Label:="Figure", _
                Title:=": " & fileName, _
                Position:=wdCaptionPositionBelow
            Set rng = doc.Range(doc.Content.End - 1)
            rng.InsertAfter vbCrLf
        End If
        fileName = Dir
    Loop
    MsgBox "Pictures with filename captions have been inserted successfully.", vbInformation
End Sub

4. Press F5 or click Run to execute the code. In the file picker window, select the folder containing pictures you want to insert.
   
5. Click OK. All images in the selected folder will be inserted into the Word document, and each image’s filename will be automatically added as a caption.
   

Method 4: Insert Pictures with Filenames Using Kutools for Word

If you want a faster and easier way to insert multiple pictures with filenames, Kutools for Word provides a more convenient solution. Instead of inserting pictures manually or writing VBA code, you can use the built-in feature to batch insert images and automatically include filenames.

Steps:

1. Open the Word document where you want to insert the pictures.
2. Click Kutools > Multi-Picture, see screenshot:
   
3. In the popped-out Multi-Picture dialog box, perform the following operations:

Comparison of Different Methods

Frequently Asked Questions

Conclusion

Inserting multiple pictures with filenames in Word is useful when you need to create organized image documents, photo reports, product catalogs, reference materials, or picture-based records.

• For a small number of images, you can insert pictures manually and type the filenames yourself.
• If you want to automate the process, VBA code can help insert pictures and filenames at the same time.
• If you prefer a more user-friendly and visual solution, Kutools for Word provides a convenient way to batch insert pictures with filenames without writing code.