Please Note: This article is written for users of the following Microsoft Word versions: 2007, 2010, 2013, and 2016. If you are using an earlier version (Word 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Word, click here: Inserting Multiple Graphics in a Document.

Inserting Multiple Graphics in a Document

by Allen Wyatt
(last updated November 19, 2016)

4

Every week John needs to create an invoice and insert several scanned documents into a Word document. He wonders if there is a way to put all of the JPG images from a particular folder into the current Word document.

There are a couple of ways you can do this. One way is to simply select all the graphics and insert them in one step:

  1. Place the insertion point at the place in the document where you want the graphics inserted.
  2. Display the Insert tab of the ribbon.
  3. Click the Picture tool. Word displays the Insert Picture dialog box.
  4. Use the controls in the dialog box to locate the folder that contains the images.
  5. Press Ctrl+A. Word selects all the files in the folder.
  6. Click Insert.

That's it; Word inserts all the graphics in the document. You'll want to be careful doing this, because if there are a lot (more than, say, 100) graphics in the folder or if the graphic files are quite large, you can slow Word to a crawl or hang it completely. If the folder contains more than just graphics or you want only some of the graphic files, you can hold down the Ctrl key as you use the mouse to select graphics in step 5. The point is that whatever files you have selected in step 5, those are the files that Word inserts in your document.

A variation on this approach involves the use of Windows. Follow these general steps:

  1. Place the insertion point at the place in the document where you want the graphics inserted.
  2. Minimize the Word document.
  3. In Windows, display the folder where the images are located.
  4. Build a selection set of the images you want inserted in the document.
  5. Click on any single image in the selection set and hold down the mouse button.
  6. Drag the selection set over the top of the document as it appears in the Taskbar. (Don't release the mouse button quite yet.)
  7. Once Windows displays the Word document (which it does after a few seconds), release the mouse button.

At this point, all the images you selected in step 4 are inserted in the Word document, the same as in the earlier method.

If you use either of the foregoing methods, you'll need to resize images and move them around, as necessary, so your document appears the way you desire.

Of course, if you need to insert whole groups of images on a routine basis, then going through these steps can become tiresome after a while. Tedium is often relieved through the use of a macro, and this case is no exception. The following macro can be used to display a dialog box (similar to those used in the earlier methods) where you can select the files you want. When you close the dialog box, any images you selected within the dialog box are inserted in your document, each in its own paragraph.

Sub InsertImages()
    Dim doc As Word.Document
    Dim fd As FileDialog
    Dim vItem As Variant
    Dim mg1 As Range
    Dim mg2 As Range

    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Set doc = ActiveDocument

    With fd
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
        .FilterIndex = 1

        If .Show = -1 Then
            For Each vItem In .SelectedItems
                Set mg2 = ActiveDocument.Range
                mg2.Collapse wdCollapseEnd
                doc.InlineShapes.AddPicture _
                  FileName:=vItem, _
                  LinkToFile:=False, SaveWithDocument:=True, Range:=mg2
                Set mg1 = ActiveDocument.Range
                mg1.Collapse wdCollapseEnd

                mg1.Text = vbCrLF & vbCrLf
            Next vItem
        End If
    End With

    Set fd = Nothing
End Sub

If you don't want to bother with selecting folders or files, you can use an even simpler macro. The following pulls all JPG files from a specified folder and places them in the current document. Each image is in its own paragraph.

Sub GetPictures()
    Dim sPic As String
    Dim sPath As String

    sPath = "c:\myfolder\"
    sPic = Dir(sPath & "*.jpg")

    Do While sPic <> ""
        Selection.InlineShapes.AddPicture _
          FileName:=sPath & sPic, _
          LinkToFile:=False, SaveWithDocument:=True
        sPic = Dir
        Selection.TypeParagraph
        Selection.TypeParagraph
    Loop
End Sub

To use the macro, just make sure you change the value assigned to sPath so that it represents the folder you want.

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (10727) applies to Microsoft Word 2007, 2010, 2013, and 2016. You can find a version of this tip for the older menu interface of Word here: Inserting Multiple Graphics in a Document.

Author Bio

Allen Wyatt

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He  is president of Sharon Parq Associates, a computer and publishing services company. ...

MORE FROM ALLEN

Changing Cell Patterns

You can shade your cells by filling them with a pattern. Here's how to select the pattern you want used.

Discover More

Appearance of Excel on the Taskbar

Do you want Excel to use a task button, on the Windows Taskbar, for each of your open worksheets? Then just make this ...

Discover More

Word 2013 Indexes and Special Tables (Table of Contents)

One of the finishing touches used in some types of documents are an index or a special table, such as a table of ...

Discover More

Create Custom Apps with VBA! Discover how to extend the capabilities of Office 2013 (Word, Excel, PowerPoint, Outlook, and Access) with VBA programming, using it for writing macros, automating Office applications, and creating custom applications. Check out Mastering VBA for Office 2013 today!

More WordTips (ribbon)

Making Pictures Show in Word

What are you to do if you can't see all the pictures you know are in your document? The answer may lie in where those ...

Discover More

Using the Selection and Visibility Pane

When you need to arrange objects in relation to each other, one of the handy tools that Word provides is the Selection ...

Discover More

A Picture Is Worth a Thousand Words

Nothing beats a screen shot when you are trying to convey information about using the computer. With just a couple of ...

Discover More
Subscribe

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

View most recent newsletter.

Comments

If you would like to add an image to your comment (not an avatar, but an image to help in making the point of your comment), include the characters [{fig}] in your comment text. You’ll be prompted to upload your image when you submit the comment. Maximum image size is 6Mpixels. Images larger than 600px wide or 1000px tall will be reduced. Up to three images may be included in a comment. All images are subject to review. Commenting privileges may be curtailed if inappropriate images are posted.

What is four more than 1?

2018-06-12 16:33:25

Kim Sorvig

thanks for the macro InsertImages(). It worked perfectly (once I deleted extra SUB and END SUB lines added when creating the macro.
the other macro (getPictures) would not work for me at all. I'd have been fine with the simplicity, byut appreciate the one that worked.


2018-03-07 02:54:05

Ken Endacott

The caption numbering is in the order of the picture anchors. If they are all anchored to the same paragraph then it is in the order they were anchored.

What you should do is:
1. Display the paragraph marks. If necessary add a few.
2. Drag the anchors for the images to different paragraph marks in the order that you want the captions
3. Delete all the captions then re-insert them


2018-03-06 20:19:25

David Rich

I am frustrated! I am working with Word 2016. I need to place 4 pictures on one page with a caption on each picture without other words on the page. Word does okay with the first image, but succeeding images have the caption erroneously. For example, the first image will be number, let's say, 10 (not the first in the document). The second image will be numbered 10 with the first one 11. The third image was numbered 12 with the first and the second still numbered 11 and 10. The caption to the fourth image was numbered 10, the first changed to 12, the second changed to 11, and the third changed to 13. The problem is the anchor for all images are piled on top of each other. Can you help me?


2016-11-20 14:47:31

Edi

I do something like this but I do it one by one. Typically I would like to paste about five jpegs in then add captions. Those jpegs come out of analysis software and I would like the last jpeg created to be put in last. Word "likes" to insert based of date saved. so last created goes in first.

While not tedious, if I could paste in a certain order it would not interrupt my train of thought in my analysis software. Could be a big help to come up with an adjustment to this process

Thanks


This Site

Got a version of Word that uses the ribbon interface (Word 2007 or later)? This site is for you! If you use an earlier version of Word, visit our WordTips site focusing on the menu interface.

Newest Tips
Subscribe

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

(Your e-mail address is not shared with anyone, ever.)

View the most recent newsletter.