Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

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

Author Sun Last modified

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 – Optimisez votre expérience Word avec plus de 100 fonctionnalités remarquables !

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

📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter une solution dans différents formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...

✏ Modification du texte : Recherche et remplacement en lot sur plusieurs fichiers / Redimensionner toutes les images / Transposer le tableau lignes et Colonnes / Convertir le tableau en texte...

🧹 Nettoyage sans effort : Éliminez les espaces supplémentaires / Sauts de section / Zone 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 / Case à cocher / Bouton radio / Code QR / Code-barres / Plusieurs images / Découvrez davantage dans le groupe Insérer...

🔍 Sélection précise : Ciblez des pages spécifiques / Tableaux / Forme / Paragraphe de titre / Améliorez la navigation avec plus de fonctions de Sélectionner...

⭐ Optimisations exclusives : Accéder à n’importe quelle plage / Insérer automatiquement du texte répétitif / Basculer entre les fenêtres du document /11 outils de conversion...

🌍 Prend en charge plus de40 langues : Utilisez Kutools dans la langue de votre choix – Prise en charge de l’Anglais, de l’Espagnol, de l’Allemand, du Français, du Chinois et de bien d’autres encore !

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Envie d’essayer ces fonctionnalités ? Téléchargez Kutools pour Word dès maintenant ! 🚀
 

✨ Kutools pour Office – Une installation, cinq outils puissants !

Inclus Office Tab Pro · Kutools pour Excel · Kutools pour Outlook · Kutools pour Word · Kutools pour PowerPoint

📦 Obtenez les5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagnez du temps et augmentez votre productivité instantanément

Meilleurs outils de productivité pour Office

Kutools pour Word – 100+ outils pour Word

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