Annemieke a un document assez long et qui comprend un bon nombre d’hyperliens. Elle aimerait copier tous ces hyperliens (et uniquement les hyperliens) dans un tout nouveau document afin d’en avoir une liste en un seul endroit. Elle se demande s’il existe un moyen simple de procéder.

La seule façon de faire est d’utiliser une macro. (Les suggestions qui incluent l’utilisation de Rechercher et de remplacer ou la recherche de texte avec des styles spécifiques ne copieront que le texte du lien, pas le lien hypertexte réel.) La clé de la macro consiste à travailler avec la collection Hyperlinks, en accordant une attention particulière aux propriétés TextToDisplay et Address de chaque membre de la collection.

Sub PullHyperlinks()

Dim Src As Document     Dim Link As Hyperlink     Dim iDoDisplay As Integer

Set Src = ActiveDocument     If Src.Hyperlinks.Count > 0 Then         iDoDisplay = MsgBox("Include display text for links?", vbYesNo)



Documents.Add DocumentType:=wdNewBlankDocument         For Each Link In Src.Hyperlinks             If iDoDisplay = vbYes Then                 Selection.TypeText Link.TextToDisplay                 Selection.TypeText vbTab             End If             Selection.TypeText Link.Address             Selection.TypeParagraph         Next Link     Else         MsgBox "There are no hyperlinks in this document."

End If End Sub

La macro vérifie d’abord s’il existe des hyperliens dans le document actuel. S’il y en a, alors le processus de retrait peut se poursuivre; s’il n’y en a pas, un message s’affiche à cet effet.

En supposant qu’il existe des hyperliens dans le document, l’utilisateur est invité à indiquer si le nouveau document doit contenir le texte d’affichage des liens. La macro crée ensuite un nouveau document et parcourt chaque membre de la collection Hyperlinks. La valeur de la propriété TextToDisplay est ajoutée au nouveau document (le cas échéant) suivie de la valeur de la propriété Address.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (13549) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365.