跳到主要內容

如何在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。 點擊後 查看宏,會有一個 對話框彈出。 下 宏名, 輸入 ”瀏覽”; 選擇 正常。 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中插入來自掃描儀或照相機的圖片

這款獨特的敏感免洗唇膜採用 Moisture WrapTM 技術和 Berry Mix ComplexTM 成分, 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  /  將頁面匯出為圖像  /  一次列印多個文件...

內容編輯: 批量查找和替換 跨多個文件  /  調整所有圖片的大小  /  轉置表行和列  /  將表格轉換為文字...

🧹 輕鬆清潔: 移開 多餘的空間  /  分節符  /  所有標題  /  文本框  /  超鏈接  / 如需更多拆卸工具,請前往我們的 刪除組...

創意插入: 插入 千位分隔符  /  複選框  /  單選按鈕  /  QR Code  /  條碼  /  對角線表  /  公式標題  /  圖片說明  /  表格標題  /  多張圖片  / 發現更多 插入組...

🔍 精準選擇:精確定位 特定頁面  /    /  形狀  /  標題段落  / 增強導航功能 更多 選擇功能...

星級增強: 快速導航至任何位置  /  自動插入重複文字  /  在文檔視窗之間無縫切換  /  11 轉換工具...

???? 想嘗試這些功能嗎? Kutools for Word 提供了 60天免費試用,沒有任何限制! 🚀
 
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