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.
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
Pour supprimer les liens juste sur une sélection de texte, remplacer
For i = 1 To ActiveDocument.Hyperlinks.Count
ActiveDocument.Hyperlinks(1).Delete
par
For i = 1 To Selection.Hyperlinks.Count
Selection.Hyperlinks(1).Delete
Next i
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