Accéder au contenu principal

Comment sélectionner et copier tous les liens hypertextes d'un document Word ?

Author: Sun Last Modified: 2025-05-27

Si vous avez un long document Word contenant plusieurs liens hypertextes et que vous devez tous les copier en une seule fois, la sélection manuelle de chacun peut être chronophage. Heureusement, il existe des méthodes efficaces pour extraire et copier tous les liens hypertextes ou simplement leurs adresses. Ce guide présentera différentes méthodes pour accomplir cela rapidement.


Copier tous les liens hypertextes dans un nouveau document à l'aide de VBA

À l'aide de VBA, vous pouvez extraire tous les liens hypertextes d'un document et les copier dans un nouveau document.

  1. Ouvrez le document Word contenant les liens hypertextes et appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
  2. Cliquez sur Insérer > Module, puis 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 pour exécuter le code VBA. Un nouveau document s'ouvrira contenant tous les liens hypertextes du document original.
    Document with text with hyperlinks >>> New document with only text with hyperlinks

Remarque : Cette méthode VBA fonctionne uniquement pour les liens hypertextes basés sur du texte. Elle n'extrait pas les liens hypertextes intégrés dans des images.


Extraire uniquement les adresses des liens hypertextes (texte brut) dans un nouveau document à l'aide de VBA

Cette méthode VBA extrait uniquement les adresses des liens hypertextes d'un document et les colle dans un nouveau document.

  1. Ouvrez le document Word et appuyez sur Alt + F11 pour ouvrir l'éditeur VBA.
  2. Cliquez sur Insérer > Module, puis copiez et collez le code VBA suivant :
    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 le bouton Exécuter Un nouveau document sera créé contenant uniquement les adresses des liens hypertextes (texte brut).
    Document with text with hyperlinks >>> New document with only hyperlink addresses

Remarque : Les adresses des liens hypertextes extraits peuvent ne pas apparaître dans le même ordre que dans le document original.


Copier les liens hypertextes ou leurs adresses dans le presse-papiers à l'aide de Kutools pour Word

Kutools pour Word offre une méthode simple pour copier tous les liens hypertextes ou simplement leurs adresses dans le presse-papiers en quelques clics.

Kutools for Word,doté d'IA 🤖, offre plus de 100 fonctionnalités pratiques pour simplifier vos tâches.
  1. Cliquez sur Kutools Plus > Copier le lien hypertexte.
    Copy Hyperlink button on the Kutools tab on the ribbon
  2. Dans la boîte de dialogue Copier tous les liens hypertextes dans le presse-papiers, sélectionnez l'option souhaitée.
    Copy all hyperlinks to clipboard dialog box
  3. Collez les liens hypertextes copiés où vous le souhaitez en appuyant sur Ctrl + V.
  • Si vous sélectionnez l'option Liens hypertextes le texte d'affichage ainsi que le lien hypertexte seront copiés.
    Text with hyperlinks pasted
  • Si vous sélectionnez l'option Adresses des liens hypertextes seule l'adresse du lien hypertexte sera copiée sous forme de texte brut.
    Hyperlinks addresses pasted
Kutools pour Word est l'add-in ultime pour Word qui rationalise votre travail et améliore vos compétences en traitement de documents. Obtenez-le maintenant !

Démo : Copier tous les liens hypertextes dans un document Word

Découvrez l'Kutools / Kutools Plus dans cette vidéo de Kutools for Word. Profitez de plus de 100 fonctionnalités et d'utilitaires d'IA gratuits à vie. Téléchargez maintenant !


Navigation et édition par onglets pour plusieurs documents Word/classeurs Excel, tout comme dans Chrome et Edge !

Tout comme la navigation entre plusieurs pages web dans Chrome, Safari et Edge, Office Tab vous permet d'ouvrir et de gérer plusieurs documents Word ou classeurs Excel dans une seule fenêtre Word ou Excel. Passer d'un document ou classeur à l'autre est désormais simple, il suffit de cliquer sur leurs onglets !

Essayez Office Tab gratuitement dès maintenant !


Articles connexes :

Meilleurs outils de productivité pour Office

Kutools pour Word - Élevez votre expérience Word avec plus de 100 fonctionnalités remarquables !

🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais (Conserver le format) / Super Traduire (Conserver le format) / Rédaction IA / Correction AI...

📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter la sélection dans divers formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...

Édition de contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes du tableau / Convertir le tableau en texte...

🧹 Nettoyage sans effort : Éliminer les espaces supplémentaires / Sauts de section / Zones de texte / Liens hypertexte / Pour plus d'outils de suppression, rendez-vous dans le groupe Supprimer...

Insertion créative : Insérer des séparateurs de milliers / Cases à cocher / Boutons radio / Code QR / Code-barres / Images multiples / Découvrez plus dans le groupe Insérer...

🔍 Sélections précises : Identifier des pages spécifiques / Tableaux / Formes / Paragraphes de titre / Améliorez la navigation avec plus de fonctionnalités de sélection...

Améliorations étoilées : Naviguer vers n'importe quel emplacement / Insertion automatique de texte répétitif / Basculer entre les fenêtres de document /11 outils de conversion...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Vous voulez essayer ces fonctionnalités ? Téléchargez Kutools pour Word maintenant ! 🚀