Tout d'abord, ATTENTION ! La méthode préconisée sur un certain nombre de sites par des incompétents qui répètent ce qu'ils ont vu ailleurs et qui est de tout sélectionner (Ctrl+A) puis puis d'appuyer sur Ctrl+Maj+F9 supprime bien les liens hypertextes, mais surtout supprime TOUS LES CHAMPS ! Donc danger !

C'est possible avec 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


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