Je souhaite imprimer une page un certain nombre de fois et que ce numéro soit automatiquement incrémenté en pied de page.

C'est possible en passant par une macro.

Pour commencer, insérez un signet dans le pied de page, à l'endroit où vous souhaitez que soit incrémenté ce numéro. Nommez le signet Numero. Pour insérer un signet : Onglet Insertion, bouton Signet => Donner un nom).

Puis utilisez la macro suivante qui vous demandera le nombre de pages à imprimer et donc à incrémenter.

Sub impr_num()
'macro inspirée par celle de Doug Robins, MVP Word australien
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

 

Statistiques

Aujourd'hui30
Hier2489
Cette semaine2519
Total depuis 20049477779

5
visiteurs actuellement en ligne