Skip to main content

How to insert picture or image from scanner or camera in Word?

You might get into trouble in inserting pictures from scanner or camera in Word 2007 and later version as Microsoft removed the option to insert a picture from a scanner or camera which was just available in Word 2003. This tutorial will show you several methods of inserting pictures from scanner or camera in Word 2007 and later version.

Insert picture from scanner or camera in Word by using shortcuts

Insert picture from scanner or camera in Word by creating Macro

Insert picture from scanner or camera in Word with Kutools for Word


Insert picture from scanner or camera in Word by using shortcuts

If you are using the Word 2007 or Word 2010, you can quickly access the Insert Picture from Scanner or Camera utility as follows:

1. Please first press Alt key in Word 2007 or Word 2010, and then continue typing menu key sequence i p s
on your keyboard, and it will display the Insert Picture from Scanner or Camera dialog.

After typing Alt first and i key, you will see a Super Tip as follows:

After typing p and s key, it will pop up the Insert Picture from Scanner or Camera dialog.

Then you can choose picture from the device through the Insert Picture from Scanner or Camera dialog.


Insert picture from scanner or camera in Word by creating Macro

1. Firstly, you should create a Macro for your Word document. Please click View > Macros > View Macros. See screenshot:

doc insert image from scanner 1

2. After clicking View Macros, there will be a Macros dialog popping up. Under Macro name, type in “Scan”; select Normal. dotm (global template) from the Macros in drop-down list. Then click Create. See screenshot:

doc insert image from scanner 2

3. And now, a Microsoft Visual Basic for Applications window shows up, please copy and paste the following code to the dialog locates between Sub scan and End sub lines.

Code in 2013 and later version:

On Error Resume Next
     Dim objCommonDialog As WIA.CommonDialog
     Dim objImage As WIA.ImageFile
     Dim strDateiname
     Set objCommonDialog = New WIA.CommonDialog
     Set objImage = objCommonDialog.ShowAcquireImage
     strDateiname = Environ("temp") & "\Scan.jpg"
     If Not objImage Is Nothing Then
       Kill strDateiname
       objImage.SaveFile strDateiname
       Selection.InlineShapes.AddPicture strDateiname
       Set objImage = Nothing
     End If
     Set objCommonDialog = Nothing

doc insert image from scanner 3

Code in 2007 and 2010:

On Error Resume Next
WordBasic.InsertImagerScan

doc insert image from scanner 4

4. Now, you should click Tools > References to go to the References-Normal dialog box, then choose and check Microsoft Windows Image Acquisition Library option, see screenshot:

doc insert image from scanner 5

5. Then click OK to close the dialog box, and now, please press F5 key to run this code.

Note: Make sure the scanner is on and connected to the computer


Insert picture from scanner or camera in Word with Kutools for Word

With Kutools for Word’s From Scanner or Camera utility, you can get rid of those annoying operations and easily insert picture from scanner or camera in word.

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

1. Place the cursor at where you want to insert picture.

2. Then please apply this utility by clicking Kutools > More > From Scanner or Camera. See screenshot:

3. After clicking From Scanner or Camera, it will display the Insert Picture from Scanner or Camera dialog.

A: Under Device, select the related device that you want to import picture from.

B: Select any Resolution you want.

C: Click Insert to start inserting.

Note: This utility cannot be applied for Word 2013 and later version.

Click to download Kutools for Word and free trial now!

For more detailed information of Kutools for Word’s From Scanner or Camera utility, please visit: From Scanner or Camera.


Best Office Productivity Tools

Kutools for Word - Elevate Your Word Experience with Over 100 Remarkable Features!

🤖 Kutools AI Assistant: Transform your writing with AI - Generate Content  /  Rewrite Text  /  Summarize Documents  /  Inquire for Information based on Document, all within Word

📘 Document Mastery: Split Pages  /  Merge Documents  /  Export Selection in Various Formats (PDF/TXT/DOC/HTML...)  /  Batch Convert to PDF  /  Export Pages as Images  /  Print Multiple Files at once...

Contents Editing: Batch Find and Replace across Multiple Files  /  Resize All Pictures  /  Transpose Table Rows and Columns  /  Convert Table to Text...

🧹 Effortless Clean: Sweap away Extra Spaces  /  Section Breaks  /  All Headers  /  Text Boxes  /  Hyperlinks  /  For more removing tools, head to our Remove Group...

Creative Inserts: Insert Thousand Separators  /  Check Boxes  /  Radio Buttons  /  QR Code  /  Barcode  /  Diagonal Line Table  /  Equation Caption  /  Image Caption  /  Table Caption  /  Multiple Pictures  /  Discover more in the Insert Group...

🔍 Precision Selections: Pinpoint specific pages  /  tables  /  shapes  /  heading paragraphs  /  Enhance navigation with more Select features...

Star Enhancements: Navigate swiftly to any location  /  auto-insert repetitive text  /  seamlessly toggle between document windows  /  11 Conversion Tools...

👉 Want to try these features? Kutools for Word offers a 60-day free trial, with no limitations! 🚀
Free Download     Read More     Buy Now
 
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This should work in most versions 64 or 32 bit Add reference to Microsoft Windows Image Acquisition x2.0 Sub Scan() Dim objCommonDialog As WIA.CommonDialog Dim objImage As WIA.ImageFile Dim strScanName As String ' instantiate Scan WIA objects Set objCommonDialog = New WIA.CommonDialog Set objImage = objCommonDialog.ShowAcquireImage strScanName = Environ$("TEMP") & "\Scan.jpg" ' set temporary file If Not objImage Is Nothing Then If Dir(strScanName) "" Then Kill strScanName objImage.SaveFile strScanName 'save into temp file DoEvents 'Word Selection.InlineShapes.AddPicture strScanName ' insert in doc End If End Sub
This comment was minimized by the moderator on the site
I have followed ALL the instructions for loading a picture from my scanner and all that happens is a empty box outline appears on my Word 10 page?? Your help is sort. David 76 yrs young
This comment was minimized by the moderator on the site
Wow! supereasy. Thank you!
This comment was minimized by the moderator on the site
Thanks a lot for this very helpful article! The keyboard shortcut and the macro both work like a charm!
This comment was minimized by the moderator on the site
such an amazing and helpful.
This comment was minimized by the moderator on the site
So I created a Macro using the code you supplied, thank you, i was wondering if there was a way to go further and include code for the selection that you make once that Insert Image window pops up. Thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations