Please Note: This article is written for users of the following Microsoft Word versions: 97, 2000, 2002, and 2003. If you are using a later version (Word 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Word, click here: Inserting Multiple Graphics in a Document.
Written by Allen Wyatt (last updated January 29, 2022)
This tip applies to Word 97, 2000, 2002, and 2003
Every week John needs to create an invoice and insert several scanned images 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:
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 4. The point is that whatever files you have selected in step 4, those are the files that Word inserts in your document.
A variation on this approach involves the use of Windows. Follow these general steps:
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.
Note:
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (10726) applies to Microsoft Word 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Word (Word 2007 and later) here: Inserting Multiple Graphics in a Document.
The First and Last Word on Word! Bestselling For Dummies author Dan Gookin puts his usual fun and friendly candor back to work to show you how to navigate Word 2013. Spend more time working and less time trying to figure it all out! Check out Word 2013 For Dummies today!
Put a caption with a picture and you'd probably like the two elements to behave like they belong together. If you are ...
Discover MoreIf you need to move a graphic just a little bit in one direction or another, you can do so by using the techniques in ...
Discover MoreWant a graphic to appear at a precise place on the page? It's easy to gain control by following the steps in this tip.
Discover MoreFREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
2022-03-15 19:46:57
Johann
How do i use the last macro here where it is a single image per page. I had tried numerous methods of sendkeys at the end of the loop, insert page break method to the selection object all to no avail. Is there something I am missing?
Got a version of Word that uses the menu interface (Word 97, Word 2000, Word 2002, or Word 2003)? This site is for you! If you use a later version of Word, visit our WordTips site focusing on the ribbon interface.
Visit the WordTips channel on YouTube
FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2024 Sharon Parq Associates, Inc.
Comments