Bonjour,
Je suis complètement novice en matière de VBA, c'est pourquoi je me permets de venir vous demander de l'aide pour un problème dans Word2010.
A la fin d'un publipostage en masse, je me retrouve avec un document Word comprenant des étiquettes du style 12AB0015, 13AC0016, 12AC0017, etc. jusque parfois ....3000.
Il faudrait que sur les 4 derniers caractères, j'arrive à repérer les chiffres impaires et leur flanquer par exemple un fond gris.
j'ai essayé avec ceci :
Mais alors je dois avoir 1500 fois la même chose, ce qui n'est pas envisageable
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.Color = RGB(50, 200, 100) With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True End With Selection.Find.Execute Replace:=wdReplaceAll
D'avance un tout grand merci à la personne qui pourra m'aider![]()
Partager