Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

Dans certains cas, vous disposez d'un document long contenant plusieurs liens hypertexte. Il vous suffit de copier tous les liens hypertexte à la fois à partir de ce document, puis de les coller dans un autre document. Est-il possible de copier rapidement tous en même temps au lieu de les copier un par un?

Copiez tous les liens hypertexte avec VBA

Extraire toutes les adresses de liens hypertextes avec VBA

Copiez tous les liens hypertexte ou uniquement les adresses dans le Presse-papiers avec Kutools for Wordbonne idée3

Kutools for Word: Ajouter 100 Nouvelles fonctionnalités avancées to Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office Tab: Activer Édition à onglets et navigation dans Office, Tout comme Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu for Office: Apportez l'ancien look du bureau 2003 dans Office 2007, 2010, 2013, 2016 et 2019.

flèche bleue droite bulle Copiez tous les liens hypertexte avec VBA

1. Ouvrez le document Word dont vous souhaitez copier les liens hypertexte et appuyez sur Alt + F11 ouvrir le Fenêtre d'application Microsoft Visual Based.

2. Cliquez insérer > Moduleet copiez le VBA suivant dans la fenêtre.

VBA: Copier tous les liens hypertexte

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 plus tard. Vous pouvez voir le résultat comme suit.

Remarque: Ce VBA ne peut fonctionner que lorsque tous les hyperliens sont liés avec un mot, s'il y a des images avec des liens hypertexte, ce code VBA ne peut pas fonctionner.


flèche bleue droite bulle Extraire tous les liens hypertexte adressés par VBA

1. Ouvrez le document Word dont vous souhaitez extraire les liens hypertexte et appuyez sur Alt + F11 ouvrir le Fenêtre d'application Microsoft Visual Based.

2. Cliquez insérer > Moduleet copiez le VBA suivant dans la fenêtre.

VBA: Extraire toutes les adresses d'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 d'hyperliens sont extraites dans un nouveau document, vous pouvez l'enregistrer plus tard.

Remarque: Les adresses d'hyperliens d'extrait ne sont pas dans l'ordre original.


flèche bleue droite bulle Copiez tous les liens hypertexte ou uniquement les adresses dans le Presse-papiers avec Kutools for Word

Si vous souhaitez copier facilement et rapidement tous les liens hypertexte ou uniquement les adresses dans le presse-papiers, le Copier l'hyperlien utilité de Kutools for Word peut vous faire cette faveur.

Kutools for Word, avec plus de 100 fonctions pratiques, rend vos travaux plus faciles.
Aller à Télécharger
Jours d'essai gratuit 45

Après l'installation de Kutools pour Word, s'il vous plaît faire comme ci-dessous:(Téléchargement gratuit Kutools pour Word maintenant!)

1. Cliquez Kutools Plus > Copier l'hyperlien.
hyperliens de copie de doc 1

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

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

Copier et coller des hyperliens
hyperliens de copie de doc 3
Copier et coller l'adresse du lien hypertexte
hyperliens de copie de doc 4

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

Vous pouvez être familier pour voir plusieurs pages Web dans Firefox / Chrome / IE, et basculer entre eux en cliquant sur les onglets correspondants facilement. Ici, l'onglet Office prend en charge le 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.
Cliquez pour l'essai gratuit de l'onglet Office!

Parcourir plusieurs documents Word dans une fenêtre en tant que Firefox

Articles relatifs:



Kutools for Word

Plus que des fonctions avancées 100 pour Word 2003, 2007, 2010, 2013, 2016 et 2019

coup-kutools-700-225-kte

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions

Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Fabian · 11 months ago
    Thank you so much! This was exactly what I was looking for!
  • To post as a guest, your comment is unpublished.
    Adrine Bio · 1 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 · 2 years ago
    [b]Height of Legendary, thanks a million[/b]
  • To post as a guest, your comment is unpublished.
    Shadab · 2 years ago
    Can I get the same script to run in outlook?
  • To post as a guest, your comment is unpublished.
    Tony Macelli · 2 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