Skip to main content

Kutools para Office — Una Suite. Cinco Herramientas. Haz Más.

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

Author Sun Last modified

Si tienes un documento de Word largo con múltiples hipervínculos y necesitas copiarlos todos a la vez, seleccionar cada uno manualmente puede ser muy laborioso. Afortunadamente, existen métodos eficientes para extraer y copiar todos los hipervínculos o solo sus direcciones. Esta guía te presentará diferentes métodos para lograrlo rápidamente.

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

Usando VBA, puedes extraer todos los hipervínculos de un documento y copiarlos en un nuevo documento.

  1. Abre el documento de Word que contiene los hipervínculos y presiona Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
  2. Haz clic en Insertar > Módulo, luego copia y pega 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. Haz clic en el botón Ejecutar para ejecutar el código VBA. Se abrirá un nuevo documento que contendrá todos los hipervínculos del documento original.
    Document with text with hyperlinks >>> New document with only text with hyperlinks

Nota: Este método VBA solo funciona para hipervínculos basados en texto. No extrae hipervínculos incrustados en imágenes.

Extraer solo las direcciones de los hipervínculos (texto plano) a un nuevo documento usando VBA

Este método VBA extrae solo las direcciones de los hipervínculos de un documento y las pega en un nuevo documento.

  1. Abre el documento de Word y presiona Alt + F11 para abrir el editor de VBA.
  2. Haz clic en Insertar > Módulo, luego copia y pega el siguiente código VBA: 
    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. Haz clic en el botón Ejecutar Se creará un nuevo documento que contendrá solo las direcciones de los hipervínculos (texto plano).
    Document with text with hyperlinks >>> New document with only hyperlink addresses

Nota: Las direcciones de los hipervínculos extraídas pueden no aparecer en el mismo orden que en el documento original.

Copiar hipervínculos o direcciones al portapapeles usando Kutools para Word

Kutools para Word proporciona una manera sencilla de copiar todos los hipervínculos o solo sus direcciones al portapapeles con unos pocos clics.

Kutools para Word,equipado con IA 🤖, ofrece más de 100 funciones prácticas para simplificar tus tareas.
  1. Haz clic en Kutools Plus > Copiar hipervínculo.
    Copy Hyperlink button on the Kutools tab on the ribbon
  2. En el cuadro de diálogo Copiar todos los hipervínculos al portapapeles, selecciona la opción deseada.
    Copy all hyperlinks to clipboard dialog box
  3. Pega los hipervínculos copiados donde quieras presionando Ctrl + V.
  • Si seleccionas la opción Hipervínculos se copiarán tanto el texto visible como el hipervínculo.
    Text with hyperlinks pasted
  • Si seleccionas la opción Direcciones de los Hipervínculos solo se copiará la dirección del hipervínculo como texto plano.
    Hyperlinks addresses pasted
Kutools para Word es el complemento definitivo para Word que agiliza tu trabajo y potencia tus habilidades de procesamiento de documentos. ¡Consíguelo ahora!

Demostración: Copiar Todos los Hipervínculos en un Documento de Word

Descubra la pestaña Kutools / Kutools Plus en este video de Kutools for Word. Disfrute de 100+ funciones y utilidades de IA permanentemente gratuitas. ¡Descárguelo ahora!

¡Navegación y edición con pestañas para varios documentos de Word/libros de Excel, tal como en Chrome y Edge!

Al igual que al navegar por varias páginas web en Chrome, Safari y Edge, Office Tab te permite abrir y gestionar múltiples documentos de Word o libros de Excel en una sola ventana de Word o Excel. ¡Cambiar entre documentos o libros ahora es sencillo con solo hacer clic en sus pestañas!

¡Prueba Office Tab gratis ahora!

Artículos Relacionados:

Las mejores herramientas de productividad para Office

Kutools para Word - ¡Mejora tu experiencia en Word con más de 100 funciones extraordinarias!

🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir (Mantener Formato) / Super Traducir (Mantener Formato) / Redacción AI / Revisión con IA...

📘 Maestría en Documentos: Dividir páginas / Combinar documentos / Exportar rango en varios formatos (PDF/TXT/DOC/HTML...) / Conversión por lote a PDF...

✏ Edición de cuerpo: Buscar y reemplazar en lote en múltiples archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tablas / Convertir tabla a texto...

🧹 Limpieza sin esfuerzo: Elimina espacios extras / Saltos de sección / Cuadro de texto / Hipervínculos / Descubre más herramientas de eliminación en el grupo Eliminar...

➕ Inserciones creativas: Insertar delimitador de miles / Casilla de Verificación / Botón de Opción / Código QR / Código de Barras / Varias imágenes / Descubre más en el grupo Insertar...

🔍 Selecciones precisas: Selecciona páginas específicas / Tablas / Forma / Párrafo de Encabezado / Mejora la navegación con más funciones de Seleccionar...

⭐ Mejoras destacadas: Navega a cualquier rango / Inserta automáticamente texto repetitivo / Cambia entre ventanas de documento /11 herramientas de Conversión...

🌍 Compatible con más de40 idiomas: Usa Kutools en tu idioma preferido: ¡soporta inglés, español, alemán, francés, chino y más de40 idiomas adicionales!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 ¿Quieres probar estas funciones? ¡Descarga Kutools para Word ahora! 🚀
 

✨ Kutools para Office – ¡Una sola instalación, cinco potentes herramientas!

Incluye Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools para Word · Kutools para PowerPoint

📦 Obtén las5 herramientas en una sola suite | 🔗 Integración perfecta con Microsoft Office | ⚡ Ahorra tiempo y aumenta tu productividad al instante

Las mejores herramientas de productividad para Office

Kutools para Word - ¡Más de 100 herramientas para Word!

Descarga gratuita Comprar ahora Más información sobre Kutools