Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Connetti
x
or
x
x
Registratevi
x

or

Come selezionare e copiare tutti i collegamenti ipertestuali da un documento Word?

In alcuni casi, hai un documento lungo con più collegamenti ipertestuali esistenti e devi solo copiare tutti i collegamenti ipertestuali in una sola volta da questo documento e incollarli in un altro. Esiste un modo per copiare rapidamente tutti in una volta invece di copiarli uno per uno?

Copia tutti i collegamenti ipertestuali con VBA

Estrai tutti gli indirizzi hyperlink con VBA

Copia tutti gli hyperlink o solo gli indirizzi negli appunti con Kutools per Wordbuona idea3


freccia blu bolla destra Copia tutti i collegamenti ipertestuali con VBA

1. Aprire il documento di Word che si desidera copiare i collegamenti ipertestuali e premere Alt + F11 per aprire il Finestra dell'applicazione Microsoft Visual Based.

2. Clic inserire > Moduloe copia il seguente VBA nella finestra.

VBA: copia tutti i collegamenti ipertestuali

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. Fare clic sul Correre pulsante per eseguire il codice VBA. Quindi tutti i collegamenti ipertestuali vengono copiati in un nuovo documento. Puoi salvare il nuovo documento più tardi. Puoi vedere il risultato come segue.

Nota: Questo VBA può essere eseguito solo quando tutti i collegamenti ipertestuali sono collegati a Word, se ci sono immagini con collegamenti ipertestuali, questo codice VBA non può funzionare.


freccia blu bolla destra Estrai tutti i collegamenti ipertestuali VBA

1. Aprire il documento di Word che si desidera estrarre i collegamenti ipertestuali e premere Alt + F11 per aprire il Finestra dell'applicazione Microsoft Visual Based.

2. Clic inserire > Moduloe copia il seguente VBA nella finestra.

VBA: estrai tutti gli indirizzi hyperlink

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. Fare clic sul Correre pulsante per eseguire il codice VBA. Quindi tutti gli indirizzi dei collegamenti ipertestuali vengono estratti in un nuovo documento, è possibile salvarlo in seguito.

Nota: L'indirizzo dell'estrazione dei collegamenti ipertestuali non è nell'ordine originale.


freccia blu bolla destra Copia tutti gli hyperlink o solo gli indirizzi negli appunti con Kutools per Word

Se si desidera copiare tutti i collegamenti ipertestuali o solo gli indirizzi negli appunti dal documento di Word facilmente e rapidamente, il Copia collegamento ipertestuale utilità di Kutools for Word puoi fare questo favore

Kutools for Word, con oltre 100 funzioni a portata di mano, facilita il lavoro.
Vai a Download
Giorni di prova gratuiti 45

Dopo l'installazione Kutools per Word, si prega di fare come di seguito:(Scarica gratis Kutools per Word ora!)

1. Clic Kutools Plus > Copia collegamento ipertestuale.
documento copia collegamenti ipertestuali 1

2. Nella finestra di dialogo popping, scegli un'opzione di cui hai bisogno.
documento copia collegamenti ipertestuali 2

Ora, seleziona una posizione in cui vuoi posizionare i collegamenti ipertestuali, premi Ctrl + V incollarli.

Copia e incolla i collegamenti ipertestuali
documento copia collegamenti ipertestuali 3
Copia e incolla l'indirizzo del collegamento ipertestuale
documento copia collegamenti ipertestuali 4

Navigazione a schede e modifica di più documenti di Word / cartelle di lavoro di Excel come Firefox, Chrome, Internet Esplora 10!

Potrebbe essere familiare visualizzare più pagine Web in Firefox / Chrome / IE e passare da una all'altra facendo clic sulle schede corrispondenti facilmente. Qui, Office Tab supporta l'elaborazione simile, che consente di sfogliare più documenti di Word o cartelle di lavoro di Excel in una finestra di Word o in una finestra di Excel e passare facilmente da una all'altra facendo clic sulle relative schede.
Clicca per la prova gratuita di Office Tab!

Sfoglia più documenti di parole in una finestra come Firefox

Articoli relativi:



Strumenti di produttività di Word consigliati

Kutools per Word - Oltre alle funzionalità avanzate di 100 per Word, risparmia il tuo tempo 50%

  • Le operazioni complicate e ripetute possono essere eseguite in un'unica volta in pochi secondi.
  • Inserire più immagini contemporaneamente in cartelle in un documento di Word.
  • Unisci e combina più file di Word tra cartelle in un unico ordine.
  • Dividi il documento corrente in documenti separati in base a titolo, interruzione di sezione o altri criteri.
  • Converti file tra Doc e Docx, Docx e PDF, raccolta di strumenti per conversioni e selezioni comuni e così via ...
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 · 3 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 · 4 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! :-)