Tiens j´ai trouvé ca sur le net c´est ca:
Est-il possible de supprimer tous les liens hypertextes d´un document ?
Oui, par un recherche-remplace :
Il suffit de visualiser les codes (Alt+F9) et de rechercher ^d HYPERLINK, (ou l´équivalent français ^d LIENHYPERTEXTE pour Word 97) et de remplacer par rien. Attention cette méthode supprime tous les liens hypertextes et le texte qui va avec.
Si l´on veut plutôt souhaiter uniquement les liens mais garder le texte, il faut passer par une macro :
Sub SupprimerTousLiens()
´macro écrite par anacoluthe
Dim i As Integer
For i = 1 To ActiveDocument.Hyperlinks.Count
ActiveDocument.Hyperlinks(1).Delete
Next i
End Sub
Notez Hyperlinks(1).Delete et non Hyperlinks(i).Delete
(la collection des Hyperlinks perd chaque fois son 1er item)
ou encore sous une forme voisine:
Sub DelierTousLiens()
´macro écrite par anacoluthe
Dim champ As Field
For Each champ In ActiveDocument.Fields
If champ.Type = wdFieldHyperlink Then champ.Unlink
Next champ
End Sub