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 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.
- Ouvrez le document Word contenant les liens hypertextes et appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
- 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
- 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.
>>>
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.
- Ouvrez le document Word et appuyez sur Alt + F11 pour ouvrir l'éditeur VBA.
- 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
- Cliquez sur le bouton Exécuter Un nouveau document sera créé contenant uniquement les adresses des liens hypertextes (texte brut).
>>>
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.
- Cliquez sur Kutools Plus > Copier le lien hypertexte.
- Dans la boîte de dialogue Copier tous les liens hypertextes dans le presse-papiers, sélectionnez l'option souhaitée.
- 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.
- Si vous sélectionnez l'option Adresses des liens hypertextes seule l'adresse du lien hypertexte sera copiée sous forme de texte brut.
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 ! |
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...

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