Как сканировать документы напрямую из Word 2016, 2013, 2010

Microsoft по какой-то причине убрала возможность сканировать напрямую из Word еще в версии Office 2010 (убрали вместе с полезной утилитой MODI — Microsoft Office Document). В более новых версиях Word 2013 и Word 2016 также нет кнопки сканирования напрямую из документа Word. Чтобы вставить изображение со сканера в Word приходится отсканированное изображение в графический файл на диск с помощью диалога утилиты сканирования от производителя сканера, а потом вставлять в документ Word сохраненный файл рисунка. Все это очень неудобно, особенно, когда приходится сканировать и вставлять в документы Word десятки изображений в день.

В этой статье мы рассмотрим способ добавления собственной кнопки запуска мастера сканирования в Word и код небольшого VBA макроса, позволяющий автоматически сканировать и вставлять изображения со сканера напрямую в Word. Данная инструкция применима к Word 2016, 2013 и 2010 (учитывайте различия в интерфейсе).

Итак, добавим новый макрос сканирования в наш Word 2016.

1. Перейдите на вкладку Вид и выберите Макросы -> Макросы.
2. В выпадающем списке Макросы из выберите Normal.dotm (общего шаблона). Укажите имя макроса WIA_Scan и нажмите кнопку Создать.
3. В появившемся окне редактора Visual Basic выберите меню Tools -> References.
4. В списке подключается библиотек выберите Microsoft Windows Image Acquisition Library v2.0. Данная библиотека Windows полволяет получать доступ к сканерам из кода VBA. Поддерживаются только драйвера сканеров с поддержкой WIA (Windows Imaging Architecture). Тем самым мы сможем использовать классы библиотеки сканирования WIA (wiaaut.dll) в VBA коде.
5. Вставьте в редактор Visual Basic следующий VBA код:Sub WIA_Scan()
   '
   ' WIA_Scan макрос для MS Office 2016/2013
   '
   '
   On Error Resume Next
   Dim objWIADialog As WIA.CommonDialog
   
   Dim objScanImage As WIA.ImageFile
   Dim strDate
   ' инициализация объектов WIA
   Set objWIADialog = New WIA.CommonDialog
   Set objScanImage = objWIADialog.ShowAcquireImage
   ' путь к временному файлу
   strDate = Environ("temp") & "\Scan.jpg"
   If Not objScanImage Is Nothing Then
   'удаляем старый файл
   Kill strDate
   ' сохраняем скан во временный файл
   objScanImage.SaveFile strDate
   ' вставляем файл Scan.jpg в документ Word
   Selection.InlineShapes.AddPicture strDate
   Set objScanImage = Nothing
   End If
   Set objWIADialog = Nothing
   End Sub
   
   Совет. В Word 2010 достаточно указать следующий код (однако в Word 2016 и 2013 он не работает, т.к. функция WordBasic.InsertImagerScan в Office 2010 была удалена).
   

   Sub WIA_Scan ()
On Error Resume Next
WordBasic.InsertImagerScan
End Sub
   
6. Теперь осталось добавить в ленту Word новый раздел и добавить в него наш макрос (я добавил кнопку сканирования на вкладку Вставка). Перейдите в настройки ленты, добавьте новую группу, в которую поместите макрос (вы можете изменить иконку кнопки).

Попробуйте теперь нажать на новую кнопку сканирования.

VBA макрос позволяет вызвать стандартное диалоговое окно интерфейса WIA. Если в системе имеется несколько источников WIA, вам будет предложено выбрать устройство, с которого нужно получить изображение.

После того, как вы выбрали устройство WIA, появится стандартное диалоговое окно сканера с настройками сканирования и окном предпросмотра.

После того, как вы выбрали настройки сканирования, нажмите кнопку Scan и дождитесь окончания сканирования.

Макрос автоматически сохранит отсканированное изображение во временный jpg файл и вставит его в открытый документ Word. В документе Word вы можете изменить размер и положение вставленной сканированной картинки.

Как вы видите, теперь вставлять изображение со сканера в документ Word стало гораздо удобнее.