Como escanear documentos direto no Word

via IFTTT https://youtu.be/Z2S_p0nu5x8 Neste vídeo mostro como realizar a digitalização de documentos diretamente no Microsoft Word (2013/2016/365). Utilizando macro é possível digitalizar documentos direto no word, sem a necessidade importar posteriormente e assim, criar o seu arquivo de documento (DOC, PDF, e etc) mais rapidamente. Neste tutorial mostro como adicionar um botão para que você acesse facilmente a macro para agilizar a digitalização dos documentos Abaixo segue o script para que você possa usar: ' Scan for Word 2013/2016 ' Author: Günter Born www.borncity.de www.borncity.com/blog ' Implements a Scan function in Word 2013/2016 Sub Scan() ' ' Scan Macro, to be invoked in Word ' On Error Resume Next Dim objCommonDialog As WIA.CommonDialog Dim objImage As WIA.ImageFile Dim strDateiname ' instantiate Scan WIA objects Set objCommonDialog = New WIA.CommonDialog Set objImage = objCommonDialog.ShowAcquireImage ' set temporary file strDateiname = Environ("temp") & "\Scan.jpg" If Not objImage Is Nothing Then Kill strDateiname 'delete old file ' save into temp file objImage.SaveFile strDateiname ' insert into document Selection.InlineShapes.AddPicture strDateiname Set objImage = Nothing End If Set objCommonDialog = Nothing ' MsgBox strDateiname ' test output End Sub Crédito ao autor do script VBA: Günter Born www.borncity.de www.borncity.com/blog Fontes: https://ift.tt/2J6QvKo https://ift.tt/2JTkh6q ***************************************************** Imagem na Teia nas redes sociais: Blog - https://ift.tt/1oCGY2O YouTube - https://www.youtube.com/Imagemnateia DailyMotion https://ift.tt/2sVWXj4 Twitter - @imagemnateia Instagram - @imagemnateia Google+ - plus.google.com/+ImagemnateiaBlogspot