OVH Cloud OVH Cloud

les champs dans les en-tête

2 réponses
Avatar
Jean-Luc M.
Bonjour

J'ai une macro avec le code ActiveDocument.Fields.Update
Elle met bien à jour lles champs dans le document mais pas dans les
en-tête et pied de page.

Quelle serait la syntaxe pour mettre à jour les champs dans ces
endroits là ?

J'ai essayé le code suivant :

Public Sub MajTousChamps()
Dim S As Section
Dim H As HeaderFooter

' Pour le contenu du document
ActiveDocument.Fields.Update

For Each S In ActiveDocument.Sections
For Each H In S.Headers

Next
Next

End Sub

mais je suis pas sur du coup. et de toutes façons je n'arrive pas plus
loin.

Qulequ'un pour me guider svp ?

J-Luc

--
J-L M. (Alphomega)
Perso: http://alphomega.free.fr
Boulot: http://Ecilia.fr
Dodo: http://DansMonlit.fr
Pour m'écrire, cliquer le lien ci-dessous
http://cerbermail.com/?G5iYdBb2Ce

2 réponses

Avatar
Anacoluthe
Bonjour !

'Jean-Luc M.' nous a écrit ...
J'ai une macro avec le code ActiveDocument.Fields.Update
Elle met bien à jour lles champs dans le document mais pas dans les
en-tête et pied de page.
Quelle serait la syntaxe pour mettre à jour les champs dans ces endroits
là ?


Essayez ça :

Sub MaJTousLesChamps()
For Each oRange In ActiveDocument.StoryRanges
oRange.Fields.Update
Next oRange
End Sub

Anacoluthe
« Plus le champ de la pensée s'élargit,
plus la patience et la tolérance augmentent. »
- Ostad ELAHI

Avatar
Jean-Luc M.
Excellent !!!
100 kiou !! :-)

j'avais fini par trouver le code suivant:

'Dim H As HeaderFooter
'Dim S As Section
'Dim HF As HeaderFooter

'ActiveDocument.Fields.Update

'For Each S In ActiveDocument.Sections
' For Each HF In S.Headers
' HF.Range.Fields.Update
' Next
' For Each HF In S.Footers
' HF.Range.Fields.Update
' Next
'Next

mais en 3 lignes, c'est beaucoup mieux ...

--
J-L M. (Alphomega)
Perso: http://alphomega.free.fr
Boulot: http://Ecilia.fr
Dodo: http://DansMonlit.fr
Pour m'écrire, cliquer le lien ci-dessous
http://cerbermail.com/?G5iYdBb2Ce