Jump to content

Tuto: Macro Scanner pour Word-Office 2013-2016


curieuxdino
 Share

Recommended Posts

Création d'une macro et d'un onglet pour rajouter une fonction Scanner à Office Word 2013-2016, Pour les nuls...
Clique sur l'image pour l'agrandir
Image


Nous aborderons ce tutoriel en 2 parties :
1ère partie : Création de la macro.
2ième partie : Création d'une icone dans le ruban.

info: Ce tuto est testé sur une version Word 2016 pro plus x64

Première partie: Création de la macro.

Pour ce faire, nous allons sous l'onglet [Affichage] et clique gauche sur "macros", ce qui va ouvrir la fenêtre de macros:
Clique sur l'image pour l'agrandir
Image
 
Clique sur l'image pour l'agrandir
Image


Dans un 1er temps, dans la première cellule(1), vous entrez le nom que vous souhaitez donner à votre macro, par exemple "Scan";
Ensuite, dans l'onglet déroulant "Macros disponibles dans"(2) veuillez sélectionner la commande : "Normal.dot (modèle global)"
Puis vous pouvez cliquer sur le bouton [Créer] (3), ce qui ouvrira la console 'Microsoft Visual Basic' qui vous permettra de créer la macro.
Clique sur l'image pour l'agrandir
Image


Maintenant vous effacez la totalité du texte déjà présent et aller le remplacer par un copier-coller par le code suivant :
Code: Tout sélectionner
' Scan for Word 2013/2016
' Author:Günter Born: Corrigé pour word/fr par Bobby2Dallas Team AaZ
' Ajoute une fonction de scanner dans 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


IMPORTANT : Ensuite dans le menu "Outils"/"Références" vérifiez que la ligne "Microsoft Windows Image Aquisition Library" soit bien cochée !!!
Clique sur l'image pour l'agrandir
Image


Il ne vous reste plus qu'à enregistrer votre travail et votre macro est créée ... mais ce n'est pas encore fini !!!
Clique sur l'image pour l'agrandir
Image



 
Deuxième partie: Création de l'icone.

Rendez vous sous l'onglet [Insertion] et 'cliquez-droit' n'importe où sur le ruban et sélectionner l'option "Personnaliser le ruban".
Image

La fenêtre d'options s'ouvre :
Clique sur l'image pour l'agrandir
Image

*Assurez vous de bien être dans le menu "Personnaliser le ruban" dans la colonne de gauche (1).
*Dans le menu déroulant "Personnalisez le ruban" (en haut à droite), sélectionnez "Tous les onglets" (2).
*Développez le menu "Insertion" en cliquant sur la petite croix devant (3)


Allez, courage, c'est presque fini...
 
Clique sur l'image pour l'agrandir
Image

Maintenant, comme sur l'image ci-dessus, vous devez cliquer sur "Nouveau groupe" sous la liste des menus de droite;
puis comme sur l'image ci-dessous, cliquez sur "Renommer", ce qui permet de renommer le thème de la macro que nous venons de créer. Moi je l'ai appelé 'Scanner'.
Ne vous occupez pas des pictogramme pour cette étape, ça va venir...

 
Clique sur l'image pour l'agrandir
Image
 
Clique sur l'image pour l'agrandir
Image


Ensuite comme le montre l'image ci-dessous, Sélectionnez dans le menu déroulant du milieu le menu "Macros"(1), qui fera apparaître notre macro créée précédemment, Cliquez dessus pour la sélectionner.
cliquez ensuite sur le groupe 'Scanner' que nous avons créé dans la fenêtre de droite(2), puis enfin cliquez sur "Ajouter"(3).
Clique sur l'image pour l'agrandir
Image


Si vous validez maintenant, la fonction scanner sera opérationnel mais sera mal placée et sans icone personnalisée. C'est ce que nous allons arranger maintenant...
Clique sur l'image pour l'agrandir
Image


Dans un 1er temps vous allez placez la ligne du 'dossier thème' que nous avons nommé 'Scanner' à l'emplacement de votre choix. Moi j'ai préféré le placer entre le thème 'Illustrations' et 'Compléments' mais vous faites à votre guise....
Image
Cliquez sur le dit-dossier 'Scanner' et à l'aide des flèches sur la droite, montez-le ou descendez-le au lieu de votre choix.

Maintenant, Sélectionnez la macro du dossier 'scanner'(1),(toujours dans le tableau de droite), Cliquez sur Renommer(2), une petite fenêtre s'ouvre comme tout à l'heure, vous allez renommer votre macro(3), pour moi c' est 'Scanner' et enfin sélectionnez l'icone de votre choix(4).
Maintenant validez vos choix et vous n'avez plus qu'à testez votre scanner....

 
Clique sur l'image pour l'agrandir
Image
 
Clique sur l'image pour l'agrandir
Image
 
Clique sur l'image pour l'agrandir
Image

Avoir beaucoup d'amis sur Facebook c'est comme être riche au Monopoly mouton1.gif

 

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.