suppression liens hypertexte dans Word 2011

[Alchemist]

Bonjour,
Comment supprimer tous les liens hypertexte d'une page Word 2011 ?
La méthode ctrl+Maj+F9 ne marche pas ...
Merci à tous

 

[brucetp]

Bonjour,
Comment supprimer tous les liens hypertexte d'une page Word 2011 ?
La méthode ctrl+Maj+F9 ne marche pas ...
Merci à tous

En VB avec une macro :

Sub KillTheHyperlinks()
' -----------------------------------------------
' Removes all hyperlinks from the document:
' Text to display is left intact
' -----------------------------------------------
With ThisDocument
' Loop while there are hyperlinks afoot!
While .Hyperlinks.Count > 0
.Hyperlinks(1).Delete
Wend
End With
' Shut this off, don't need anymore popping up
Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
End Sub

Source : http://www.extendoffice.com/documents/word/635-word-remove-all-hyperlinks.html

 

[Aliboron]

La méthode ctrl+Maj+F9 ne marche pas ...

Normal, on est sur Mac, pas sur PC. Le raccourci est "Commande-Majuscule-F9" (ou "Fn-Commande-Majuscule-F9" sur les claviers récents) après avoir sélectionné la totalité du document ("Commande-A"). Au besoin s'assurer de "libérer" la touche F9, qu'Apple a tendance à squatter pour Exposé...

Sinon, la macro devrait permettre de faire le ménage aussi, sous réserve qu'elle ne fasse pas appel à des commandes spécifiques Windows. Au besoin, d'autres pistes (pas testées non plus, elles datent un peu...) par ici.

 

[Alchemist]

Merci à tous deux.
Cmd-Majuscule-F9" ne fonctionne pas non plus. Que signifie "libérer la touche F9" ?
La macro a l'air sympa mais je suis débutant et ne sais plus comment l'insérer dans Word.

 

[Aliboron]

Petit rappel : depuis quelque temps (Leopard ?) Apple a squatté les touches de fonction en leur affectant par défaut des fonctions "maison" (luminosité, son, Exposé...) En conséquence, quand on veut retrouver leur fonctionnement "normale", il faut aller changer le paramétrage en question. Voir par ici...

 

[babgond]

tu vas dans

Outils -> Macro -> Visual Basic Editor

Tu sélectionne

Normal (Normal.dotm)
Microsoft Word Object
This Document


tu copie dans la fenêtre a droite

Sub GetRidOfHlinks()

Dim oHlink As Hyperlink, i As Long

For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
    ActiveDocument.Hyperlinks(i).Delete
Next i

End Sub

Tu quitte le VisualBasic Editor en cliquant sur le "W" bleu en haut a gauche


La macro est créé

pour l'exécuter :

Outils -> Macros... -> GetRidOfHlinks

Executer.




PS : la commande "Application.Options.AutoFormatAsYouTypeReplaceHype rlinks = False " est specifique à Word sur Windows

 

[Alchemist]

Merci à tous
La macro babgond marche impect.