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 for Word - Eleva la tua esperienza su Word con oltre 100 funzioni straordinarie!
🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni Formato) / Super Traduci (Mantieni Formato) / Redazione AI / Correzione AI...
📘 Maestria del Documento: Dividi Pagine / Unisci Documenti / Esporta Intervallo in vari formati (PDF/TXT/DOC/HTML...) / Conversione in batch in PDF...
✏ Modifica del Testo: Trova e Sostituisci in batch su più file / Ridimensiona tutte le Immagini / Trasponi Righe e Colonne della Tabella / Converti Tabella in Testo...
🧹 Pulizia senza sforzo: Elimina Spazi Extra / Interruzioni di Sezione / Casella di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, visita il gruppo Rimuovi...
➕ Inserimenti Creativi: Inserisci Separatore delle Migliaia / Casella di Controllo / Pulsante di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...
🔍 Selezioni Accurate: Individua Pagine Specifiche / Tabelle / Forma / Paragrafo di Intestazione / Migliora la navigazione con altre funzioni di Seleziona...
⭐ Miglioramenti Speciali: Vai a qualsiasi Intervallo / Inserimento automatico di testo ripetitivo / Passa tra Finestre dei Documenti /11 strumenti di Conversione...
🌍 Supporta oltre40 lingue: Usa Kutools nella lingua che preferisci – Inglese, Spagnolo, Tedesco, Francese, Cinese, e più di altre40 lingue!

✨ Kutools for Office – Una sola installazione, cinque strumenti potenti!
Include Office Tab Pro · Kutools per Excel · Kutools per Outlook · Kutools for Word · Kutools for PowerPoint
📦 Ottieni tutti e5 gli strumenti in un'unica suite | 🔗 Integrazione perfetta con Microsoft Office | ⚡ Risparmia tempo e aumenta subito la produttività
I migliori strumenti per la produttività in ufficio
Kutools for Word - 100+ strumenti per Word
- 🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida / Super Traduci / Redazione AI / Correzione AI
- 📘 Maestria del Documento: Dividi Pagine / Unisci Documenti / Conversione in batch in PDF
- ✏ Modifica del Testo: Trova e Sostituisci in batch / Ridimensiona tutte le Immagini
- 🧹 Pulizia senza sforzo: Rimuovi Spazi Extra / Rimuovi Interruzioni di Sezione
- ➕ Inserimenti Creativi: Inserisci Separatore delle Migliaia / Inserisci Casella di Controllo / Crea Codici QR
- 🌍 Supporta oltre40 lingue: Kutools parla la tua lingua – oltre40 lingue supportate!