user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

C'est simple surtout si vous démarrez un nouveau document :

L'option Lier au précédent est une option par défaut, il faut juste y ajouter l'option de commencer à 1 pour la numérotation des pages.

il suffit ensuite d'entrer dans le pied de page (ou l'en-tête) de la première page les champs suivants :

Le champ {PAGE} est pour le numéro de la page, et le champ {SECTIONPAGES} pour le nombre total de pages dans la section.

Je rappelle que tous les { } se créent avec Ctrl+F9.

Lorsque vous allez entrer un saut de section, le pied de page de la section suivante sera identique à la première (grâce à l'option Lier au précédent) et la numérotation repartira donc de 1.


Si vous intervenez sur un document déjà créé et comportant un certain nombre de sections :

  • Soit l'option Lier au précédent est l'option sélectionnée sur toutes les sections, il suffit alors de juste indiquer que la pagination démarre à 1 sur chaque d'elle : pour cela, sélectionnez tout le document (Ctrl+A), puis onglet Insertion, groupe En-têtes et pied de page, bouton Numéro de page => Format des numéros de page => À partir de 1.
  • Soit l'option Lier au précédent est "variable" selon les sections, il va falloir afficher le pied de page de chacune d'elle et choisir Lier au précédent, puis, comme ci-dessus, choisir de démarrer le numéro à 1.

Sur un document déjà créé et fait un peu en dépit du bons sens, s'il y a beaucoup de sections et que vous ne vous y retrouvez plus, en gros si vous ne vous en sortez pas, alors : macro !

La macro suivante va supprimer l'existant du point de vue pied de page, va annuler si nécessaire les options pair/impair et première page différente, et insérer dans le pied de page cette numérotation par section, commençant à 1 avec le nombre total de pages de chaque section. 

Sub pagination_section()
'macro écrite par m@rina
Application.ScreenUpdating = False
Dim x As Integer, mondoc
Set mondoc = ActiveDocument
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _<br>    ActivePane.View.Type = wdOutlineView Then
    ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
'suppression de tous les pieds de page existant
'suppression de Première page différente
'suppression de page paire/impaire différente

For x = 1 To mondoc.Sections.Count
    With mondoc.Sections(x)
        .Footers(wdHeaderFooterPrimary).Range.Delete
        .Footers(wdHeaderFooterEvenPages).Range.Delete
        .Footers(wdHeaderFooterFirstPage).Range.Delete
        .PageSetup.DifferentFirstPageHeaderFooter = False
        .PageSetup.OddAndEvenPagesHeaderFooter = False
    End With
    With mondoc.Sections(x).Footers(wdHeaderFooterPrimary)
        .PageNumbers.RestartNumberingAtSection = True
        .PageNumbers.StartingNumber = 1
        .LinkToPrevious = True
    End With

mondoc.Sections(x).Footers(wdHeaderFooterPrimary).Range.Select
With Selection
    .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="PAGE"
    .TypeText Text:="/" ' & texte
    .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="SECTIONPAGES"
    .ParagraphFormat.Alignment = wdAlignParagraphCenter
End With

Next
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Application.ScreenUpdating = True
End Sub
 

 

 

 

Voir aussi...

Statistiques

Aujourd'hui2467
Hier2756
Cette semaine10888
Ce mois62695
Total depuis 200412819459

15
visiteurs actuellement en ligne

25 février 2021