Changer Entête -pieds de page

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
heureux-oli
Le #19024791
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" %
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




GVA
Le #19031221
"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/





Salut,

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

Merci
GVA








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

"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








heureux-oli
Le #19040761
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" %

"heureux-oli" 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" %
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












heureux-oli
Le #19041061
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" %

"heureux-oli" 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" %
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












heureux-oli
Le #19041381
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" %
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" %

"heureux-oli" 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" %
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
















GVA
Le #19048401
Hello,
Ma version est la 2003, je vais tester tout ça.

Un grand merci
GVA

"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" 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" %

"heureux-oli" 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" %
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




















Publicité
Poster une réponse
Anonyme