Remplacement dans en-tête en VBA

Bonjour à tous,

J'ai écrit un bout de code pour remplacer automatiquement du texte dans tous
les fichiers d'un dossier. Super, ça marche !!!
Voici ma question : comment faire pour que ce remplacement se fasse
également dans les en-têtes et pieds de page ?
Quelqu'un a-t-il une idée ?

Il faut les ouvrir un par un.
Bon courage

--
A+

Il faut les ouvrir un par un.
Bon courage

--
A+

Merci pour la réponse et pour le courage !
Sauriez-vous où je peux trouver un exemple de code VBA pour traiter ces
en-têtes et pieds de page ?

Il faut les ouvrir un par un.
Bon courage

--
A+

Merci pour la réponse et pour le courage !
Sauriez-vous où je peux trouver un exemple de code VBA pour traiter ces
en-têtes et pieds de page ?

C'est un peu la corvée, mais l'enregistreur de macros est notre ami, ça
donne quelque chose de ce genre :
Dim Fenetre As View
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
Set Fenetre = ActiveWindow.ActivePane.View
If Fenetre.Type = wdNormalView Or Fenetre.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
' on est positioné dans le premier en-tête
' traitement ....
' pied de la première section
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
' on est positioné dans le premier pied de page
' on est positioné dans le premier en-tête
' traitement ....

' Repasse dans le corps
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Ne pas oublier de traiter toutes les sections qui peuvent avoir des
en-tête et des pieds de pages différents.

En fait, on peut sauter le début car c'est vous qui ouvrez vos
documents donc ils ne sont ni en Aperçu, ni en SplitSpecial

Si vous êtes sur un Mac il y a des constantes qui ne passent pas.

--
A+

Merci beaucoup pour votre aide.