Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

 

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

 

Statistiques

Aujourd'hui60
Hier1471
Cette semaine60
Ce mois40305
Total depuis 200410830839

5
visiteurs actuellement en ligne