Numerotation d'une page

Bonjour,

Possible avec une macro.
Regarde ici :
http://www.word.mvps.org/FAQs/MacrosVBA/NumberCopiesOf1Doc.htm

m@rina

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 :

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