跳到主要内容

如何在Word中从扫描仪或照相机插入图片或图像?

您可能会遇到在Word 2007及更高版本中从扫描仪或照相机插入图片的麻烦,因为Microsoft删除了从Word 2003中可用的从扫描仪或照相机插入图片的选项。本教程将向您展示几种插入图片的方法从Word 2007及更高版本的扫描仪或照相机中获取。

使用快捷方式在Word中插入扫描仪或照相机中的图片

通过创建宏从Word中的扫描仪或照相机插入图片

使用 Kutools for Word 在 Word 中插入来自扫描仪或相机的图片


使用快捷方式在Word中插入扫描仪或照相机中的图片

如果您使用的是Word 2007或Word 2010,则可以快速访问 从扫描仪或照相机插入图片 实用程序如下:

1.请先按 其他 键入Word 2007或Word 2010,然后继续键入菜单键序列 ips
在键盘上,它将显示 从扫描仪或照相机插入图片 对话。

输入后 其他 第一和 i 钥匙,你会看到一个 超级提示 如下:

输入后 ps 键,它将弹出 从扫描仪或照相机插入图片 对话。

然后,您可以通过 从扫描仪或照相机插入图片 对话。


通过创建宏从Word中的扫描仪或照相机插入图片

1。 首先,您应该创建一个 为您的Word文档。 请点击 查看 > > 查看宏。 看截图:

doc从扫描仪1插入图像

2。 点击后 查看宏,会有一个 对话框弹出。 下 宏名, 输入 ”Scan 扫描”; 选择 正常。 dotm(全局 模板) 来自 宏中 下拉列表。 然后点击 创建。 看截图:

doc从扫描仪2插入图像

3。 现在, Microsoft Visual Basic for Applications窗口 出现,请复制以下代码并将其粘贴到对话框之间 副扫描 结束子 线。

2013年及更高版本中的代码:

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从扫描仪3插入图像

2007年和2010年的代码:

On Error Resume Next
WordBasic.InsertImagerScan

doc从扫描仪4插入图像

4。 现在,您应该单击 工具 > 参考资料参考-正常 对话框,然后选择并检查 Microsoft Windows图像采集库 选项,请参见屏幕截图:

doc从扫描仪5插入图像

5。 然后点击 OK 关闭对话框,现在,请按 F5 运行此代码的关键。

备注:确保扫描仪已打开并且已连接到计算机


使用 Kutools for Word 在 Word 中插入来自扫描仪或相机的图片

Kutools for Word从扫描仪或照相机 实用程序,您可以摆脱那些烦人的操作,并轻松地将扫描仪或照相机中的图片插入Word中。

Kutools for Word : 带有超过100个方便的Word加载项,可以在60天内免费试用. 

1。 将光标放在要插入图片的位置。

2。 然后,请点击以下方式应用该实用程序 库工具 > 更多 > 从扫描仪或照相机。 看截图:

3。 点击后 从扫描仪或照相机,它将显示 从扫描仪或照相机插入图片 对话。

答:下 设备,选择要从中导入图片的相关设备。

B:选择任何 分辨率 你要。

C:点击 插页 开始插入。

备注:此实用程序不能应用于Word 2013和更高版本。

点击下载Kutools for Word并立即免费试用!

有关更多详细信息 Kutools for Word从扫描仪或照相机 实用程序,请访问: 从扫描仪或照相机.


最佳办公生产力工具

Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点!

🤖 Kutools 人工智能助手:用人工智能改变你的写作 - 生成内容  /  重写文本  /  总结文件  /  查询资料 基于文档,全部在Word中

📘 文档掌握: 分页  /  合并文件  /  以各种格式导出选择(PDF/TXT/DOC/HTML...)  /  批量转换为PDF  /  将页面导出为图像  /  一次打印多个文件...

内容编辑: 批量查找和替换 跨多个文件  /  调整所有图片的大小  /  转置表行和列  /  将表格转换为文字...

🧹 轻松清洁: 移开 多余的空间  /  分节符  /  所有标题  /  文本框  /  超链接  / 如需更多拆卸工具,请前往我们的 删除组...

创意插入: 插 千位分隔符  /  复选框  /  单选按钮  /  扫码支付  /  条码  /  对角线表  /  公式标题  /  图片说明  /  表标题  /  多张图片  / 发现更多 插入组...

🔍 精准选择:精确定位 特定页面  /    /  形状  /  标题段落  / 增强导航功能 更多 选择功能...

星级增强: 快速导航至任何位置  /  自动插入重复文本  /  在文档窗口之间无缝切换  /  11 转换工具...

👉 想尝试这些功能吗? Kutools for Word 提供了 60-day免费试用,没有任何限制! 🚀
 
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