Graham est un rédacteur et l’une des tâches (assez habituelles) auxquelles il est confronté est de supprimer http: // des URL qui commencent http: // www. Graham trouve cette tâche facile si l’URL n’est que du texte. Cependant, s’il s’agit d’un lien hypertexte, il doit afficher la boîte de dialogue Modifier le lien hypertexte, sélectionner http: // dans le champ Texte à afficher, le supprimer et fermer la boîte de dialogue.

Heureusement, vous ne devez pas toujours afficher la boîte de dialogue Modifier le lien hypertexte pour effectuer vos modifications. Même si un lien hypertexte est actif, vous pouvez rechercher et remplacer des informations dans ce qui est affiché. Par exemple, faire une recherche sur http: // www et le remplacer par www fonctionnera très bien, même pour les hyperliens actifs. Word modifie uniquement le texte affiché et non le lien hypertexte sous-jacent lui-même.

Si vous avez de très nombreux liens hypertexte à modifier et que cette troncature d’URL est une tâche courante, vous souhaiterez peut-être utiliser une macro pour gérer cela. Vous pouvez développer une courte macro qui parcourra chaque lien hypertexte du document et supprimera la partie http: //. Voici un exemple:

Sub FixHyperlinks1()

Dim hyp As Hyperlink     Dim sLink As String

For Each hyp In ActiveDocument.Hyperlinks         sLink = hyp.Address         sLink = replace(strLink, "http://", "")

hyp.Address = sLink     Next hyp End Sub

Cette approche n’est probablement pas aussi complète que vous le souhaitez, cependant. Il n’affecte que les hyperliens actifs; cela n’affecte pas les URL en texte brut de votre document. Si vous souhaitez utiliser une approche plus complète, vous avez besoin de quelque chose qui supprimera tous les hyperliens (vous n’en avez probablement pas besoin dans le document en premier lieu), puis supprimez la partie http: //. En voici un qui fera exactement cela:

Sub FixHyperlinks2()

'Remove hyperlinks     With ActiveDocument         While .Hyperlinks.Count > 0             .Hyperlinks(1).Delete         Wend     End With

'Remove http://     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "http://www"

.Replacement.Text = "www"

.Forward = True         .Wrap = wdFindContinue      End With     Selection.Find.Execute Replace:=wdReplaceAll End Sub

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (13147) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365. Vous pouvez trouver une version de cette astuce pour le ancienne interface de menu de Word ici:

link: / word-Removing_HTTP_from_URLs [Suppression de HTTP des URL].