Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Log In
x
or
x
x
Registrati
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

Kutools for Word: Aggiungi 100 Nuove funzionalità avanzate a Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office Tab: Abilitare Modifica a schede e navigazione in ufficio, Proprio come Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu for Office: Porta il vecchio aspetto di Office 2003 Back a Office 2007, 2010, 2013, 2016 e 2019.

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:



Kutools for Word

Più di 100 Funzioni avanzate per Word 2003, 2007, 2010, 2013, 2016 e 2019

tiro-kutools-700-225-kte

Altre caratteristiche | Scarica gratis | Solo $ 39.00 per centinaia di funzioni

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 · 10 months 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 · 2 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