effacer liens hypertexte [Résolu]

[JPDU92]

Bonjour à tous,
j'ai un souci, ça fait une petite semaine que je cherche sans l'aide du net mais je ne trouve pas, sauf que lorsque je suis venu ici, j'ai trouvé ça :

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

Mais ça ne marche pas ! En fait, j'ai un doc word et je veux effacer tous les liens hypertexte qui sont dedans, sans faire disparaitre le texte du lien.

Vous pouvez m'aider ????

[Heureux-oli]

Code :

1
2
3
4
5
Dim lnk As Hyperlink
For Each lnk In ActiveDocument.Hyperlinks
    lnk.Delete
 
Next lnk

Je viens d'essayer et le texte reste, seul le Hyperlink est supprimé.

Code :

1
2
3
4
5
6
Sub delHyperlink()
Dim i as integer
    For i = ThisDocument.Hyperlinks.Count To 1 Step -1
        ThisDocument.Hyperlinks(i).Delete
    Next i
End Sub

Avec une déclaration en plus, ton code aussi fonctionne.

[JPDU92]

Merci beaucoup, le truc marche mais il y un petit défaut, il faut le faire plusieurs fois pour tout enlever, merci beaucoup....