[VBA-W]Supprimer tous les liens hypertexte en en conservant le texte

J'ai bien trouvé comment supprimer un lien hypertexte, un par un, à la main...
J'ai bien enregistré la macro en faisant tout comme alsimbad me l'a appris... :mouarf:
Mais le code récupéré ne fait pas ce qu'on lui demande.
Ce que je fais à la main :
- Recherche du lien
- Sélection du lien
- Clic droit -> Supprimer le lien hypertexte
Et manuellement, c'est tout ok
Mais quand on a 250 liens à supprimer, c'est vite fastidieux !
Une idée ?
Par avance, merci

J'ai juste testé qqch, qui fonctionne chez moi sur Word2000 :

Code:

---

1 2 3 4 5

Sub delHyperlink() For i = ThisDocument.Hyperlinks.Count To 1 Step -1 ThisDocument.Hyperlinks(i).Delete Next i End Sub

---

Il me laisse bien le texte.

Par contre avec ce code :

Code:

---

1 2 3 4 5 6

Sub delHyperlink() Dim h As Hyperlink For Each h In ThisDocument.Hyperlinks h.Delete Next h End Sub

---

Le probleme est que des qu'il a supprimé un hyperlien, il en a un de moins, donc en passant à l'index suivant, il me saute un lien sur deux... ou qqch comme ça... En gros si j'ai 4 liens, il me supprime le 1er et le 3e...
D'ou le Step -1 avec le 1er code

Merci dadavyvy, je n'en attendais pas moins de toi. Je n'ai pas pensé à passer par la collection :oops:
Ouf ! ça va me soulager. Mais le second code m'aurait suffit... dans une boucle... Me serait resté qu'un seul lien à supprimer à la main :mouarf:
A+ et encore merci

pas fou non

Citation:

---

Citation:

---

citation fantaisiste de "Ou c'est qu'elle dort"

---

J'ai bien enregistré la macro en faisant tout comme alsimbad me l'a appris...

---

imagine un peu la déception chez tout ces petits qui vont m'interroger en pensant que je connais quelque chose de la macro soux word
hé yeha, si c'est pas un coup en traitre ça:zekill: