Remplacer une sélection avec des caractères "*" par un autre

Bonjour à tous,

Mon but est de mettre à jour un style dans un grand nombre d'occurence

Mon problème est le suivant : j'aimerai remplacer toutes les occurrences d'une suite de caractères par la même mais avec le nouveau style.

Comme la suite de caractères contient des caractères variables j'ai eu l'idée de rechercher avec le caractère * . Il me trouve bien les mots mais ensuite lorsque je veux le remplacer par le mm mot mais cette fois ci avec le style adéquat, il me remplace le mot par celui avec des * (ce qui est logique)

Par exemple :

j'ai Voiture-KIA-1 avec un style nommé KIA style
Voiture-KIA-2

et j'aimerai donc rechercher ces occurences dans mon doc et mettre à jour les syles voilà mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub maj()     With Selection.Find   .ClearFormatting .Style = ActiveDocument.Styles("KIA style") .Replacement.ClearFormatting .Replacement.Style = ActiveDocument.Styles("KIA style")   .Text = "Voiture-KIA-*" .Replacement.Text = .Text .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True   End With   Selection.Find.Execute Replace:=wdReplaceAll   End Sub

---

Voila le pb c'est qu'il me trouve bien toutes les occurences, il met bien mon style à jour mais il remplace Voiture-KIA-1 et Voiture-KIA-2 par Voiture-KIA-* 8O

J'ai essayé sans la ligne .Replacement.Text = .Text mais il ne fait alors pas la mise à jour du style.


Vous comprendrez bien que le style à évoluer et ma fonction sert à mettre à jour le style.

Par avance merci beaucoup et c'est vrai que ma requête n'est pas méga claire ...

Salut,

J'ai jamais fait ce que tu essaie de faire mais logiquement tu devrais remplacer

Code:

---

1 2 3

.Text = "Voiture-KIA-*" .Replacement.Text = .Text

---

par

Code:

---

1 2 3

.Text = "Voiture-KIA-*" .Replacement.Text = taSelection ?

---

:mouarf:

Je suis peut-être carrément dans le champs aussi :aie:

Salut,

Merci pour ton aide mais je ne comprends pas vraiment ce que tu me demandes de faire.

Quand je fais le remplacement de text par .Text ça revient au même que de mettre maselection non ?

Enfin qu'est-ce que tu entends par "taselection" ? comment je le met en forme dans le code ?


Merci

Salut,

j'imagine que .text c'est ce que tu recherche.

Par ta sélection, je veux dire : ce que ton find à trouver.

Genre si je cherche Patate-Choux-* dans bloc note, il va surligner Patate-Choux-1 par exemple.

C'est ce qui est surligné que j'appelle taSélection! Donc qu'il remplace exactement par ce qu'il vien de trouver!

Re,

Oui c'est bien ce que j'avais compris mais alors du point de vue code ya un pb:

Code:

---

.Replacement.Text = Selection

---

Avec ce code ça fonctionne bien mais seulement pour la première occurrence et après toutes les occurences sont remplacées par la mm chose .

Voiture-KIA-1 est bien remplacé par Voiture-KIA-1 avec nouveau style mais
Voiture-KIA-2 est AUSSI remplacé par Voiture-KIA-1 (avec nouveau style)

ce qui est logique car la selection a la valeur de la première sélection i.e. Voiture-KIA-1

Donc il faudrai pouvoir faire une boucle mais je n'arrive pas :(

Salut,

Désolé, je connais ca assez l'interaction entre Word et Vb.net pour répondre à ta question. Mais continue à chercher sur internet, ya assurément moyen de boucler dans ce que selection.find retourne!

bonne chance:ccool:

Dans ton replacement.text tu peux faire référence aux expressions que tu mets entre parenthèses dans ton .text en utilisant \n où n est le rang de l'expression (1-indexed).

Donc essaie ceci :

Code:

---

1 2	.Text = "Voiture-KIA-(*)>" .Replacement.Text = "Voiture-KIA-\1"

---

Le ">" c'est pour spécifier la fin d'un mot. Tu trouveras plein de trucs intéressant sur le "search and replace" ici.