Tuto: Macro Scanner pour Word-Office 2013/2016/2019/2021/365

Nos tutoriels complets pour vous aider

Ce tuto m'a été utile :

OUI
6
100%
NON
0
Aucun vote
 
Nombre total de votes : 6

Avatar du membre
Bobby2dallas
Membre VIP
Membre VIP
Messages : 2983
Enregistré le : lun. 23 mai 2011 16:13
Localisation : ~ Nimes
A été remercié : 5 fois
    unknown unknown

Tuto: Macro Scanner pour Word-Office 2013/2016/2019/2021/365

Message par Bobby2dallas »

Comment Scanner avec Word ou...
Création d'une macro et d'un onglet pour rajouter une fonction Scanner à Office Word 2013/2016/2019/2021/365, Pour les nuls...
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 a été testé sur une version Word 2016, 2019,2021 et 365 (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:
Image
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.

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 Macro
Spoiler : (cliquez sur 'afficher')--> :

Code : Tout sélectionner

' Scanner pour Word 2013/2016/2019/2021/365
' Auteur : Günter Born: Corrigé pour Word_fr par Bobby2Dallas Team Aaz
' Ajoute une fonction de scanner dans Word 2013/2016/2019/2021/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
[/color][/align]

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

Il ne vous reste plus qu'à enregistrer votre travail et votre macro est créée ... mais ce n'est pas encore fini !!!
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 :
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...

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...


Image
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).

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...
Image

Dans un 1er temps vous allez placez la ligne du dossier '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
Pour ce faire, cliquez sur le 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....


Image
Image

Image
[Scanner+Office+Word 2013+Word 2016+Word 2019+word 365]
Modifié en dernier par Bobby2dallas le dim. 1 mai 2022 22:16, modifié 23 fois.
Image
0101010001100101011000010110110100100000010000010110000101111010
Image
chatonhub
    unknown unknown

Re: Tuto: Macro Scanner pour Word-Office 2013-2016

Message par chatonhub »

merci du partage
Avatar du membre
chtimi054
Administrateur du site
Administrateur du site
Messages : 8921
Enregistré le : ven. 26 juil. 2013 06:56
A remercié : 296 fois
A été remercié : 447 fois
    unknown unknown

Re: Tuto: Macro Scanner pour Word-Office 2013-2016

Message par chtimi054 »

Salut

merci pour ton tuto ca va me servir !

@@++
egval
    unknown unknown

Re: Tuto: Macro Scanner pour Word-Office 2013-2016

Message par egval »

Merci bien pour ce tuto que je vais conserver
Avatar du membre
richess
Membre Officiel
Membre Officiel
Messages : 2582
Enregistré le : lun. 2 août 2010 21:06
Localisation : Alsace
    unknown unknown

Re: Tuto: Macro Scanner pour Word-Office 2013-2016

Message par richess »

:okayg: :okayg:
Avatar du membre
Chewbacca
Administrateur du site
Administrateur du site
Messages : 8081
Enregistré le : ven. 5 nov. 2010 23:08
Localisation : Evry
A remercié : 35 fois
A été remercié : 11 fois
Contact :
    unknown unknown

Re: Tuto: Macro Scanner pour Word-Office 2013-2016

Message par Chewbacca »

merci l'ami je ferai ça ce soir :)
"Un peuple qui oublie son Histoire est condamné à la revivre"
Avatar du membre
largo
Membre VIP
Membre VIP
Messages : 743
Enregistré le : ven. 18 nov. 2011 13:42
A remercié : 3 fois
A été remercié : 20 fois
    unknown unknown

Re: Tuto: Macro Scanner pour Word-Office 2013-2016

Message par largo »

hi,

Bravo l'ami, t'est un chef, testé et approuvé :applaudir:

@+
Image
Avatar du membre
Bobby2dallas
Membre VIP
Membre VIP
Messages : 2983
Enregistré le : lun. 23 mai 2011 16:13
Localisation : ~ Nimes
A été remercié : 5 fois
    unknown unknown

Re: Tuto: Macro Scanner pour Word-Office 2013-2016

Message par Bobby2dallas »

J'ai remanié un peu le tuto et rajouté un petit sondage pour savoir à peu prés combien de personne l'ont trouvé utile. merci de jouer le jeux ! ;-)
Image
0101010001100101011000010110110100100000010000010110000101111010
Image
Avatar du membre
chtimi054
Administrateur du site
Administrateur du site
Messages : 8921
Enregistré le : ven. 26 juil. 2013 06:56
A remercié : 296 fois
A été remercié : 447 fois
    unknown unknown

Re: Tuto: Macro Scanner pour Word-Office 2013-2016

Message par chtimi054 »

Il n'y a plus le lien !!!
Avatar du membre
largo
Membre VIP
Membre VIP
Messages : 743
Enregistré le : ven. 18 nov. 2011 13:42
A remercié : 3 fois
A été remercié : 20 fois
    unknown unknown

Re: Tuto: Macro Scanner pour Word-Office 2013-2016

Message par largo »

chtimi054 a écrit :Il n'y a plus le lien !!!
hi,
quel lien ???

@+
Image
Répondre