Team AAZ - Forum

Code : Tout sélectionner

' Scanner pour Word 2013/2016/2019/2021/2024/365
' Auteur : Günter Born: Corrigé pour Word_fr par Bobby2Dallas Team Aaz
' Ajoute une fonction de scanner dans Word 2013/2016/2019/2021/2024/365

Sub Scan()
'
' Appeler la macro du scanner dans Word
'
  On Error Resume Next
     Dim objCommonDialog As WIA.CommonDialog
     Dim objImage As WIA.ImageFile
     Dim strDateiname
     ' initialise les objets WIA du scanner
     Set objCommonDialog = New WIA.CommonDialog
     Set objImage = objCommonDialog.ShowAcquireImage
      
     ' définir un fichier temporaire
     strDateiname = Environ("temp") & "\Scan.jpg"
     
     If Not objImage Is Nothing Then
       Kill strDateiname 'delete old file
       ' enregistrer dans le fichier temporaire
       objImage.SaveFile strDateiname
       ' insérer dans le document
       Selection.InlineShapes.AddPicture strDateiname
       Set objImage = Nothing
     End If
     Set objCommonDialog = Nothing
 
   ' MsgBox strDateiname  ' test output
   End Sub