Numerotation d'une page
l3ntz
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
l3ntz Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
l3ntz Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
bonjour,
je souhaite numéroter une page et je voudrais savoir s'il est possible de numéroter cette même page avec un autre numéro à chaque impression.
ex imprimer la page 50x et numérotée de 1 à 50
merci de votre réponse
je souhaite numéroter une page et je voudrais savoir s'il est possible de numéroter cette même page avec un autre numéro à chaque impression.
ex imprimer la page 50x et numérotée de 1 à 50
merci de votre réponse
A voir également:
- Numerotation d'une page
- Supprimer une page word - Guide
- Numérotation page word - Guide
- Imprimer tableau excel sur une page - Guide
- Créer une page facebook - Guide
- Comment traduire une page - Guide
2 réponses
Bonjour,
Possible avec une macro.
Regarde ici :
http://www.word.mvps.org/FAQs/MacrosVBA/NumberCopiesOf1Doc.htm
m@rina
Possible avec une macro.
Regarde ici :
http://www.word.mvps.org/FAQs/MacrosVBA/NumberCopiesOf1Doc.htm
m@rina
l3ntz
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
merci, mais je ne suis pas fortiche en anglais ni en macros
Bonjour,
Pour commencer cette page doit être isolée par des sauts de section.
Tu vas dans le pied de page, tu désactives l'option "Lier au précédent", tu supprimes le numéro et tu ajoutes un signet que tu nommes Numero (Insertion => Signet).
Ensuite, tu copies colles la macro suivante dans l'éditeur de macro :
Voilà, il te reste à lancer la macro qui va te demander le numéro (50 dans ton exemple).
m@rina
ps : si tu ne sais pas où mettre la macro, j'explique ici :
https://faqword.com/index.php/word/tutos/toutes-versions/615-le-b-a-ba-du-vba#forum
Pour commencer cette page doit être isolée par des sauts de section.
Tu vas dans le pied de page, tu désactives l'option "Lier au précédent", tu supprimes le numéro et tu ajoutes un signet que tu nommes Numero (Insertion => Signet).
Ensuite, tu copies colles la macro suivante dans l'éditeur de macro :
Sub impr_num()
Dim Message As String, Titre As String, Defaut As String, NCopies As Long
Dim Rng1 As Range
Message = "Entrez le nombre de pages que vous souhaitez imprimer"
Titre = "Impression"
Defaut = "1"
' Affiche le message qui demande le nombre à imprimer
NCopies = Val(InputBox(Message, Titre, Default))
Numero = 1
Set Rng1 = ActiveDocument.Bookmarks("Numero").Range
Counter = 0
While Counter < NCopies
Rng1.Delete
Rng1.Text = Numero
ActiveDocument.PrintOut
Numero = Numero + 1
Counter = Counter + 1
Wend
'Recrée le signet pour une utilisation future
With ActiveDocument.Bookmarks
.Add Name:="Numero", Range:=Rng1
End With
ActiveDocument.Save
End Sub
Voilà, il te reste à lancer la macro qui va te demander le numéro (50 dans ton exemple).
m@rina
ps : si tu ne sais pas où mettre la macro, j'explique ici :
https://faqword.com/index.php/word/tutos/toutes-versions/615-le-b-a-ba-du-vba#forum