¿Cómo seleccionar y copiar todos los hipervínculos de un documento de Word?
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.
- Abre el documento de Word que contiene los hipervínculos y presiona Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
- 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
- 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.
>>>
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.
- Abre el documento de Word y presiona Alt + F11 para abrir el editor de VBA.
- 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
- Haz clic en el botón Ejecutar Se creará un nuevo documento que contendrá solo las direcciones de los hipervínculos (texto plano).
>>>
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.
- Haz clic en Kutools Plus > Copiar hipervínculo.
- En el cuadro de diálogo Copiar todos los hipervínculos al portapapeles, selecciona la opción deseada.
- 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.
- Si seleccionas la opción Direcciones de los Hipervínculos solo se copiará la dirección del hipervínculo como texto plano.
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! |
Artículos Relacionados:
- Insertar, eliminar y listar todos los hipervínculos del documento actual en Word
- Insertar múltiples hipervínculos en un documento en Word
- Eliminar todos los hipervínculos en Word
Las mejores herramientas de productividad para Office
Kutools para Word - ¡Mejora tu experiencia en Word con más de 100 funciones excepcionales!
🤖 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...
📘 Dominio de Documentos: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir en lote a PDF...
✏ Edición de Contenido: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tabla / Convertir tabla a texto...
🧹 Limpieza sin esfuerzo: Elimina espacios extras / saltos de sección / cuadros de texto / hipervínculos / Para más herramientas de eliminación, visita el grupo Eliminar...
➕ Inserciones creativas: Insertar separadores de miles / Casillas de verificación / Botones 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 / Formas / Párrafos de Encabezado / Mejora la navegación con más funciones de Seleccionar...
⭐ Mejoras destacadas: Navega a cualquier ubicación / Inserta automáticamente texto repetitivo / Cambia entre ventanas de documentos /11 herramientas de conversión...

Las mejores herramientas de productividad para Office
Kutools para Word - ¡Más de 100 herramientas para Word!
- 🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir / Super Traducir / Redacción AI / Revisión con IA
- 📘 Dominio de Documentos: Dividir páginas / Combinar documentos / Convertir en lote a PDF
- ✏ Edición de Contenido: Buscar y reemplazar en lote / Redimensionar todas las imágenes
- 🧹 Limpieza sin esfuerzo: Eliminar Espacios Extras / Eliminar Saltos de sección
- ➕ Inserciones creativas: Insertar separadores de miles / Insertar Casillas de Verificación / Crear Códigos QR