Comment sélectionner et copier tous les liens hypertexte d’un document Word ?

Lorsque vous travaillez sur un document Word volumineux contenant de nombreux liens hypertexte — qu’ils pointent vers des sites web, des documents ou des emplacements réseau — il peut s’avérer utile de copier l’ensemble de ces liens pour des tâches telles que l’audit, le partage, la compilation de références ou la migration de contenu. Sélectionner chaque lien manuellement est non seulement fastidieux, mais aussi source d’erreurs ou d’oublis. Heureusement, plusieurs méthodes pratiques permettent d’extraire et de copier tous les liens hypertexte, que vous souhaitiez récupérer à la fois le texte affiché et son adresse URL, ou uniquement les adresses elles-mêmes, vous faisant ainsi gagner un temps précieux. Ce tutoriel présente différentes approches — utilisant les fonctionnalités natives de Word, du code VBA ou Kutools pour Word — afin de vous permettre de récupérer efficacement les liens hypertexte selon vos besoins.

---

Copier tous les liens hypertexte vers un nouveau document à l’aide de VBA

Si vous devez extraire à la fois le texte d’affichage et l’URL de chaque lien hypertexte d’un document Word, un code VBA peut automatiquement regrouper l’ensemble de ces liens dans un nouveau document, simplifiant ainsi leur organisation et leur partage. Cette solution s’avère idéale pour obtenir un relevé clairement mis en forme de tous les liens hypertexte ou pour consulter facilement leur contexte accompagné des URL réelles. Elle est particulièrement utile lorsque votre document contient des centaines de liens intégrés au corps du texte ou insérés dans des tableaux.

1. Ouvrez le document Word contenant les liens hypertexte. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Dans la fenêtre VBA, cliquez sur Insertion>Module. Copiez et collez le code VBA suivant dans la fenêtre du module :

   Sub HyperlinksExtract()
   'Updateby20140214
       Dim oLink As Hyperlink
       Dim docCurrent As Document 'current document
       Dim docNew As Document 'new document
       Dim rngStory As StoryRanges
       Set docCurrent = ActiveDocument
       Set docNew = Documents.Add
       For Each oLink In docCurrent.Hyperlinks
           oLink.Range.Copy
           docNew.Activate
           Selection.Paste
           Selection.TypeParagraph
       Next
       
       Set docNew = Nothing
       Set docCurrent = Nothing
   End Sub
   

3. Cliquez sur le bouton Exécuter ou appuyez sur F5 pour exécuter le code VBA. Celui-ci générera automatiquement un nouveau document Word contenant tous les liens hypertexte du document d’origine. Vous pourrez ensuite enregistrer ce nouveau document ou le modifier davantage selon vos besoins.

   >>>

---

Extraire uniquement les Adresse du lien hypertexte (Texte brut) vers un nouveau document à l’aide de VBA

Lorsque vous avez besoin uniquement des URL des liens hypertexte (adresses), sans texte d’affichage ni mise en forme — par exemple pour constituer une liste de références ou migrer des données — une autre méthode VBA permet d’extraire exclusivement les adresses et de les coller dans un nouveau document sous forme de texte brut. Cette approche est idéale pour créer un catalogue ou exporter des liens destinés à des tâches techniques, des audits, ou une intégration dans des systèmes web ou des bases de données.

1. Ouvrez votre document Word et appuyez sur Alt + F11 pour ouvrir l’éditeur VBA.
2. Cliquez sur Insertion>Module. Copiez et collez le code VBA suivant dans le module :

   Function GetAllHyperlinks()
   'Updateby20140214
       Dim docCurrent As Document
       Dim docNew As Document
       Dim oLink As Hyperlink
       Dim rng As Range
       Application.ScreenUpdating = False
       Set docCurrent = ActiveDocument
       Set docNew = Documents.Add
       For Each oLink In docCurrent.Hyperlinks
           Set rng = docNew.Range
           rng.Collapse
           rng.InsertParagraph
           rng.InsertAfter (oLink.Address)
       Next
       docNew.Activate
       Application.ScreenUpdating = True
       Application.ScreenRefresh
   End Function
   

3. Cliquez sur Exécuter ou appuyez sur F5. Le script VBA analysera votre document et générera un nouveau document contenant tous les liens de la Liste d’adresses au format texte brut. Ce nouveau document est facile à copier, exporter ou utiliser dans d’autres logiciels.

   >>>

---

Copier le lien hypertexte ou adresses vers le presse-papiers à l’aide de Kutools pour Word

Kutools pour Word propose une fonctionnalité intuitive qui vous permet de copier instantanément tous les liens hypertexte — ou uniquement leurs adresses — directement dans le presse-papiers, transformant ainsi une tâche autrement fastidieuse, multi-étapes ou dépendante du code en une opération simple et rapide. Idéale pour insérer sans délai des liens dans des e-mails, des pages web ou des feuilles de calcul, cette solution convient à tous les niveaux d’utilisateurs.

1. Accédez à l’onglet KUTOOLS PLUSdans le Ruban Word, puis cliquez sur Copier le lien hypertexte.

   

2. Dans la boîte de dialogue Copier tous les hyperliens dans le presse-papiers, choisissez si vous souhaitez copier les Copier le lien hypertexte avec leur Texte d'affichage (les mots visibles liés dans votre document) ou uniquement les Adresse du lien hypertexte (les URL).

   

3. Les liens hypertexte ou adresses sélectionnés sont désormais copiés dans votre presse-papiers. Vous pouvez les coller n’importe où — par exemple dans un nouveau document, un e-mail ou un navigateur — en appuyant sur Ctrl + V.

---

---

Démo : Copier tous les liens hypertexte d’un document Word

---

---

Articles associés :

• Insérer, supprimer et lister tous les liens hypertexte de Document actuel dans Word
• Insérer plusieurs liens hypertexte dans un document Word
• Supprimer tous les liens hypertexte dans Word