Discussion :

[angetec]

Bonjour,
A partir d'une macro excel je cherche à remplacer du texte dans un document word.
Cela fonction pour le corps de texte mais ne vas pas dans l'entête et les pieds de page
j'utilise le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
 
Set wordApp = New Word.Application
wordApp.Visible = True 'le fichier word visible
 
 'Ouvre le document Word
Set wordDoc = wordApp.Documents.Open(mondocword)
wordDoc.Content.Find.Execute FindText:="texte_a_chercher", ReplaceWith:="texte_de_remplacement" , Replace:=wdReplaceAll

Auriez vous l'astuce? Car le 'ReplaceAll' ne semble pas marcher
Merci d'avance.

[carden752]

Bonjour,

C'est normal, les en-têtes et pied de page sont gérés dans des sections.
Tu peux faire quelque chose de ce style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
ActiveDocument.Sections(1).Headers(1).Range.Select
  With Selection.Find
 
        .Text = "toto"
        .Replacement.Text = "tata"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

Je l'ai fait sous Word, c'est pour cela la présentation de ce style à toi de garder ce qui t'intéresse.
Attention, selon le type de sections, il se peut que ce soit ActiveDocument.Sections(1).Headers(1, 2 ou 3)
Pour les pieds de page, c'est Footers au lieu de Headers