Macro sur word (incrémentation à l'impression)

Messages postés
8
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
27 janvier 2010
-
Messages postés
1
Date d'inscription
lundi 24 septembre 2007
Statut
Membre
Dernière intervention
25 septembre 2007
-
Bonjour, J'avais déjà poster cette question mais n'avais pas eu de réponse...
Je cherche à faire une macro en VB sur word, qui me permetterais d'imprimer une série de même pages contenant toutes un numéro différent. Ca serait pour faire des certificats correspondants à des pièces numérotées. Si quelqu'un a une idée... merci d'avance. Cyril

6 réponses

Messages postés
47
Date d'inscription
jeudi 5 février 2004
Statut
Membre
Dernière intervention
25 février 2010

Avec un champ de fusion ?!? (Insert->Field) ?!? Je sais pas...mais il y a plusieurs choix qui sembles faire l'affaire...pas besoin de réinventer la roue...non ?

White_Mage();
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Salut,

tu peux utiliser cette procédure si elle te convient :

Sub Numero_Pied_De_Page()
    Dim i As Byte
i = 1
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    With Selection
        .Fields.Add Range:=Selection.Range, Type:=wdFieldDate
        .TypeText Text:="_"
        .Fields.Add Range:=Selection.Range, Type:=wdFieldTime
        .TypeText Text:="_" & CStr(i)
    ActiveDocument.PrintOut
        For i = 2 To 10
                .TypeBackspace
                .TypeText Text:=CStr(i)
        Next i
    End With
End Sub

En gros, cela insère un pied de page, sous ce format :
21/08/2006_02:03:40_ 1
(Date jour + Heure + Valeur [sachant que le 1 en gras/souligné, avec la boucle, est additionné de 1, et jusque 10 pour cet exemple])

@++

<hr size ="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
Messages postés
8
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
27 janvier 2010

Merci pour vos réponses, je crois pas que ce que je veux faire fonctionne avec un champ dans word ou avec les pieds de pages. J'aimerai faire un truc comme ca:
______________________________________

Certificat d'autenticité

Historique de la pièce... blablabla

Numéro de pièce:  ####

blablabla
____________________________________

J'aimerai pouvoir lancer une impression en disant : numéro de pièce de 0001 à 0153 (par exemple).

( je ne l'avais pas spécifié, mais je ne suis pas une brute en VB)

Merci encore

Cyril
Messages postés
8
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
27 janvier 2010

C'est tout bon, j'ai réussi. A +


Cyril
Messages postés
1
Date d'inscription
vendredi 3 novembre 2006
Statut
Membre
Dernière intervention
3 novembre 2006

Bonjour,
je cherche à incrémenter également un champ dans word au moment de l'impression.
Serait-il possible de communiquer le code que tu utilises ? 
Merci d'avance,

Fabrice
Messages postés
1
Date d'inscription
lundi 24 septembre 2007
Statut
Membre
Dernière intervention
25 septembre 2007

Bonjour

J'aurais besoin d'aide si vous avez résolu votre problème. J'ai des fiches que j'ai mis sur le réseau informatique et que chacun doit imprimer. Je voudrais que le numéro de la fiche s'incrémente automatiquement à l'impression (1, puis 2, puis 3 ....), 2 fiches ne devant pas porter le même numéro.
Il faudrait à priori une macro mais je n'y connais rien. Pouvez vous m'aider

merci