2 façons rapides d'extraire par lots tous les hyperliens de votre document Word

Cet article va vous montrer 2 façons rapides d'extraire par lots tous les hyperliens de votre document Word, afin de suivre les liens.

De temps en temps, des centaines de liens hypertexte peuvent être dispersés dans un document Word. Dans ce scénario, si vous devez suivre un lien spécifique, vous devez d'abord parcourir le document pour le trouver, ce qui peut être très pénible dans un long fichier.

Cependant, si vous les exportez dans un nouveau document, les choses peuvent devenir beaucoup plus faciles. Voici nos solutions.

Méthode 1 : Utiliser la fonction "Rechercher"

1. Tout d'abord, cliquez sur l'onglet "Accueil" puis sur le bouton en forme de flèche près de la commande "Rechercher".
2. Dans le menu déroulant, choisissez "Recherche avancée" pour ouvrir la boîte de dialogue "Rechercher et remplacer".
3. Cliquez ensuite sur le bouton "Plus" et cliquez sur "Formater".
4. Choisissez "Style" pour ouvrir la boîte "Rechercher un style".
5. Sélectionnez "Lien hypertexte" et cliquez sur "OK".
6. Cliquez ensuite sur "Rechercher dans" et choisissez "Document principal".

Vous pouvez voir tous les hyperliens dans la sélection maintenant. Cependant, si vous les copiez et les collez dans un nouveau document, vous constaterez que les liens perdent leur mise en forme et deviennent des textes bruts.

Actuellement, Microsoft n'a pas de solution à ce problème. Vous devez donc reconvertir manuellement les textes bruts en hyperliens. Voici notre article précédent, énumérant différentes manières que vous pouvez suivre : 5 façons de convertir des textes d'URL en liens hypertexte dans votre document Word

En raison de cette lacune, nous vous recommandons une autre méthode, également effectuée à l'aide de la fonction "Rechercher". Veuillez vous référer à la section "Rechercher tous les hyperliens dans un document" dans cet article : Comment rechercher, modifier et supprimer des hyperliens dans votre document Word

Après avoir trouvé tous les hyperliens, vous effectuez le travail "Copier" et "Coller" pour les exporter.

Méthode 2 : exécuter les codes VBA

1. Avant toute chose, appuyez sur « Alt+F11 » pour ouvrir l'éditeur VBA.
2. Cliquez ensuite sur "Insérer" et choisissez "Module" pour en créer un nouveau sous le projet "Normal".
3. Ensuite, double-cliquez sur le module pour ouvrir l'espace d'édition et collez-y les codes suivants :

Sub ExtractAllhyperlinksInDoc()
  Dim objDoc As Document, objNewDoc As Document
  Dim objHyperlink As Hyperlink
 
  '  Initialization
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
 
  '  Copy hyperlinks and paste them to a new document.
  With objDoc
    For Each objHyperlink In .Hyperlinks
      objHyperlink.Range.Copy
      objNewDoc.Activate
      With Selection
        .Paste
        .InsertParagraph
        .Collapse Direction:=wdCollapseEnd
      End With
    Next objHyperlink
  End With
End Sub

4. Enfin, cliquez sur le bouton "Exécuter".

Maintenant, un nouveau document sera ouvert et tous les hyperliens y seront cliquables.

De plus, au cas où il y aurait un lot de fichiers à traiter, vous pouvez exécuter cette macro ci-dessous :

Sub ExtractHyperlinksFromMultiDoc()
  Dim objDoc As Document, objNewDoc As Document
  Dim objHyperlink As Hyperlink
  Dim strFile As String, strFolder As String
 
  '  Initialization
  Set objNewDoc = Documents.Add
  strFolder = InputBox("Enter folder path here: ", "Folder path")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
 
  '  Open each file in the folder to extract hyperlinks and past them to a new document.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
 
    With objDoc
      For Each objHyperlink In .Hyperlinks
        objHyperlink.Range.Copy
        objNewDoc.Activate
        With Selection
          .Paste
          .InsertParagraph
          .Collapse Direction:=wdCollapseEnd
        End With
      Next objHyperlink
    End With
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

N'oubliez pas d'organiser d'abord tous les documents dans un dossier. Exécutez ensuite la macro ci-dessus pour obtenir une zone de saisie. Entrez le chemin du dossier et cliquez sur "OK".

Tous les hyperliens sont maintenant disponibles dans un nouveau document.

Prêt pour les erreurs de mot

Peu importe à quel point nous sommes réticents à rencontrer une erreur Word. Il est inévitable d'en souffrir de temps en temps. Notre suggestion est lorsque Word s'effondre, en choisissant un expert Réparation de mots outil. Laissez tout au professionnel.

Introduction de l'auteur:

Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris xls dommage et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com