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

Question

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

white_mage · Answer

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();

mortalino · Answer

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"
<!--

cs_dynos · Answer

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

cs_dynos · Answer

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

fabloutre · Answer

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

omaritaqui · Answer

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

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

6 réponses

Votre réponse

Discussions similaires