Comment sélectionner et copier tous les hyperliens d'un document Word?
Dans certains cas, vous avez un long document avec plusieurs hyperliens existant dans, et il vous suffit de copier tous les hyperliens à la fois à partir de ce document, puis de les coller dans un autre. Existe-t-il un moyen de les copier rapidement tous à la fois au lieu de les copier un par un?
Copiez tous les hyperliens avec VBA
Extraire toutes les adresses des hyperliens avec VBA
Copiez tous les hyperliens ou uniquement les adresses dans le presse-papiers avec Kutools for Word
Copiez tous les hyperliens avec VBA
1. Ouvrez le document Word dont vous souhaitez copier les hyperliens et appuyez sur Alt + F11 ouvrir le Fenêtre d'application basée sur Microsoft Visual.
2. Cliquez insérer > Moduleet copiez le VBA suivant dans la fenêtre.
VBA: copier tous les hyperliens
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 l' Courir bouton pour exécuter le code VBA. Ensuite, tous les hyperliens sont copiés dans un nouveau document. Vous pouvez enregistrer le nouveau document ultérieurement. Vous pouvez voir le résultat comme suit.
![]() |
![]() |
![]() |
Remarque: Ce VBA ne peut s'exécuter que lorsque tous les liens hypertexte sont liés au mot, s'il y a des images avec des liens hypertexte, ce code VBA ne peut pas fonctionner.
Extraire toutes les adresses d'hyperliens avec VBA
1. Ouvrez le document Word dont vous souhaitez extraire les hyperliens et appuyez sur Alt + F11 ouvrir le Fenêtre d'application basée sur Microsoft Visual.
2. Cliquez insérer > Moduleet copiez le VBA suivant dans la fenêtre.
VBA: extraire toutes les adresses des hyperliens
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 l' Courir bouton pour exécuter le code VBA. Ensuite, toutes les adresses des liens hypertextes sont extraites dans un nouveau document, vous pouvez l'enregistrer plus tard.
![]() |
![]() |
![]() |
Remarque: L'adresse des hyperliens d'extrait n'est pas dans l'ordre d'origine.
Copiez tous les hyperliens ou uniquement les adresses dans le presse-papiers avec Kutools for Word
Si vous souhaitez copier tous les liens hypertexte ou uniquement les adresses dans le presse-papiers à partir d'un document Word facilement et rapidement, le Copier le lien hypertexte utilité de Kutools for Word peut vous faire cette faveur.
Kutools for Word, avec plus de fonctions pratiques, facilite votre travail. | ||
Après l'installation de Kutools for Word, veuillez faire comme ci-dessous:(Téléchargement Gratuit Kutools for Word Maintenant!)
1. Cliquez Kutools Plus > Copier le lien hypertexte.
2. Dans la boîte de dialogue contextuelle, choisissez une option selon vos besoins.
Maintenant, sélectionnez un emplacement où vous souhaitez placer les hyperliens, appuyez sur Ctrl + V pour les coller.
Copier et coller des hyperliens |
![]() |
Copier et coller l'adresse du lien hypertexte |
![]() |
Démo: Copier le lien hypertexte
Navigation par onglets et édition de plusieurs documents Word / classeurs Excel comme Firefox, Chrome, Internet Explore 10! |
Vous avez peut-être l'habitude d'afficher plusieurs pages Web dans Firefox/Chrome/IE et de basculer entre elles en cliquant facilement sur les onglets correspondants. Ici, Office Tab prend en charge un traitement similaire, qui vous permet de parcourir plusieurs documents Word ou classeurs Excel dans une fenêtre Word ou une fenêtre Excel, et de basculer facilement entre eux en cliquant sur leurs onglets. |
![]() |
Articles relatifs:
- Insérer, supprimer et répertorier tous les hyperliens du document actuel dans Word
- Insérer plusieurs liens hypertexte vers un document dans Word
- Supprimer tous les hyperliens dans Word
Meilleurs outils de productivité bureautique
Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !
Plongez dans les fonctionnalités mises en évidence ci-dessous ou cliquez ici pour découvrir toute la puissance de Kutools for Word.
(I.e. Maîtrise des documents: Pages divisées / Fusionner des documents / Exporter la sélection dans différents formats (PDF/TXT/DOC/XLSX) / Conversion par lots en PDF / Exporter des pages sous forme d'images / Imprimer plusieurs fichiers à la fois
✏ Édition du contenu: Rechercher et remplacer par lots sur plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et les colonnes du tableau / Convertir le tableau en texte
🧹 Nettoyage sans effort: Balayez Espaces supplémentaires / Sauts de section / Tous les en-têtes / Boîtes de texte / Liens hypertextes / Pour plus d'outils de suppression, rendez-vous sur notre groupe Supprimer
➕ Insertions créatives: insérer Mille séparateurs / Cases à cocher / Boutons radio / QR Code / Code barres / Tableau des lignes diagonales / Légende de l'équation / Légende / Légende de la table / Plusieurs images / Découvrez-en plus dans notre groupe d'insertion
🔍 Sélections de précision: Identifiez des pages spécifiques / les tables / formes / paragraphes de titre / Naviguez en toute simplicité grâce à notre groupe Select
⭐ Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit / insertion automatique de texte répétitif / basculer de manière transparente entre les fenêtres de document / 11 outils de conversion
Transformez vos tâches Word avec Kutools. 👉 Téléchargez avec un essai de 30 jours maintenant 🚀.












