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 21/08/2006, 17h26   #1
Candidat au titre de Membre du Club
 
Inscription : juillet 2005
Messages : 59
Détails du profil
Informations forums :
Inscription : juillet 2005
Messages : 59
Points : 12
Points : 12
Par défaut [Word VBA] numéro de page section

salut

J'ai effectué la validation d'une application que j'ai développé dans des fichiers word différents. Je dois donc maintenant les rassembler dans un seul fichier.
Lorsque j'importe un fichier je le rajoute dans une nouvelle section, j'attribue en pied de page le num de la page courante -/- au nombre de page contenu dans la section. Jusque la il n'y pas de problème.

Maintenant ce que je souhaiterai faire c'est mettre en en-tête le numéro totale de la page courante.

Le moyen de plus simple pour faire ca, c'est de stocker dans une variable le nombre de page total au niveau de la section précédente et ce nombre sera rajouter au numéro de la page courante de la section suivante. Ce qui donne en code :
{ set nbpageS2 { ={Numpage} + {nbpageS1}}
a mettre dans la section précédente.

{ = {page} + {nbpageS2}}
a mettre dans la section suivante


en théorie d'après ce que j'ai cherché sur le net c'set sansé marché, mais chez moi il n'y a rien qui s'affiche lorsque je veux afficher le contenu d'un SET

J'ai essayer {set toto "gerard"} {toto}
et rien ca marche pas

je suis sous word 2003

si quelqu'un pourrai m'aider

++
dahu29 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 21/08/2006, 17h36   #2
Inactif
 
Avatar de ouskel'n'or
 
Inscription : février 2005
Messages : 12 466
Détails du profil
Informations forums :
Inscription : février 2005
Messages : 12 466
Points : 11 930
Points : 11 930
Tu souhaites que les numéros des pages insérées suivent les pages existantes ? C'est bien ça ?
Si oui, quand tu insères ton saut de section, il te suffit de faire
Code :
    Selection.InsertBreak Type:=wdSectionBreakNextPage
Si j'ai mal compris, tu dis
ouskel'n'or est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 21/08/2006, 17h39   #3
Inactif
 
Avatar de ouskel'n'or
 
Inscription : février 2005
Messages : 12 466
Détails du profil
Informations forums :
Inscription : février 2005
Messages : 12 466
Points : 11 930
Points : 11 930
Pour mettre le N° de pages à jour, tu fais
Code :
    Selection.Fields.Update
Equivalent de F9
Juste au cas où
ouskel'n'or est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 21/08/2006, 17h42   #4
Candidat au titre de Membre du Club
 
Inscription : juillet 2005
Messages : 59
Détails du profil
Informations forums :
Inscription : juillet 2005
Messages : 59
Points : 12
Points : 12
Je veux pouvoir obtenir 2 systèmes de numérotation de pages, un qui prend en compte le total des pages et un autre qui soit spécial pour chaque section (j'ai modifié dans l'ajout de numéro de page le fait de ne pas suivre la numérotation de la page précédente).

Ton code il faut l'insérer ou dans le vbeditor ?

je connai pas grand chose aux systèmes des macro sous office
dahu29 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 23/08/2006, 10h51   #5
Inactif
 
Avatar de ouskel'n'or
 
Inscription : février 2005
Messages : 12 466
Détails du profil
Informations forums :
Inscription : février 2005
Messages : 12 466
Points : 11 930
Points : 11 930
Un peu tardive, ma réponse, mais j'ai eu plein de boulot
Citation:
Envoyé par Tu
Ton code il faut l'insérer ou dans le vbeditor ?
Oui ! Le mieux est de le placer dans la sub autoexec.

Code :
1
2
3
4
5
6
7
8
9
Sub AutoExec()
Main
End Sub
 
Public Sub Main()
    'Tu peux demander la numérotation ici
    'puis la mise à jour de cette numérotation
    Selection.Fields.Update
End Sub
(Cette syntaxe assure la compatibilité avec les versions antérieures de Word)
Ces macros sont à placer dans un Module standard dans l'éditeur VBA
Tu dis
ouskel'n'or 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 07h44.


 
 
 
 
Partenaires

Hébergement Web