Note: The other languages of the website are Google-translated. Back to English

¿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 Wordbuena idea3


flecha azul burbuja derecha 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.


flecha azul burbuja derecha 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.


flecha azul burbuja derecha 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.
doc copiar hipervínculos 1

2. En el cuadro de diálogo emergente, elija una de las opciones que necesite.
doc copiar hipervínculos 2

Ahora, seleccione una ubicación donde desea colocar los hipervínculos, presione Ctrl + V para pegarlos

Copiar y pegar hipervínculos
doc copiar hipervínculos 3
Copiar y pegar la dirección del hipervínculo
doc copiar hipervínculos 4

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.
¡Haga clic para obtener una prueba gratuita de Office Tab!

Explore varios documentos de Word en una ventana como Firefox

Artículos relativos:


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.
Comentarios (16)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Dios mío, esto es algo legendario. Muy útil. ¡Muchas gracias! :-)
Este comentario fue minimizado por el moderador en el sitio
Wow es genial. Muchas gracias
Este comentario fue minimizado por el moderador en el sitio
está solicitando "Error de compilación: Error de sintaxis" Por favor, ayúdenme, necesito hacer mucho trabajo usando esto. Responda lo antes posible
Este comentario fue minimizado por el moderador en el sitio
¡En efecto! ¡UN año después, estoy teniendo problemas similares y estoy totalmente llorando por su maravillosa ayuda! ¡¡Dios te bendiga!!
Este comentario fue minimizado por el moderador en el sitio
Gracias. Justo lo que necesitaba para analizar un documento.
Este comentario fue minimizado por el moderador en el sitio
¡Excelente! Me ayudó a extraer algunos enlaces de un archivo html que abrí con Word (Excel descartaba algunos enlaces). Aquí está el código modificado para que se pueda crear un archivo csv que se pueda usar más. [cita]SubGetAllHyperlinks() ' Updateby20160504 ' https://www.extendoffice.com/documents/word/1411-word-select-copy-all-hyperlinks.html+&cd=1&hl=en&ct=clnk&gl=us<br /> 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.InsertAfter ( oLink.TextToDisplay) rng.InsertAfter (", ") rng.InsertAfter (oLink.Address) rng.InsertAfter (vbCrLf) Next docNew.Activate Application.ScreenUpdating = True Application.ScreenRefresh End Sub[/quote]
Este comentario fue minimizado por el moderador en el sitio
Muchas gracias por este guión. Esto me ayudó a extraer enlaces de 5K. Muchísimas gracias.
Este comentario fue minimizado por el moderador en el sitio
Este código me funciona bien. Los dos ejemplos en la descripción del artículo no lo hacen. Muchas gracias y mis mejores saludos.
Este comentario fue minimizado por el moderador en el sitio
¡Esto es genial! Muchas gracias. ¿Qué cambios debo hacer en GetAllHyperlinks() para el siguiente caso? -- el documento original contiene tanto texto normal como enlaces -- resultado buscado: mismo documento pero cada enlace va seguido de un espacio y la URL Gracias
Este comentario fue minimizado por el moderador en el sitio
¿Puedo hacer que el mismo script se ejecute en Outlook?
Este comentario fue minimizado por el moderador en el sitio
Altura de Legendario, un millón de gracias
Este comentario fue minimizado por el moderador en el sitio
Estoy asombrado. Eso es oro. Me ahorraste un montón de trabajo.
Este comentario fue minimizado por el moderador en el sitio
¡Muchas gracias! ¡Esto era exactamente lo que estaba buscando!
Este comentario fue minimizado por el moderador en el sitio
¡Impresionante! Millón de gracias.Me has acercado a la solución muchísimo pero si fuera posible copiarlos en la fila 1 de un excel ya creado sería impresionante. Es para aplicarles una fórmula que separa los enlaces del texto.Un saludo y un millón de gracias!!!

Este comentario fue minimizado por el moderador en el sitio
¿Cómo podemos exportar hipervínculos de archivos de Word y su visualización de texto a un archivo de Excel? 
Este comentario fue minimizado por el moderador en el sitio
¡Buena información! Me ayudó a extraer enlaces de un archivo html que había abierto en Word. Consulte el clicker de cookies es una idea nueva.
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL