Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
S'inscrire  \/ 
x

or

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.

A Noter: 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.

A Noter: 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.
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Satish P · 23 days ago
    How can we export word file hyperlinks and it's Text display to an excel file ? 
  • To post as a guest, your comment is unpublished.
    Gon · 6 months ago
    Impresionante! Millón de gracias.
    Me has acercado a la solución muchísimo pero si fuera posible copiarlos en la fila 1 de un excel ya creado sería impresionante. Es para aplicarles una formula que separa los links del texto.
    Un saludo y un millón de gracias!!!

  • To post as a guest, your comment is unpublished.
    Fabian · 3 years ago
    Thank you so much! This was exactly what I was looking for!
  • To post as a guest, your comment is unpublished.
    Adrine Bio · 4 years ago
    I am amazed. That's gold. You saved me a ton of work.
  • To post as a guest, your comment is unpublished.
    manny kuyr · 5 years ago
    [b]Height of Legendary, thanks a million[/b]
  • To post as a guest, your comment is unpublished.
    Shadab · 5 years ago
    Can I get the same script to run in outlook?
  • To post as a guest, your comment is unpublished.
    Tony Macelli · 5 years ago
    This is great stuff! Many thanks.
    What changes do I need to make to GetAllHyperlinks() for the following case?

    -- original document contains both normal text and links
    -- result wanted: same document but each link is followed by a space and the URL

    Thanks
  • To post as a guest, your comment is unpublished.
    Sanjay K. · 5 years ago
    Excellent! It helped me extract some links from an html file that I opened with Word (Excel was discarding some links). Here is the modified code so that a csv file could be built that could be further used.

    [quote]SubGetAllHyperlinks()
    ' Updateby20160504
    ' https://www.extendoffice.com/documents/word/1411-word-select-copy-all-hyperlinks.html+&cd=1&hl=en&ct=clnk&gl=us
    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]
    • To post as a guest, your comment is unpublished.
      Pompeia · 4 years ago
      This code works fine to me. The two on examples in the article description don't. Thanks a lot and my best regards.
    • To post as a guest, your comment is unpublished.
      Rashesh Bosamiya · 5 years ago
      Thank you very much for this script.
      This helped me to extract 5K links.

      Thank you very much.
  • To post as a guest, your comment is unpublished.
    Dean · 5 years ago
    Thank you. Just what I needed to parse a document.
  • To post as a guest, your comment is unpublished.
    Maria · 6 years ago
    Indeed! ONE year later, am having similar issues and totally bawled over by your wonderful help!!
    God Bless YOu!!
  • To post as a guest, your comment is unpublished.
    sid · 6 years ago
    it is prompting " Compile Error: Syntax Error"
    Please help me, I need to do a lot of work using this .Reply asap
  • To post as a guest, your comment is unpublished.
    Mert · 7 years ago
    wow, its great. Thank you so much
  • To post as a guest, your comment is unpublished.
    Richie · 7 years ago
    Omg this is legendary stuff. So helpful. Thanks a lot! :-)