Bonjour a tous, j'ai écris une macro de remplacement de texte, elle marche dans tout le contenu de la page mais ne marche pas dans le footer, quelqu'un pourrait-il m'expliquer pourquoi cela ne marche pas et m'indiquer la marche a suivre :
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 DocWD.Selection.Find.ClearFormatting DocWD.Selection.Find.Replacement.ClearFormatting With DocWD.Selection.Find .Text = "-CLIENT-" .Replacement.Text = getClient_entier() .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With DocWD.Selection.Find.Execute Replace:=wdReplaceAll
Partager