MS de VBA de Word Extracción de los hipervínculos de texto seleccionado en word

Question 1

Estaría agradecido si alguien me pudiera ayudar e indicar lo que debe cambiarse en el código de abajo (me lo encontré en www.extendoffice.compara restringir este a la parte seleccionada del texto (no de trabajo a lo largo de todo el documento).
El código es la extracción de los hipervínculos de un documento de word a otro.

Sub HyperlinksExtract()
    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

Question 2

El truco es guardar el seleccionado hipervínculos en una variable selectedHyperlinks.

Además yo siempre trato de evitar el copiar/pegar.Por lo tanto, yo estoy usando la Hyperlinks.Add método para insertar los enlaces para el nuevo documento

Sub HyperlinksExtract()

    Dim docCurrent As Document
    Dim docNew As Document
    
    Set docNew = Documents.Add
    Dim rgTarget As Range: Set rgTarget = docNew.Range
    
    Dim selectedHyperlinks As Hyperlinks
    Set selectedHyperlinks = Selection.Hyperlinks   '<<< this is where the selected hyperlinks are stored in the variable
    
    Dim oLink As Hyperlink
    
    For Each oLink In selectedHyperlinks 
        rgTarget.Collapse wdCollapseEnd
        docNew.Hyperlinks.Add rgTarget, oLink.Address, oLink.SubAddress, , oLink.TextToDisplay
        rgTarget.Move wdParagraph, 1
        rgTarget.InsertParagraphAfter
    Next
     
End Sub

Ike · Answer 1 · 2021-11-04T18:41:52

El truco es guardar el seleccionado hipervínculos en una variable selectedHyperlinks.

Además yo siempre trato de evitar el copiar/pegar.Por lo tanto, yo estoy usando la Hyperlinks.Add método para insertar los enlaces para el nuevo documento

Sub HyperlinksExtract()

    Dim docCurrent As Document
    Dim docNew As Document
    
    Set docNew = Documents.Add
    Dim rgTarget As Range: Set rgTarget = docNew.Range
    
    Dim selectedHyperlinks As Hyperlinks
    Set selectedHyperlinks = Selection.Hyperlinks   '<<< this is where the selected hyperlinks are stored in the variable
    
    Dim oLink As Hyperlink
    
    For Each oLink In selectedHyperlinks 
        rgTarget.Collapse wdCollapseEnd
        docNew.Hyperlinks.Add rgTarget, oLink.Address, oLink.SubAddress, , oLink.TextToDisplay
        rgTarget.Move wdParagraph, 1
        rgTarget.InsertParagraphAfter
    Next
     
End Sub

MS de VBA de Word Extracción de los hipervínculos de texto seleccionado en word

Pregunta

Mejor respuesta

En otros idiomas

Esta página está en otros idiomas

Popular en esta categoría

Las preguntas más habituales en esta categoría