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(i).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

 

Statistiques

Aujourd'hui108
Hier2568
Cette semaine4222
Ce mois41161
Total depuis 200410393132

4
visiteurs actuellement en ligne