¿Cómo seleccionar y copiar todos los hipervínculos de un documento de Word?

Al trabajar con un documento largo de Word que contiene numerosos hipervínculos —ya sea a sitios web, documentos u ubicaciones de red—, es posible que necesite copiarlos todos para tareas como auditorías, compartir información, compilar referencias o migrar contenido. Seleccionar cada hipervínculo manualmente no solo resulta ineficiente, sino que también puede provocar errores y omisiones. Afortunadamente, existen varios métodos prácticos para extraer y copiar todos los hipervínculos, ya sea el texto visible con enlaces o únicamente las direcciones de los hipervínculos, ahorrándole una gran cantidad de tiempo. Este tutorial presenta distintos enfoques —mediante funciones integradas de Word, código VBA y Kutools para Word— para ayudarle a recopilar hipervínculos de forma eficiente según sus necesidades.

---

Copiar todos los hipervínculos a un nuevo documento mediante VBA

Si necesita extraer tanto el texto visible como el enlace de cada hipervínculo en un documento de Word, el uso de código VBA puede recopilar automáticamente todos los hipervínculos en un nuevo documento, simplificando considerablemente su organización y compartición. Esta solución resulta ideal cuando requiere un registro con formato de todos los hipervínculos o desea revisar fácilmente el contexto junto con los enlaces reales. Es especialmente útil si su documento contiene cientos de hipervínculos en el cuerpo del texto o en tablas.

1. Abra el documento de Word que contiene los hipervínculos. Pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de VBA, haga clic en Insertar>Módulo. Copie y pegue el siguiente código VBA en la ventana del módulo:

   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. Haga clic en el botón Ejecutar o pulse F5 para ejecutar el código VBA. El código generará automáticamente un nuevo documento de Word que contendrá todos los hipervínculos del documento original. A continuación, podrá guardarlo o editarlo según sus necesidades.

   >>>

---

Extraer únicamente las Dirección del hipervínculo (Texto sin formato) a un nuevo documento mediante VBA

En situaciones en las que solo necesita las URL de los hipervínculos (es decir, sus direcciones) sin el texto visible ni formato alguno —por ejemplo, al elaborar una lista de referencias o migrar datos—, un método VBA específico puede extraer exclusivamente las direcciones y pegarlas en un nuevo documento como texto sin formato. Esta solución es ideal para catalogar o exportar hipervínculos en tareas técnicas, auditorías o integraciones con sistemas web y bases de datos.

1. Abra su documento de Word y pulse Alt + F11 para abrir el editor de VBA.
2. Haga clic en Insertar>Módulo. Copie y pegue el siguiente código VBA en el módulo:

   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. Haga clic en Ejecutar o pulse F5. El script VBA escaneará su documento y generará uno nuevo con todas las direcciones de los enlaces en formato de texto sin formato. Este nuevo documento es fácil de copiar, exportar o usar en otro software.

   >>>

---

Copiar Copiar hipervínculo o direcciones en el portapapeles mediante Kutools para Word

Kutools para Word ofrece una función intuitiva para copiar al instante todos los hipervínculos o únicamente sus direcciones al portapapeles, simplificando un proceso que, de otro modo, requeriría varios pasos o conocimientos de código. Este método resulta especialmente útil si necesita integrar enlaces rápidamente en correos electrónicos, páginas web u hojas de cálculo, y es ideal para usuarios de cualquier nivel.

1. Vaya a la pestaña KUTOOLS PLUSen la Cinta de opciones de Word, y luego haga clic en Copiar hipervínculo.

   

2. En el cuadro de diálogo Copiar Todos los Hipervínculos al Portapapeles, elija si desea copiar los Copiar hipervínculo junto con sus Mostrar Texto (las palabras visibles vinculadas en su documento) o únicamente las Dirección del hipervínculo (las URL).

   

3. Los hipervínculos o direcciones seleccionados se copiarán en el portapapeles. Ahora puede pegarlos en cualquier lugar —por ejemplo, en un documento nuevo, un correo electrónico o un navegador— pulsando Ctrl + V.

---

---

Demostración: Copiar todos los hipervínculos en un documento de Word

---

---

Artículos relacionados:

• Insertar, eliminar y listar todos los hipervínculos de Documento Actual en Word
• Insertar varios hipervínculos en un documento en Word
• Eliminar todos los hipervínculos en Word