IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Word Discussion :

Mise à jour du nombre de pages totales et de la page en cours [WD-2010]


Sujet :

VBA Word

  1. #1
    Membre habitué
    Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Février 2007
    Messages
    246
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur développement logiciels

    Informations forums :
    Inscription : Février 2007
    Messages : 246
    Points : 191
    Points
    191
    Par défaut
    Bonjour,

    je suis un débutant en VBA et je trouve ça sympa la personnalisation de word avec cet outil. Mon problème est simple à expliquer mais vraiment la galère à mttre en oeuvre. J'ai créer un modèle personnalisé sur word, et j'ai besoin de numéroter les pages dan sle pied de page:
    "page x sur y"

    De base, j'ai 2 pages, une de présentation du document et une qui représente les différents grands thèmes abordés dan sle document. Le 1er souci c'est que les 2 pages sont numérotés "page 1 sur 2" au lieu de "page 1 sur 2" pour la 1ere et "page 2 sur 2 pour la 2eme.

    Mon second problème, c'est que lorsque je créer un nouvelle page manuellement (menu insertion -> Nouvelle page) ou automatiquement (je tape mon texte jusqu'à atteindre le base de page puis ça créer un nouvelle page), je n'arrive pas à trouver l'évenement qui est levé lorsque'on créée la page pour mettre à jour le nombre total de page et numéroter la nouvelle page. Je vous met ci-dessous mon code que j'ai essayé d'utiliser pour faire ce fonctionnement.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    Private Sub Document_New()
     
    Dim NbPages As Integer
     
    NbPages = Selection.Information(wdActiveEndPageNumber)
    PagesTotales.Caption = NbPages
     
    NumPage.Caption = Selection.Information(wdActiveEndAdjustedPageNumber)
     
    End Sub

    ci-dessous les valeurs misent à la création du document qui utilise mon model
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    NumPage.Caption = 1
    PagesTotales.Caption = 2
    Quel est-est l'évènement et dans quel contexte je peux l'utiliser pour mettre à jour le nombre de pages totales et numéroté la nvelle page avec le bon numéro ?

    Comment bien numéroté mes pages de bases ?

    je précise que c'est word 2010

  2. #2
    Rédacteur/Modérateur

    Avatar de Heureux-oli
    Homme Profil pro
    Contrôleur d'industrie
    Inscrit en
    Février 2006
    Messages
    21 086
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : Belgique

    Informations professionnelles :
    Activité : Contrôleur d'industrie
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Février 2006
    Messages : 21 086
    Points : 42 925
    Points
    42 925
    Par défaut
    Salut,

    Pourquoi passer par du code pour gérer les pages d'un document ?

    Il te suffit d'insérer un champ avec ces informations dans ton peid de page et Word fera le reste.

    http://heureuxoli.developpez.com/off...rd/fiches/num/

  3. #3
    Membre habitué
    Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Février 2007
    Messages
    246
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur développement logiciels

    Informations forums :
    Inscription : Février 2007
    Messages : 246
    Points : 191
    Points
    191
    Par défaut
    Le problème, c'est qu'on me demmande quelque chose de très spécifique, comme je l'ai écrit il me demande le format "page x sur y" et ça, je ne le vois pas sur les numérotations de page de word

  4. #4
    Membre habitué
    Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Février 2007
    Messages
    246
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur développement logiciels

    Informations forums :
    Inscription : Février 2007
    Messages : 246
    Points : 191
    Points
    191
    Par défaut
    j'ai rien dit, j'ai trouvé le bon format, dslé pour ma question à 10 balles

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [CRXI] En-tête du rapport, page de garde, pied de page et en-tête de page
    Par PittMarson dans le forum SAP Crystal Reports
    Réponses: 1
    Dernier message: 01/10/2007, 18h14

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo