Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

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

En algunos casos, tiene un documento largo con múltiples hipervínculos existentes, y solo necesita copiar todos los hipervínculos a la vez desde este documento y luego pegarlos en otro. ¿Hay alguna forma de copiarlos rápidamente 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 que desea copiar los hipervínculos y presione Alt + F11 para abrir el Ventana de aplicaciones basadas en Microsoft Visual.

2. Hacer clic recuadro > Móduloy copie el siguiente VBA en la ventana.

VBA: copie 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 corrida para ejecutar el código VBA. Luego, todos los hipervínculos se copian en un documento nuevo. Puede guardar el nuevo documento más tarde. Puedes ver el resultado de la siguiente manera.

Nota: Este VBA solo puede ejecutarse cuando todos los hipervínculos están vinculados con la palabra, 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 que desea extraer los hipervínculos, y presione Alt + F11 para abrir el Ventana de aplicaciones basadas en Microsoft Visual.

2. Hacer clic recuadro > Móduloy copie el siguiente VBA en la ventana.

VBA: extrae 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 corrida para ejecutar el código VBA. Luego todas las direcciones de hipervínculos se extraen en un documento nuevo, puede guardarlo más tarde.

Nota: La dirección de hipervínculos de extracción 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 del documento de Word de manera fácil y rápida, Copiar hipervínculo utilidad de Kutools for Word Te puedo hacer este favor.

Kutools for Word, con más de 100 funciones prácticas, hace que sus trabajos sean más fáciles.
Ir a descargar
Prueba gratuita 45 días

Después de instalar Kutools para Word, haz lo siguiente:(Descargar Gratis Kutools for Word Now!)

1. Hacer clic Kutools Más > Copiar hipervínculo.
doc copia los hiperenlaces 1

2. En el cuadro de diálogo emergente, elija una opción que necesite.
doc copia los hiperenlaces 2

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

Copiar y pegar hipervínculos.
doc copia los hiperenlaces 3
Copiar y pegar la dirección del hipervínculo
doc copia los hiperenlaces 4

Navegación con pestañas y edición de múltiples documentos de Word / libros de Excel como Firefox, Chrome, Internet Explore 10!

Es posible que esté familiarizado con la vista de múltiples páginas web en Firefox / Chrome / IE, y cambie entre ellas haciendo clic en las pestañas correspondientes fácilmente. Aquí, Office Tab admite un procesamiento similar, que le permite explorar múltiples documentos de Word o libros de Excel en una ventana de Word o de Excel, y cambiar fácilmente entre ellos haciendo clic en sus pestañas.
¡Haz clic para obtener una versión de prueba gratuita de Office Tab!

Buscar documentos de varias palabras en una ventana como Firefox

Artículos relativos



Herramientas recomendadas de productividad de palabras

Kutools para Word: más que funciones avanzadas de 100 para Word, ahorre su% 50

  • Las operaciones complicadas y repetidas se pueden realizar una sola vez en segundos.
  • Inserte varias imágenes a través de carpetas en el documento de Word a la vez.
  • Combine y combine varios archivos de Word en carpetas en uno con su orden deseado.
  • 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, una colección de herramientas para conversiones y selección comunes, y así sucesivamente ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Fabian · 1 years ago
    Thank you so much! This was exactly what I was looking for!
  • To post as a guest, your comment is unpublished.
    Adrine Bio · 1 years ago
    I am amazed. That's gold. You saved me a ton of work.
  • To post as a guest, your comment is unpublished.
    manny kuyr · 2 years ago
    [b]Height of Legendary, thanks a million[/b]
  • To post as a guest, your comment is unpublished.
    Shadab · 2 years ago
    Can I get the same script to run in outlook?
  • To post as a guest, your comment is unpublished.
    Tony Macelli · 3 years ago
    This is great stuff! Many thanks.
    What changes do I need to make to GetAllHyperlinks() for the following case?

    -- original document contains both normal text and links
    -- result wanted: same document but each link is followed by a space and the URL

    Thanks
  • To post as a guest, your comment is unpublished.
    Sanjay K. · 3 years ago
    Excellent! It helped me extract some links from an html file that I opened with Word (Excel was discarding some links). Here is the modified code so that a csv file could be built that could be further used.

    [quote]SubGetAllHyperlinks()
    ' Updateby20160504
    ' https://www.extendoffice.com/documents/word/1411-word-select-copy-all-hyperlinks.html+&cd=1&hl=en&ct=clnk&gl=us
    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]
    • To post as a guest, your comment is unpublished.
      Pompeia · 2 years ago
      This code works fine to me. The two on examples in the article description don't. Thanks a lot and my best regards.
    • To post as a guest, your comment is unpublished.
      Rashesh Bosamiya · 3 years ago
      Thank you very much for this script.
      This helped me to extract 5K links.

      Thank you very much.
  • To post as a guest, your comment is unpublished.
    Dean · 3 years ago
    Thank you. Just what I needed to parse a document.
  • To post as a guest, your comment is unpublished.
    Maria · 3 years ago
    Indeed! ONE year later, am having similar issues and totally bawled over by your wonderful help!!
    God Bless YOu!!
  • To post as a guest, your comment is unpublished.
    sid · 4 years ago
    it is prompting " Compile Error: Syntax Error"
    Please help me, I need to do a lot of work using this .Reply asap
  • To post as a guest, your comment is unpublished.
    Mert · 5 years ago
    wow, its great. Thank you so much
  • To post as a guest, your comment is unpublished.
    Richie · 5 years ago
    Omg this is legendary stuff. So helpful. Thanks a lot! :-)