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

[ouskel'n'or]

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...
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

[dadavyvy]

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

[ouskel'n'or]

Merci dadavyvy, je n'en attendais pas moins de toi. Je n'ai pas pensé à passer par la collection
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
A+ et encore merci

[alsimbad]

pas fou non

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