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

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 les liens hypertextes ou leurs adresses dans le presse-papiers à l'aide de Kutools pour Word

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.

   >>>

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).

   >>>

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.

1. Cliquez sur Kutools Plus > Copier le lien hypertexte.

   

2. Dans la boîte de dialogue Copier tous les liens hypertextes dans le presse-papiers, sélectionnez l'option souhaitée.

   

3. Collez les liens hypertextes copiés où vous le souhaitez en appuyant sur Ctrl + V.

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

Articles connexes :

• Insérer, supprimer et lister tous les liens hypertextes du document actuel dans Word
• Insérer plusieurs liens hypertextes dans un document Word
• Supprimer tous les liens hypertextes dans Word

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...

👉 Vous voulez essayer ces fonctionnalités ? Téléchargez Kutools pour Word maintenant ! 🚀

Téléchargement gratuit     Acheter maintenant     En savoir plus sur Kutools pour Word

 

Meilleurs outils de productivité pour Office

Kutools pour Word - 100+ outils pour Word

• 🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais / Super Traduire / Rédaction IA / Correction AI
• 📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Conversion en lot vers PDF
• ✏ Édition de contenu : Recherche et remplacement en lot / Redimensionner toutes les images
• 🧹 Nettoyage sans effort : Supprimer les espaces supplémentaires / Supprimer les sauts de section
• ➕ Insertion créative : Insérer des séparateurs de milliers / Insérer des cases à cocher / Créer des codes QR

Téléchargement gratuit Acheter maintenant En savoir plus sur Kutools