2 formas rápidas de extraer por lotes todos los hipervínculos de su documento de Word

Este artículo le mostrará 2 formas rápidas de extraer por lotes todos los hipervínculos de su documento de Word, para seguir los enlaces.

De vez en cuando, puede haber cientos de hipervínculos esparcidos por todo un documento de Word. En este escenario, si necesita seguir un enlace específico, debe navegar a través del documento para encontrarlo primero, lo que puede ser una molestia en un archivo largo.

Sin embargo, si los exporta a un nuevo documento, las cosas pueden ser mucho más fáciles. Aquí están nuestras soluciones.

Método 1: utilizar la función "Buscar"

1. En primer lugar, haga clic en la pestaña "Inicio" y luego en el botón de flecha cerca del comando "Buscar".
2. En el menú desplegable, elija "Búsqueda avanzada" para abrir el cuadro de diálogo "Buscar y reemplazar".
3. A continuación, haga clic en el botón "Más" y haga clic en "Formato".
4. Elija "Estilo" para abrir el cuadro "Buscar estilo".
5. Seleccione "Hipervínculo" y haga clic en "Aceptar".
6. Luego haga clic en "Buscar en" y seleccione "Documento principal".

Ahora puede ver todos los hipervínculos en la selección. Sin embargo, si los copia y pega en un nuevo documento, verá que los enlaces pierden su formato y se convierten en texto sin formato.

Actualmente, Microsoft no tiene una solución para este problema. Por lo tanto, debe volver a convertir los textos sin formato en hipervínculos manualmente. Aquí está nuestro artículo anterior, que enumera varias formas que puede seguir: 5 formas de convertir textos URL en hipervínculos en su documento de Word

Debido a esta deficiencia, le recomendamos otra forma, también realizada con la ayuda de la función "Buscar". Consulte la sección "Buscar todos los hipervínculos en un documento" en este artículo: Cómo buscar, cambiar y eliminar hipervínculos en su documento de Word

Después de encontrar todos los hipervínculos, realice el trabajo de "Copiar" y "Pegar" para exportarlos.

Método 2: ejecutar códigos VBA

1. En primer lugar, pulse “Alt + F11” para abrir el editor de VBA.
2. A continuación, haga clic en "Insertar" y elija "Módulo" para crear uno nuevo en el proyecto "Normal".
3. Luego haga doble clic en el módulo para abrir el espacio de edición y pegue allí los códigos siguientes:

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. Por último, haga clic en el botón "Ejecutar".

Ahora habrá un nuevo documento abierto y se podrá hacer clic en todos los hipervínculos allí.

Además, en caso de que sea necesario procesar un lote de archivos, puede ejecutar esta macro a continuación:

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

Recuerde organizar primero todos los documentos en una carpeta. Luego ejecute la macro anterior para obtener un cuadro de entrada. Introduzca la ruta de la carpeta y haga clic en "Aceptar".

Todos los hipervínculos ahora están disponibles en un nuevo documento.

Listo para errores de palabras

No importa lo reacios que seamos a encontrar un error de Word. Es inevitable sufrir esto de vez en cuando. Nuestra sugerencia es cuando Word colapsa, eligiendo un competente Reparación de palabras herramienta. Déjelo todo al profesional.

Introducción del autor:

Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo xls daño y pdf reparar productos de software. Para más información visite www.datanumen.com