[WD-2010] Numérotation des pages

[Pasqualini]

Bonjour,
je voudrais savoir comment il est possible, en VBA, de numéroter les pages :

• En bas de page
• Pages paires cadrées à gauche
• Pages impaires cadrées à droite

Je voudrais le faire en VBA parce que j'écris des textes en format A4 Portrait
et je les projète, avec un vidéo-projecteur, en format Paysage, avec des dimensions de pages différentes ( 17 cm x 24 cm).
Avec une macro VBA, j'ai réussi à faire la transformation, excepté pour les bas de page.

Merci

[Heureux-oli]

Salut,

Oui, c'est possible.

Les numéros de pages sont généralement situés dans les pieds de page et il existe plusieurs sortes de pied page.
Normal - Première page ou Page Paire ou Impaire.

Pour avoir une numérotation différente en fonction de la page, dans la mise en page, il faut activer ce choix et ensuite, on peut ajouter un numéro de page.

Si le numéro de page existe, la position se fait toute seule.

Code :

1
2
ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = True
ActiveDocument.Sections(1).Footers(wdHeaderFooterEvenPages).PageNumbers.Add

[Sepia]

Salut Pasqualini

Envoyé par Pasqualini

je voudrais savoir comment il est possible, en VBA, de numéroter les pages... Je voudrais le faire en VBA parce que j'écris des textes en format A4 Portrait et je les projète, avec un vidéo-projecteur, en format Paysage, avec des dimensions de pages différentes ( 17 cm x 24 cm).
Avec une macro VBA, j'ai réussi à faire la transformation, excepté pour les bas de page.

Merci

Pour les pieds de page, ce que te dit Heureux-Oli est bon mais as-tu simplement pensé à mettre des numéros de page en pied de page avec alignement (du style "Cadrer à droite", "Cadrer à gauche"...) comme ça, pas de problème lors du changement d'orientation de la page. Certes c'est simple comme solution, certains diraient même rudimentaire, et à tous ceux-la nous leur diront "Oui mais elle marche et partout"

@+

[Pasqualini]

Je vous remercie.
Je retrouve ainsi les pieds de page et la numérotation
telle qu'elle était dans le document d'origine.

Puis je me permettre, sur le même sujet, une question supplémentaire ?

Sur un document dont les pages ne sont pas numérotées, comment devrais je faire pour obtenir, avec une macro, la numérotation en bas de page, éventuellement en haut de page :

1. Pages impaires numérotées à droite
2. Pages paires numérotées à gauche

Merci

[Heureux-oli]

Salut,

Le code que j'ai donné ajoute la numérotation au document en VBA.

Ou alors, tu formules mal ta demande.

[Pasqualini]

C'est exact, le code que vous avez donné ajoute bien une numérotation des pages avec une distinction entre les pages droites et les pages gauches.

Ce que je constate toutefois, c'est que la numérotation des pages droites est décalée de 1,5 cm vers la droite, au lieu d'être à l'extrême droite du pied de page, c'est à dire contre la marge.

Je peux évidemment corriger ce fait manuellement, mais peut-être cela peut-il être inclus dans la macro ?

Merci encore

[Heureux-oli]

Salut,

Vérifies si tu as une reliure dans ton document.

[Pasqualini]

Merci,
je ne pense pas avoir de reliure dans mon document.
Comme je ne voudrais pas dire de bêtise : comment vérifier si j'ai une bordure
dans mon document ?

[Heureux-oli]

Salut,

Ce sont les options de mise ne page du document.

[Pasqualini]

J'ai regardé dans les options de mise en page.
Il n'y a pas de bordure dans le document.

[Heureux-oli]

Salut,

C'est reliure ou gutter en anglais.

[Pasqualini]

Il n'y pas de reliure, ni Gutter.
Les numéros de pages semblent se mettre dans une zone de texte de 1,5 cm de large avec un décalage à droite de 1,5 cm.
Le numéro est cadré à gauche, mais se trouve effectivement à 1,5 cm avec le décalage.

Manuellement il faut, que dans le cadre de la zone de texte, je supprime le décalage à droite.

[Heureux-oli]

Salut,

Essaie ce code, il doit retourner 0

[Pasqualini]

"Essaie ce code, il doit retourner 0 "

Quel code ?

[Heureux-oli]

Code :

1
2
3
4
Sub AfficherReliure()
MsgBox ActiveDocument.PageSetup.Gutter
 
End Sub

[Pasqualini]

Le code retourne effectivement 0

[Heureux-oli]

Salut,

C'est que dans son positionnement, le Textbox qui contient le numéro de page a été déplacé manuellement.
Dans ce cas, sa position est mémorisée pour toutes les pages sur lesquelles il doit apparaître.

[Pasqualini]

Je pense que ce n'est pas la position du TextBox, mais le décalage à droite dans le TextBox.
Il suffit que je supprime le décalage à droite dans le TextBox pour que le numéro se positionne à l'extrême droite.