Перейти к основному содержанию

Как вставить картинку или изображение со сканера или камеры в Word?

У вас могут возникнуть проблемы при вставке изображений со сканера или камеры в Word 2007 и более поздних версиях, поскольку Microsoft удалила возможность вставки изображения со сканера или камеры, которая была только что доступна в Word 2003. В этом руководстве будут показаны несколько методов вставки изображений со сканера или камеры в Word 2007 и более поздних версиях.

Вставьте изображение со сканера или камеры в Word с помощью ярлыков

Вставьте изображение со сканера или камеры в Word, создав макрос

Вставить изображение со сканера или камеры в Word с помощью Kutools for Word


Вставьте изображение со сканера или камеры в Word с помощью ярлыков

Если вы используете Word 2007 или Word 2010, вы можете быстро получить доступ к Вставить изображение со сканера или камеры утилита следующим образом:

1. Сначала нажмите другой в Word 2007 или Word 2010, а затем продолжайте вводить последовательность клавиш меню ips
на клавиатуре, и он отобразит Вставить изображение со сканера или камеры Диалог.

После ввода другой первый и i ключ, вы увидите Супер Совет следующим образом:

После ввода p и s ключ, появится Вставить изображение со сканера или камеры Диалог.

Затем вы можете выбрать изображение с устройства через Вставить изображение со сканера или камеры Диалог.


Вставьте изображение со сканера или камеры в Word, создав макрос

1. Во-первых, вы должны создать Макрос для вашего документа Word. Пожалуйста, нажмите Вид > Макрос > Макросы просмотра. Смотрите скриншот:

документ вставить изображение со сканера 1

2. После нажатия Макросы просмотра, там будет Макрос всплывающий диалог. Под Имя макроса, печатать "Сканировать»; Выбрать Обычный. dotm (глобальный шаблон) из Макросы в выпадающий список. Затем нажмите Создавай. Смотрите скриншот:

документ вставить изображение со сканера 2

3. А теперь Окно Microsoft Visual Basic для приложений появляется, скопируйте и вставьте следующий код в диалоговое окно, расположенное между Дополнительное сканирование и End sub линий.

Код в версии 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

документ вставить изображение со сканера 3

Код в 2007 и 2010 годах:

On Error Resume Next
WordBasic.InsertImagerScan

документ вставить изображение со сканера 4

4. Теперь вы должны нажать Инструменты > Рекомендации , чтобы перейти к Ссылки-Нормальный диалоговое окно, затем выберите и установите флажок Библиотека для получения изображений Microsoft Windows вариант, см. снимок экрана:

документ вставить изображение со сканера 5

5. Затем нажмите OK чтобы закрыть диалоговое окно, а теперь нажмите F5 ключ для запуска этого кода.

Внимание: Убедитесь, что сканер включен и подключен к компьютеру.


Вставить изображение со сканера или камеры в Word с помощью Kutools for Word

Доступно Kutools for WordАвтора Из сканера или камеры Утилита, вы можете избавиться от этих надоедливых операций и легко вставить картинку со сканера или камеры в Word.

Kutools for Word : с более чем 100 удобными надстройками Word, попробуйте бесплатно без ограничений в течение 60 дней. 

1. Поместите курсор в то место, куда вы хотите вставить картинку.

2. Затем примените эту утилиту, нажав Кутулс > Больше > Из сканера или камеры. Смотрите скриншот:

3. После нажатия Из сканера или камеры, он отобразит Вставить изображение со сканера или камеры Диалог.

A: Под Устройство, выберите связанное устройство, с которого вы хотите импортировать изображение.

B: выберите любой Постановления Вы хотите.

C: нажмите Вставить чтобы начать вставку.

Внимание: Эту утилиту нельзя применить для Word 2013 и более поздних версий.

Нажмите, чтобы загрузить Kutools for Word и бесплатную пробную версию прямо сейчас!

Для более подробной информации о Kutools for WordАвтора Из сканера или камеры утилиту, посетите: Из сканера или камеры.


Лучшие инструменты для офисной работы

Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!

🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент  /  Переписать текст  /  Обобщение документов  /  Запросить информацию на основе документа, все в Word

📘 Владение документами: Разделить страницы  /  Объединить документы  /  Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...)  /  Пакетное преобразование в PDF  /  Экспортировать страницы как изображения  /  Печать нескольких файлов одновременно...

Редактирование содержания: Пакетный поиск и замена через несколько файлов  /  Изменить размер всех изображений  /  Транспонировать строки и столбцы таблицы  /  Преобразовать таблицу в текст...

🧹 Легкая очистка: Убрать Дополнительные места  /  Разрывы разделов  /  Все заголовки  /  Текстовые поля  /  Гиперссылки  / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...

Креативные вставки: Вставлять Разделители тысяч  /  Флажки  /  радио кнопки  /  QR код  /  Штрих-код  /  Таблица диагональных линий  /  Заголовок уравнения  /  Заголовок изображения  /  Заголовок таблицы  /  Несколько изображений  / Узнайте больше в Вставить группу...

???? Точный выбор: Точно определить конкретные страницы  /  Эта таблица  /  формы  /  заголовки абзацев  / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...

Звездные улучшения: Быстро перемещайтесь в любое место  /  автоматическая вставка повторяющегося текста  /  плавно переключаться между окнами документов  /  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