Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > VBA Word
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 03/10/2007, 18h32   #1
Candidat au titre de Membre du Club
 
Inscription : avril 2007
Messages : 39
Détails du profil
Informations forums :
Inscription : avril 2007
Messages : 39
Points : 12
Points : 12
Par défaut Ajouter numeros de pages à une section 2

Bon voilà le problème :
Mon code créé 4 pages
Section 1 :
Page 1 : page de garde sans en-tête, ni pied de page (Option 1ère page différente activé)
Page 2 : Un sommaire avec un en-tête et un pied de page sans numéro de pages
Section 2 :
Page 3 et 4 :Même en-tête que la page précédente
Même pied de page aussi mais là la numérotation commence à 1
Ensuite pagination normale etc ...

Bref, Tous marche bien sauf quand il faut ajouter le numéro de page au début de la section 2
Code :
1
2
3
4
5
6
7
8
9
With ActiveDocument.Sections(2)
    .Headers(wdHeaderFooterFirstPage).LinkToPrevious = False
    .Headers(wdHeaderFooterFirstPage).Range.Paragraphs.Alignment = wdAlignParagraphCenter
    .Headers(wdHeaderFooterFirstPage).Range.Text = TextBoxEnTete.Value
    .Footers(wdHeaderFooterFirstPage).LinkToPrevious = False
    .Footers(wdHeaderFooterFirstPage).Range.Text = TextBoxPied.Value
    .Footers(wdHeaderFooterFirstPage).PageNumbers.Add
    .Footers(wdHeaderFooterFirstPage).Range.Paragraphs.Alignment = wdAlignParagraphCenter
End With
Mon code plante "Erreur d'execution 9 : l'indice l'appartient pas à la selection"
Quel est le problème ?

En résumé, comment ajouter une numérotation de pages à mon 1er pied de page à partir d'une section 2 en utilisant PageNumbers.Add

P.S :L'autre solution utilisant :
Code :
Plage.Fields.Add Range:=Plage, Type:=wdFieldPage
Marche bien, mais je souhaite comprendre comment utiliser PageNumbers.Add qui semble plus pratique

Merci d'avance !
Acivurt est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 21h48.


 
 
 
 
Partenaires

Hébergement Web