Note: The other languages of the website are Google-translated. Back to English

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 liens hypertexte ou uniquement les adresses dans le presse-papiers avec Kutools for Wordbonne idée3


flèche bleue bulle droite 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' course 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.


flèche bleue bulle droite 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' course 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.


flèche bleue bulle droite Copiez tous les liens hypertexte 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 pour Word peut vous faire cette faveur.

Kutools pour Word, avec plus de 100 fonctions pratiques, facilite votre travail. 

Après l'installation de Kutools for Word, procédez comme suit:(Téléchargez gratuitement Kutools pour Word maintenant!)

1. Cliquez Kutools Plus > Copier le lien hypertexte.
doc copier les hyperliens 1

2. Dans la boîte de dialogue contextuelle, choisissez une option selon vos besoins.
doc copier les hyperliens 2

Maintenant, sélectionnez un emplacement où vous souhaitez placer les hyperliens, appuyez sur Ctrl + V pour les coller.

Copier et coller des hyperliens
doc copier les hyperliens 3
Copier et coller l'adresse du lien hypertexte
doc copier les hyperliens 4

Navigation par onglets et édition de plusieurs documents Word / classeurs Excel comme Firefox, Chrome, Internet Explore 10!

Vous pouvez être familier pour afficher plusieurs pages Web dans Firefox / Chrome / IE, et 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 Excel, et de basculer facilement entre eux en cliquant sur leurs onglets.
Cliquez pour un essai gratuit d'Office Tab!

Parcourez plusieurs documents Word dans une seule fenêtre avec Firefox

Articles relatifs:


Outils de productivité Word recommandés

 

Kutools For Word - Plus de 100 fonctionnalités avancées pour Word, économisez 50% de votre temps

  • Les opérations compliquées et répétées peuvent être effectuées une seule fois en quelques secondes.
  • Insérez simultanément plusieurs images dans des dossiers dans un document Word.
  • Fusionner et combiner plusieurs fichiers Word dans des dossiers en un seul avec l'ordre souhaité.
  • Divisez le document actuel en documents séparés selon l'en-tête, le saut de section ou d'autres critères.
  • Convertissez des fichiers entre Doc et Docx, Docx et PDF, collection d'outils pour les conversions et la sélection courantes, etc.
Commentaires (16)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Omg c'est un truc légendaire. Tellement utile. Merci beaucoup! :-)
Ce commentaire a été minimisé par le modérateur sur le site
Wow c'est génial. Merci beaucoup
Ce commentaire a été minimisé par le modérateur sur le site
il demande "Erreur de compilation: erreur de syntaxe" S'il vous plaît aidez-moi, j'ai besoin de faire beaucoup de travail en utilisant ce .Répondez dès que possible
Ce commentaire a été minimisé par le modérateur sur le site
En effet! UN an plus tard, j'ai des problèmes similaires et je suis totalement bluffé par votre merveilleuse aide !! Que Dieu vous bénisse!!
Ce commentaire a été minimisé par le modérateur sur le site
Merci. Juste ce dont j'avais besoin pour analyser un document.
Ce commentaire a été minimisé par le modérateur sur le site
Excellent! Cela m'a aidé à extraire certains liens d'un fichier html que j'ai ouvert avec Word (Excel supprimait certains liens). Voici le code modifié afin qu'un fichier csv puisse être créé et utilisé ultérieurement. [quote]SubGetAllHyperlinks() ' Updateby20160504 ' https://www.extendoffice.com/documents/word/1411-word-select-copy-all-hyperlinks.html+&cd=1&hl=en&ct=clnk&gl=us<br /> 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.InsertAfter ( oLink.TextToDisplay) rng.InsertAfter ("", ") rng.InsertAfter (oLink.Address) rng.InsertAfter (vbCrLf) Next docNew.Activate Application.ScreenUpdating = True Application.ScreenRefresh End Sub[/quote]
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup pour ce scénario. Cela m'a aidé à extraire des liens 5K. Merci beaucoup.
Ce commentaire a été minimisé par le modérateur sur le site
Ce code me convient parfaitement. Les deux exemples dans la description de l'article ne le font pas. Merci beaucoup et mes meilleures salutations.
Ce commentaire a été minimisé par le modérateur sur le site
C'est super ! Merci beaucoup. Quelles modifications dois-je apporter à GetAllHyperlinks() pour le cas suivant ? -- le document original contient à la fois du texte normal et des liens -- résultat recherché : même document mais chaque lien est suivi d'un espace et de l'URL Merci
Ce commentaire a été minimisé par le modérateur sur le site
Puis-je exécuter le même script dans Outlook ?
Ce commentaire a été minimisé par le modérateur sur le site
Hauteur de légendaire, merci un million
Ce commentaire a été minimisé par le modérateur sur le site
Je suis ébahi. C'est de l'or. Vous m'avez épargné une tonne de travail.
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup! C'était exactement ce que je cherchais !
Ce commentaire a été minimisé par le modérateur sur le site
Impressionnant ! Millón de gracias.Me a acercado a la solution muchísimo pero si fuera possible copier en la fila 1 de un excel ya creado sería impresionante. Es pour appliquer une formule qui sépare les liens du texte. Un salut et un million de remerciements !!!

Ce commentaire a été minimisé par le modérateur sur le site
Comment pouvons-nous exporter des hyperliens de fichiers Word et son affichage de texte vers un fichier Excel ? 
Ce commentaire a été minimisé par le modérateur sur le site
Bonne information! Il m'a aidé à extraire des liens d'un fichier html que j'avais ouvert dans Word. Se référer au cookie clicker est une idée nouvelle.
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés