Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Word Changer Entête -pieds de page

Changer Entête -pieds de page

6 réponses
Avatar
GVA
Bonjour,

Je dois changer du texte dans les entêtes et pieds de page de modèles (.dot)
Il y a t'il un solution pour pour faciliter ce travail?

Merci d'avance
GVA
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
heureux-oli
Salut,

Est-ce du remplacement de texte ?
Du remplacement d'image ?

On peut si le changement est déterminé, il est possible d'utiliser du code
pour ouvrir les fichiers, effectuer le changement, sauver et fermer.



--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/

----------------------------------------------------------------------------------

"GVA" a écrit dans le message de news:
%
Bonjour,

Je dois changer du texte dans les entêtes et pieds de page de modèles
(.dot)
Il y a t'il un solution pour pour faciliter ce travail?

Merci d'avance
GVA




Avatar
GVA
"heureux-oli" a écrit dans le message de news:
%
Salut,

Est-ce du remplacement de texte ?
Du remplacement d'image ?

On peut si le changement est déterminé, il est possible d'utiliser du code
pour ouvrir les fichiers, effectuer le changement, sauver et fermer.








--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/





Salut,

Oui il s'agit bien de texte, en fait le mon de la rue dans l'adresse qui
change.

Merci
GVA








----------------------------------------------------------------------------------

"GVA" a écrit dans le message de news:
%
Bonjour,

Je dois changer du texte dans les entêtes et pieds de page de modèles
(.dot)
Il y a t'il un solution pour pour faciliter ce travail?

Merci d'avance
GVA








Avatar
heureux-oli
Salut,

Quelle est ta version de Word ?

--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/

----------------------------------------------------------------------------------

"GVA" a écrit dans le message de news:
%

"heureux-oli" a écrit dans le message de
news: %
Salut,

Est-ce du remplacement de texte ?
Du remplacement d'image ?

On peut si le changement est déterminé, il est possible d'utiliser du
code pour ouvrir les fichiers, effectuer le changement, sauver et fermer.








--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/





Salut,

Oui il s'agit bien de texte, en fait le mon de la rue dans l'adresse qui
change.

Merci
GVA








----------------------------------------------------------------------------------

"GVA" a écrit dans le message de news:
%
Bonjour,

Je dois changer du texte dans les entêtes et pieds de page de modèles
(.dot)
Il y a t'il un solution pour pour faciliter ce travail?

Merci d'avance
GVA












Avatar
heureux-oli
Salut,

Voilà un code qui devrait fonctionner.
Tu dois ajouter la référence Microsoft Scripting Runtime au projet.
Tu dois aussi change le texte à chercher et à remplacer qui se trouve dans
la macro.

*************************************************

Sub OuvrirEtChangerTexte()
'ajouter la référence Miscrosoft Scripting Runtime au projet
Dim oFso As FileSystemObject
Dim oFol As Folder
Dim oDlg As FileDialog
Dim oFil As File
Dim oDoc As Document
Dim stFol As String
Dim myRng As Range

Set oFso = New FileSystemObject
Set oDlg = Application.FileDialog(msoFileDialogFolderPicker)

oDlg.Show
stFol = oDlg.SelectedItems(1)

Set oFol = oFso.GetFolder(stFol)

For Each oFil In oFol.Files
If Right(oFil.Name, 4) = "docm" Then
Set oDoc = Documents.Open(FileName:=oFil.Path)
Set myRng = oDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range

With myRng.Find
.Forward = True
.Execute findtext:="Texte à Chercher", ReplaceWith:="Texte de
remplacement", Replace:=wdReplaceAll
End With

oDoc.Save
oDoc.Close
End If

Next oFil

Set myRng = Nothing
Set oDoc = Nothing

Set oFol = Nothing
Set oFso = Nothing

End Sub


--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/

----------------------------------------------------------------------------------

"GVA" a écrit dans le message de news:
%

"heureux-oli" a écrit dans le message de
news: %
Salut,

Est-ce du remplacement de texte ?
Du remplacement d'image ?

On peut si le changement est déterminé, il est possible d'utiliser du
code pour ouvrir les fichiers, effectuer le changement, sauver et fermer.








--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/





Salut,

Oui il s'agit bien de texte, en fait le mon de la rue dans l'adresse qui
change.

Merci
GVA








----------------------------------------------------------------------------------

"GVA" a écrit dans le message de news:
%
Bonjour,

Je dois changer du texte dans les entêtes et pieds de page de modèles
(.dot)
Il y a t'il un solution pour pour faciliter ce travail?

Merci d'avance
GVA












Avatar
heureux-oli
Salut,

Il manque un morceau d'explication.
Ne connaissant pas ta version de Word,
Cette ligne est à modifier

If Right(oFil.Name, 4) = "docm" Then

Et docm doit être remplacé par l'extension utilisée pour tes modèles (dot;
dotm ou dotx)

De même, je donne l'exemple pour un pied de page :
Set myRng = oDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range

Pour un en-tête, il faut utiliser Headers au lieu de Footers.



--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/

----------------------------------------------------------------------------------

"heureux-oli" a écrit dans le message de news:
%
Salut,

Voilà un code qui devrait fonctionner.
Tu dois ajouter la référence Microsoft Scripting Runtime au projet.
Tu dois aussi change le texte à chercher et à remplacer qui se trouve dans
la macro.

*************************************************

Sub OuvrirEtChangerTexte()
'ajouter la référence Miscrosoft Scripting Runtime au projet
Dim oFso As FileSystemObject
Dim oFol As Folder
Dim oDlg As FileDialog
Dim oFil As File
Dim oDoc As Document
Dim stFol As String
Dim myRng As Range

Set oFso = New FileSystemObject
Set oDlg = Application.FileDialog(msoFileDialogFolderPicker)

oDlg.Show
stFol = oDlg.SelectedItems(1)

Set oFol = oFso.GetFolder(stFol)

For Each oFil In oFol.Files
If Right(oFil.Name, 4) = "docm" Then
Set oDoc = Documents.Open(FileName:=oFil.Path)
Set myRng = oDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range

With myRng.Find
.Forward = True
.Execute findtext:="Texte à Chercher", ReplaceWith:="Texte de
remplacement", Replace:=wdReplaceAll
End With

oDoc.Save
oDoc.Close
End If

Next oFil

Set myRng = Nothing
Set oDoc = Nothing

Set oFol = Nothing
Set oFso = Nothing

End Sub


--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/

----------------------------------------------------------------------------------

"GVA" a écrit dans le message de news:
%

"heureux-oli" a écrit dans le message de
news: %
Salut,

Est-ce du remplacement de texte ?
Du remplacement d'image ?

On peut si le changement est déterminé, il est possible d'utiliser du
code pour ouvrir les fichiers, effectuer le changement, sauver et
fermer.








--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/





Salut,

Oui il s'agit bien de texte, en fait le mon de la rue dans l'adresse qui
change.

Merci
GVA








----------------------------------------------------------------------------------

"GVA" a écrit dans le message de news:
%
Bonjour,

Je dois changer du texte dans les entêtes et pieds de page de modèles
(.dot)
Il y a t'il un solution pour pour faciliter ce travail?

Merci d'avance
GVA
















Avatar
GVA
Hello,
Ma version est la 2003, je vais tester tout ça.

Un grand merci
GVA

"heureux-oli" a écrit dans le message de news:

Salut,

Il manque un morceau d'explication.
Ne connaissant pas ta version de Word,
Cette ligne est à modifier

If Right(oFil.Name, 4) = "docm" Then

Et docm doit être remplacé par l'extension utilisée pour tes modèles (dot;
dotm ou dotx)

De même, je donne l'exemple pour un pied de page :
Set myRng = oDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range

Pour un en-tête, il faut utiliser Headers au lieu de Footers.



--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/

----------------------------------------------------------------------------------

"heureux-oli" a écrit dans le message de
news: %
Salut,

Voilà un code qui devrait fonctionner.
Tu dois ajouter la référence Microsoft Scripting Runtime au projet.
Tu dois aussi change le texte à chercher et à remplacer qui se trouve
dans la macro.

*************************************************

Sub OuvrirEtChangerTexte()
'ajouter la référence Miscrosoft Scripting Runtime au projet
Dim oFso As FileSystemObject
Dim oFol As Folder
Dim oDlg As FileDialog
Dim oFil As File
Dim oDoc As Document
Dim stFol As String
Dim myRng As Range

Set oFso = New FileSystemObject
Set oDlg = Application.FileDialog(msoFileDialogFolderPicker)

oDlg.Show
stFol = oDlg.SelectedItems(1)

Set oFol = oFso.GetFolder(stFol)

For Each oFil In oFol.Files
If Right(oFil.Name, 4) = "docm" Then
Set oDoc = Documents.Open(FileName:=oFil.Path)
Set myRng = oDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range

With myRng.Find
.Forward = True
.Execute findtext:="Texte à Chercher", ReplaceWith:="Texte de
remplacement", Replace:=wdReplaceAll
End With

oDoc.Save
oDoc.Close
End If

Next oFil

Set myRng = Nothing
Set oDoc = Nothing

Set oFol = Nothing
Set oFso = Nothing

End Sub


--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/

----------------------------------------------------------------------------------

"GVA" a écrit dans le message de news:
%

"heureux-oli" a écrit dans le message de
news: %
Salut,

Est-ce du remplacement de texte ?
Du remplacement d'image ?

On peut si le changement est déterminé, il est possible d'utiliser du
code pour ouvrir les fichiers, effectuer le changement, sauver et
fermer.








--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/





Salut,

Oui il s'agit bien de texte, en fait le mon de la rue dans l'adresse qui
change.

Merci
GVA








----------------------------------------------------------------------------------

"GVA" a écrit dans le message de news:
%
Bonjour,

Je dois changer du texte dans les entêtes et pieds de page de modèles
(.dot)
Il y a t'il un solution pour pour faciliter ce travail?

Merci d'avance
GVA