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 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' 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.

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.

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.

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.

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 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!

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

Outils de productivité Word recommandés