WORD 2007 mis a jour champ dans zone de texte

WORD 2007 mis a jour champ dans zone de texte - VB/VBA/VBS - Programmation

Marsh Posté le 16-06-2009 à 16:34:43    

Bonjour,
 
Voulant faire une numérotation spéciale dans mon document, j'ai créé des champs dans les sections a numéroter qui comptent le nombre de page de la section. Apres j'ai créé un dernier champ qui additionne tous les autres et je l'ai placé dans une zone de texte dans le pied de page.
 
Bref, peut importe, le but du jeu est de le mettre à jour automatiquement sans avoir à le rechercher et appuyer sur F9.
 
Je sais mettre a jour les autres champs du document via le code suivant:
 
Sub update()
     
    ActiveDocument.Repaginate
    ActiveDocument.Fields.update
 
End Sub

 
Question : Comment mettre a jour un champ dans une zone de texte située dans le pied de page ,
 
Merci

Reply

Marsh Posté le 16-06-2009 à 16:34:43   

Reply

Marsh Posté le 17-06-2009 à 13:41:43    

Bon en bidouillant avec l'enregistreur de macro j'ai reussi a faire ce code qui marche pas mal:
 
Sub update()
     
    ActiveDocument.Repaginate
    ActiveDocument.Fields.update
 
    WordBasic.ViewFooterOnly
    Selection.HeaderFooter.Shapes("Text Box 313" ).Select
    Selection.Fields.update
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
         
End Sub
 
par contre comment je fais pour trouver les numéros ID des objets?
J'ai ici "text box 313" que j'ai trouvé grace a l'enregistreur de macro, mais sinon ou est ce que je peut voir ces infos?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed