¿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
100
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
Herramientas de productividad de palabras recomendadas
Kutools para Word: más de 100 funciones avanzadas para Word, ahorre su 50% de tiempo
- Las operaciones complicadas y repetidas se pueden realizar un solo procesamiento en segundos.
- Inserte varias imágenes en carpetas en un documento de Word a la vez.
- Fusiona y combina varios archivos de Word en carpetas en uno con el orden que desees.
- Divida el documento actual en documentos separados según el encabezado, el salto de sección u otros criterios.
- Convierta archivos entre Doc y Docx, Docx y PDF, colección de herramientas para conversiones y selección comunes, etc.















