|
Question : Est-ce que je peux faire créer le code pour automatiser l'entrée dans le mot et pour exceler ?
|
|
|
Je dois mettre à jour le mot et exceler des Doc.s journaliers avec le mon : Nom, fonction, date de jours courante, et signé. les Doc.s de mot et d'Excel du
In là sont des champs (voir les copies d'écran ci-jointes) où j'écris mon nom, ma fonction, date de jours courante et il y a un « signe » classé où j'entre : « Par l'intermédiaire de l'email ». le
I doivent saisir ces mêmes données CHAQUE FOIS QUE j'emploie ces Doc.s. Et je passe par environ 20 de ces Doc.s par jour. Pour vous pouvez voir, entrant du fait les mêmes données journalières ont vieux vraiment qucik.
It faciliteraient mon travail tellement si j'avais un macro bouton sur mon mot et Excel où quand je l'ai cliqué, il a juste peuplé les champs pour moi.
Is qui possible ?
Thanks.
class= " lastRow de
>Attachments de " nom " de class= de | | |
class= " fileInfo " de
class= " description " de
écran print
target= " _blank " de " http://filedb.experts-exchange.com/incoming/2010/08_w35/340416/8-24-2010-10-54-54-AM.jpg " de href= de " attachmentLink " de class= de
largeur de style= de ![copie d'écran »/> de http://filedb.experts-exchange.com/incoming/2010/08_w35/t340416/8-24-2010-10-54-54-AM.jpg » de « src=]()
le class= de |
de >
| |
> | | |
class= " fileInfo " de
class= " description " de
écran print
target= " _blank " de " http://filedb.experts-exchange.com/incoming/2010/08_w35/340417/8-24-2010-11-04-25-AM.jpg " de href= de " attachmentLink " de class= de
largeur de style= de ![copie d'écran »/> de http://filedb.experts-exchange.com/incoming/2010/08_w35/t340417/8-24-2010-11-04-25-AM.jpg » de « src=]()
le class= de |
de > |
| |
class= de
|
|
Réponse : Est-ce que je peux faire créer le code pour automatiser l'entrée dans le mot et pour exceler ?
|
Ok, ici vous allez chercher le mot (mon application de cauchemar)
Insérer ce macro dans votre normal.dot
Substrater FillMeIn ()
Obscurcir le wd comme document
Placer le wd = l'ActiveDocument
wd. Tableaux (1).Range.Cells (52). Range.Text = « John Burch »
wd. Tableaux (1).Range.Cells (54). Range.Text = « administrateur de commande numérique par ordinateur »
wd. Tableaux (1).Range.Cells (56). Range.Text = date
wd. Tableaux (1).Range.Cells (58). Range.Text = « par l'intermédiaire d'email »
Sous-marin d'extrémité
Si vous ne savez pas faire ceci, vous pouvez faire ceci
Dans la barre de menu entrer aux outils/macro --> macro
Compléter « FillMeIn » dans la zone de macro identification
Le clic « créent »
Vous maintenant arriverez dans le rédacteur de VBA (Alt+F11 par toujours accessible) et verrez ceci du côté droit
GFGFG secondaires ()
'
'Macro de GFGFG
Le 'macro a créé 8/25/2010 par xxx
'
Sous-marin d'extrémité
maintenant coller le code ci-dessous entre le sous-marin () et finir le sous-marin
Obscurcir le wd comme document
Placer le wd = l'ActiveDocument
wd. Tableaux (1).Range.Cells (52). Range.Text = « John Burch »
wd. Tableaux (1).Range.Cells (54). Range.Text = « administrateur de commande numérique par ordinateur »
wd. Tableaux (1).Range.Cells (56). Range.Text = date
wd. Tableaux (1).Range.Cells (58). Range.Text = « par l'intermédiaire d'email »
Sous-marin d'extrémité
Assigner maintenant le macro à une clef de raccourci (dire Alt+A)
Dans le menu de mot, entrer aux outils/adapter aux besoins du client
Au fond de la fenêtre, cliquer le bouton de personnalisation près de la fin
Dans les catégories énumérer (gauche supérieur), faire descendre l'écran aux macros et le choisir
Dans les macros énumérer, choisir le FillMeIn créé juste
Choisir clef de raccourci de presse de champ la « nouvelle »
Maintenant presser Alt+A et le vérifier est copié dans la clef de raccourci de presse de champ la « nouvelle »
Le clic assignent
Fin de clic
L'examiner en la lançant à travers alt + a
|
|
|
|
