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


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.

Veuillez noter que : 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.

Veuillez noter que : 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:



Outils de productivité Word recommandés

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

  • Des opérations compliquées et répétées peuvent être effectuées en une seconde.
  • Insérez plusieurs images sur des dossiers dans un document Word à la fois.
  • Fusionner et combiner plusieurs fichiers Word sur plusieurs dossiers en un seul avec votre ordre souhaité.
  • Divisez le document actuel en documents distincts en fonction de l'en-tête, du saut de section ou d'un autre critère.
  • Convertir des fichiers entre Doc et Docx, Docx et PDF, une collection d'outils pour les conversions et la sélection courantes, etc.
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 · 1 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 · 2 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 · 3 years ago
    Can I get the same script to run in outlook?
  • To post as a guest, your comment is unpublished.
    Tony Macelli · 3 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. · 3 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 · 2 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 · 3 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 · 3 years ago
    Thank you. Just what I needed to parse a document.
  • To post as a guest, your comment is unpublished.
    Maria · 4 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 · 4 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 · 5 years ago
    wow, its great. Thank you so much
  • To post as a guest, your comment is unpublished.
    Richie · 5 years ago
    Omg this is legendary stuff. So helpful. Thanks a lot! :-)