В Microsoft Office 2010 по какой-то причине разработчики решили убрать функцию прямого сканирования из Word, чем существенно усложнили задачу по вставке отсканированных изображений в тело документа. Чтобы вставить изображение со сканера, пользователю приходится передавать преобразованную в совместимый графический файл картинку на жесткий диск и только потом вставлять ее в Word-документ.
Отсутствие функции прямого сканирования может доставить массу неудобств, особенно если операцию приходится выполнять по нескольку раз в день.
В последующих версиях Microsoft Office 2013 и 2016 в отношении сканирования ничего не изменилось, сканы по-прежнему приходится вставлять опосредовано, но есть один способ, который может облегчить эту задачу.
Воспользовавшись небольшим макросом на языке VBA, вы можете создать собственную кнопку отправки изображений со сканера непосредственно в текстовый редактор. Способ этот работает в Word 2010, 2013 и 2016.
Первым делом скачайте файл с кодом скрипта по ссылке yadi.sk/i/N7uhShY6ZSVkUQ. Откройте Word, переключитесь на вкладку «Вид» и нажмите на панели инструментов Макросы -> Макросы.
В открывшемся окошке выберите в выпадающем меню «Макросы из» опцию «Normal.dotm (общего шаблона)», дайте макросу название WIA_Scan (если хотите дать другое имя, нужно будет изменить его в коде) и нажмите кнопку «Создать».
Откроется окно VB-редактора. Выберите в меню Tools -> References и отметьте птичкой в списке подключаемых компонентов библиотеку «Microsoft Windows Image Acquisition Library v2.0», именно она позволит Word получать доступ к внешним сканерам.
Сохраните настройку нажатием «OK», затем вставьте в поле редактора скопированный из скачанного ранее текстового файла код скрипта.
Закройте окно редактора.
Осталось только добавить кнопку на панель инструментов.
Откройте настройки ленты.
В выпадающем списке «Выбрать команды» укажите «Макросы», создайте новую группу с подходящим названием и поместите в нее созданный макрос.
Нажав «OK».
Вы увидите, что на ленте инструментов в выбранной вами категории появилась новая кнопка.
Если ее нажать, должно появиться стандартное окно Windows Image Acquisition, где вы сможете задать необходимые настройки и запустить процедуру сканирования, по завершении которой изображения автоматически будет вставлено в Word-документ.
выполнил все по пунктам. при запуске макроса появляется сообщение объект не определен
objWIADialog As WIA.CommonDialog
Необходимые галочки в библиотеках установил.
буду признателен за подмощь.
увидел ошибку. все ок. спасибо
Что за ошибка? У меня так же ругается...
Будет ли данный код работать в Эксель 2010?