Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to insert multiple pictures with filename in Word document?

In Word document, you can quickly insert multiple pictures at once by using the Insert function. But, sometimes, you need to insert the file path and names as caption when inserting the pictures. How could you deal with this task in Word file?

Insert multiple pictures with filename by using VBA code

Insert multiple pictures with filename by using Kutools for Word


Insert multiple pictures with filename in Word document:

With Kutools for Word, you can quickly insert multiple pictures from a folder or multiple folders into a Word document with the file path and name as well.

doc insert images with filename 6

Kutools for Word: with more than 100 handy Word add-ins, free to try with no limitation in 60 days. Click to Download and free trial Now!


Insert multiple pictures with filename by using VBA code

The following VBA code can help you to insert the file path and name as caption when inserting the images, please do as this:

1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

2. And then, click Insert > Module, copy and paste below code into the opened blank module:

VBA code: Insert multiple pictures with filename:

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. Then press F5 key to run this code, a Browse window is displayed, please select the folder that contains the images you want to insert, see screenshot:

doc insert images with filename 1

4. Then click OK button, all the images in the selected folder have been inserted into the Word document, and the file path and name is inserted as caption we well, see screenshot:

doc insert images with filename 2


Insert multiple pictures with filename by using Kutools for Word

If you have Kutools for Word, with its Images feature, you can quickly insert multiple pictures with file path and name into the Word document immediately.

Kutools for Word : with more than 100 handy Word add-ins, free to try with no limitation in 60 days. 

After installing Kutools for Word, please do as this:

1. Click Kutools > Images, see screenshot:

doc insert images with filename 3

2. In the popped out Insert Pictures dialog box, please do the below operations:

  • (1.) Click Add Files or Add Folder button to select the images that you want to insert;
  • (2.) Then check Insert file path of each pictures as caption option at the left bottom of the dialog box;
  • (3.) And then click Insert button.

doc insert images with filename 4

3. After inserting the images, you will see each picture’s file path and name is inserted as well, see screenshot:

doc insert images with filename 5

Click to download Kutools for Word and free trial now!

Recommended Productivity Tools

shot kutools word kutools tab 1180x121
shot kutools word kutools plus tab 1180x120
 

Kutools For Word - More Than 100 Advanced Features For Microsoft Word, Save Your 60% Time

  • Complicated and repeated operations can be done a one-time processing in seconds.
  • Insert multiple images across folders into Word document at once.
  • Merge and combine multiple Word files across folders in to one with your desired order.
  • Split the current document into separate documents according to heading 1, section break or other criteria.
  • Convert files between Doc and Docx, Docx and PDF, collection of tools for common conversions and selection, and so on...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.