¿Cómo seleccionar y copiar todos los hipervínculos de un documento de Word?
En algunos casos, tiene un documento largo con varios hipervínculos existentes y solo necesita copiar todos los hipervínculos a la vez de este documento y luego pegarlos en otro. ¿Hay alguna forma de copiarlos rápidamente todos a la vez en lugar de copiarlos uno por uno?
Copie todos los hipervínculos con VBA
Extraiga todas las direcciones de hipervínculos con VBA
Copie todos los hipervínculos o solo las direcciones al portapapeles con Kutools para Word
Copie todos los hipervínculos con VBA
1. Abra el documento de Word en el que desea copiar los hipervínculos y presione Alt + F11 para abrir el Ventana de aplicación basada en Microsoft Visual.
2. Hacer clic en recuadro > Móduloy copie el siguiente VBA en la ventana.
VBA: copia todos los hipervínculos
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 Ejecutar botón para ejecutar el código VBA. Luego, todos los hipervínculos se copian en un nuevo documento. Puede guardar el nuevo documento más tarde. Puede ver el resultado de la siguiente manera.
Nota: Este VBA solo se puede ejecutar cuando todos los hipervínculos están vinculados con Word, si hay imágenes con hipervínculos, este código VBA no puede funcionar.
Extraiga todas las direcciones de hipervínculos con VBA
1. Abra el documento de Word en el que desea extraer los hipervínculos y presione Alt + F11 para abrir el Ventana de aplicación basada en Microsoft Visual.
2. Hacer clic en recuadro > Móduloy copie el siguiente VBA en la ventana.
VBA: extraer todas las direcciones de hipervínculos
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 el Ejecutar botón para ejecutar el código VBA. Luego, todas las direcciones de hipervínculos se extraen en un nuevo documento, puede guardarlo más tarde.
Nota: La dirección de los hipervínculos extraídos no está en el orden original.
Copie todos los hipervínculos o solo las direcciones al portapapeles con Kutools para Word
Si desea copiar todos los hipervínculos o solo las direcciones al portapapeles desde un documento de Word de manera fácil y rápida, Copiar hipervínculo utilidad de Kutools for Word puedo hacerte este favor.
Kutools for Word, con más de funciones prácticas, facilita su trabajo. | ||
Después de instalar Kutools para Word, haga lo siguiente:(¡Descarga gratis Kutools para Word ahora!)
1. Hacer clic en Kutools Más > Copiar hipervínculo.
2. En el cuadro de diálogo emergente, elija una de las opciones que necesite.
Ahora, seleccione una ubicación donde desea colocar los hipervínculos, presione Ctrl + V para pegarlos
Copiar y pegar hipervínculos |
Copiar y pegar la dirección del hipervínculo |
Demostración: Copiar hipervínculo
Navegación con pestañas y edición de varios documentos de Word / libros de trabajo de Excel como Firefox, Chrome, Internet Explore 10. |
Es posible que esté familiarizado con ver varias páginas web en Firefox / Chrome / IE y cambiar entre ellas haciendo clic fácilmente en las pestañas correspondientes. Aquí, Office Tab admite un procesamiento similar, que le permite examinar varios documentos de Word o libros de trabajo de Excel en una ventana de Word o de Excel, y cambiar fácilmente entre ellos haciendo clic en sus pestañas. |
Artículos relativos:
- Insertar, eliminar y enumerar todos los hipervínculos del documento actual en Word
- Insertar varios hipervínculos a un documento en Word
- Eliminar todos los hipervínculos en Word
Las mejores herramientas de productividad de oficina
Kutools for Word - Mejore su experiencia con Word con Over 100 ¡Características notables!
🤖 Asistente de IA de Kutools: Transforma tu escritura con IA - Generar contenido / Reescribir texto / Resumir documentos / Solicite información basado en el documento, todo dentro de Word
📘 Dominio del documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir por lotes a PDF / Exportar páginas como imágenes / Imprima varios archivos a la vez...
✏ Edición de contenidos: Buscar y reemplazar por lotes en varios archivos / Cambiar el tamaño de todas las imágenes / Transponer filas y columnas de tabla / Convertir tabla en texto...
🧹 Limpieza sin esfuerzo: barrer Espacios extra / Saltos de sección / Todos los encabezados / Cuadros de texto / Los hipervínculos / Para obtener más herramientas de extracción, diríjase a nuestro Quitar grupo...
➕ Inserciones creativas: Insertar Mil Separadores / Casillas de verificación / Botones de radio / Código QR / Barcode / Tabla de líneas diagonales / Título de la ecuación / Captura de imagen / Pie de tabla / Varias imágenes / Descubre más en el Insertar grupo...
🔍 Selecciones de precisión: Localizar páginas específicas / tablas / formas / párrafos de encabezado / Mejorar la navegación con más, Seleccionar características...
⭐ Mejoras de estrellas: Navegue rápidamente a cualquier ubicación / insertar automáticamente texto repetitivo / alternar sin problemas entre ventanas de documentos / 11 herramientas de conversión...