Come selezionare e copiare tutti i collegamenti ipertestuali da un documento Word?
Se hai un lungo documento Word con numerosi collegamenti ipertestuali e devi copiarli tutti in una volta, selezionarli manualmente uno per uno può essere molto dispendioso in termini di tempo. Fortunatamente, esistono metodi efficienti per estrarre e copiare tutti i collegamenti ipertestuali o solo i loro indirizzi. Questa guida presenterà diversi metodi per eseguire questa operazione rapidamente.
Copia tutti i collegamenti ipertestuali in un nuovo documento utilizzando VBA
Utilizzando VBA, puoi estrarre tutti i collegamenti ipertestuali da un documento e copiarli in un nuovo documento.
- Apri il documento Word contenente i collegamenti ipertestuali e premi Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.
- Fai clic su Inserisci > Modulo, quindi copia e incolla il seguente codice VBA nella finestra del modulo:
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
- Fai clic sul pulsante Esegui per eseguire il codice VBA. Si aprirà un nuovo documento contenente tutti i collegamenti ipertestuali del documento originale.
>>>
Nota: Questo metodo VBA funziona solo per i collegamenti ipertestuali basati su testo. Non estrae i collegamenti ipertestuali incorporati nelle immagini.
Estrai solo gli indirizzi dei collegamenti ipertestuali (testo semplice) in un nuovo documento utilizzando VBA
Questo metodo VBA estrae solo gli indirizzi dei collegamenti ipertestuali da un documento e li incolla in un nuovo documento.
- Apri il documento Word e premi Alt + F11 per aprire l'editor VBA.
- Fai clic su Inserisci > Modulo, quindi copia e incolla il seguente codice VBA:
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
- Fai clic sul pulsante Esegui Verrà creato un nuovo documento contenente solo gli indirizzi dei collegamenti ipertestuali (testo semplice).
>>>
Nota: Gli indirizzi dei collegamenti ipertestuali estratti potrebbero non apparire nello stesso ordine del documento originale.
Copia i collegamenti ipertestuali o gli indirizzi negli appunti utilizzando Kutools per Word
Kutools per Word offre un modo semplice per copiare tutti i collegamenti ipertestuali o solo i loro indirizzi negli appunti con pochi clic.
- Fai clic su Kutools Plus > Copia collegamento ipertestuale.
- Nella finestra di dialogo Copia tutti i collegamenti ipertestuali negli appunti, seleziona l'opzione desiderata.
- Incolla i collegamenti ipertestuali copiati ovunque desideri premendo Ctrl + V.
- Se selezioni l'opzione Collegamenti ipertestuali verranno copiati sia il testo di visualizzazione che il collegamento ipertestuale.
- Se selezioni l'opzione Indirizzi dei collegamenti ipertestuali verrà copiato solo l'indirizzo del collegamento ipertestuale come testo semplice.
Demo: Copia tutti i collegamenti ipertestuali in un documento Word
Scopri la scheda Kutools / Kutools Plus in questo video di Kutools for Word. Goditi 100+ funzionalità e utilità AI gratuite in modo permanente. Scarica ora!
Navigazione a schede e modifica per più documenti di Word/fogli di lavoro di Excel, proprio come in Chrome e Edge! |
Proprio come sfogliare più pagine web in Chrome, Safari e Edge, Office Tab ti permette di aprire e gestire più documenti di Word o fogli di lavoro di Excel in una sola finestra di Word o Excel. Passare da un documento o foglio di lavoro all'altro è ora semplice con un clic sulle loro schede! |
Articoli correlati:
- Inserisci, rimuovi ed elenca tutti i collegamenti ipertestuali del documento corrente in Word
- Inserisci più collegamenti ipertestuali in un documento Word
- Rimuovi tutti i collegamenti ipertestuali in Word
I migliori strumenti per la produttività in ufficio
Kutools per Word - Migliora la tua esperienza con Word grazie a oltre 100 straordinarie funzionalità!
🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni Formato) / Super Traduci (Mantieni Formato) / Redazione AI / Correzione AI...
📘 Maestria sui Documenti: Dividi Pagine / Unisci Documenti / Esporta selezione in vari formati (PDF/TXT/DOC/HTML...) / Converti in batch in PDF...
✏ Modifica dei Contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasponi righe e colonne delle tabelle / Converti Tabella in Testo...
🧹 Pulizia senza sforzo: Elimina Spazi Extra / Interruzioni di Sezione / Caselle di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, vai al gruppo Rimuovi...
➕ Inserimenti Creativi: Inserisci separatori delle migliaia / Caselle di Controllo / Pulsanti di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...
🔍 Selezioni precise: Individua pagine specifiche / Tabelle / Forme / Paragrafi di intestazione / Migliora la navigazione con ancora più funzionalità di Selezione...
⭐ Funzionalità Star: Vai in qualsiasi posizione / Inserimento automatico di testo ripetitivo / Passaggio tra finestre documento /11 strumenti di conversione...
🌍 Supporta oltre40 lingue: Usa Kutools nella tua lingua preferita – disponibile in Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!

I migliori strumenti per la produttività in ufficio
Kutools per Word - 100+ Strumenti per Word
- 🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida / Super Traduci / Redazione AI / Correzione AI
- 📘 Maestria sui Documenti: Dividi Pagine / Unisci Documenti / Converti in batch in PDF
- ✏ Modifica dei Contenuti: Trova e sostituisci in batch / Ridimensiona tutte le immagini
- 🧹 Pulizia senza sforzo: Rimuovi Spazi Extra / Rimuovi Interruzioni di Sezione
- ➕ Inserimenti Creativi: Inserisci separatori delle migliaia / Inserisci Caselle di Controllo / Crea Codici QR
- 🌍 Supporta oltre40 lingue: Kutools parla la tua lingua – oltre40 lingue supportate!