Cum să selectați și să copiați toate hyperlinkurile dintr-un document Word?
În unele cazuri, aveți un document lung cu mai multe hyperlinkuri existente și trebuie să copiați toate hyperlinkurile simultan din acest document și apoi să le lipiți în altul. Există vreo modalitate de a le copia rapid pe toate simultan, în loc să le copiați pe rând?
Copiați toate hyperlinkurile cu VBA
Extrageți toate adresele de hyperlink cu VBA
Copiați toate hyperlinkurile sau numai adresele în clipboard cu Kutools pentru Word
Copiați toate hyperlinkurile cu VBA
1. Deschideți documentul Word pe care doriți să copiați hyperlinkurile și apăsați Alt + F11 pentru a deschide Fereastra aplicației bazate pe Microsoft Visual.
2. clic Insera > Moduleși copiați următorul VBA în fereastră.
VBA: copiați toate hyperlinkurile
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. Faceți clic pe Alerga pentru a rula codul VBA. Apoi, toate hyperlinkurile sunt copiate într-un document nou. Puteți salva noul document mai târziu. Puteți vedea rezultatul după cum urmează.
Notă: Acest VBA poate rula numai atunci când toate hyperlinkurile sunt legate de cuvânt, dacă există imagini cu hyperlinkuri, acest cod VBA nu poate funcționa.
Extrageți toate adresele de hyperlink cu VBA
1. Deschideți documentul Word pe care doriți să extrageți hyperlinkurile și apăsați Alt + F11 pentru a deschide Fereastra aplicației bazate pe Microsoft Visual.
2. clic Insera > Moduleși copiați următorul VBA în fereastră.
VBA: extrageți toate adresele de hyperlinkuri
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. Faceți clic pe Alerga pentru a rula codul VBA. Apoi toate adresele de hyperlinkuri sunt extrase într-un document nou, îl puteți salva ulterior.
Notă: Adresa hyperlinkurilor extrase nu se află în ordinea inițială.
Copiați toate hyperlinkurile sau numai adresele în clipboard cu Kutools pentru Word
Dacă doriți să copiați toate hyperlinkurile sau adresele numai în clipboard din documentul Word ușor și rapid, fișierul Copiați hyperlinkul utilitatea Kutools pentru Cuvânt îți poate face această favoare.
Kutools pentru Cuvânt, cu mai mult de funcții la îndemână, vă ușurează lucrările. | ||
După instalare Kutools pentru Word, vă rugăm să faceți după cum urmează:(Descărcați gratuit Kutools pentru Word acum!)
1. clic Kutools Plus > Copiați hyperlinkul.
2. În dialogul popping, alegeți o opțiune după cum aveți nevoie.
Acum, selectați o locație pe care doriți să plasați hyperlinkurile, apăsați Ctrl + V pentru a le lipi.
Copiați și lipiți hyperlinkuri |
Copiați și lipiți adresa hyperlinkului |
Demo: copiați hyperlinkul
Navigarea cu file și editarea mai multor documente Word / registre de lucru Excel ca Firefox, Chrome, Internet Explore 10! |
Este posibil să fiți familiarizați să vizualizați mai multe pagini web în Firefox / Chrome / IE și să comutați între ele făcând clic pe filele corespunzătoare. Aici, fila Office acceptă procesări similare, care vă permit să răsfoiți mai multe documente Word sau registre de lucru Excel într-o singură fereastră Word sau fereastră Excel și să comutați cu ușurință între ele făcând clic pe filele lor. |
Articole relative:
- Inserați, eliminați și listați toate hyperlinkurile documentului curent în Word
- Inserați mai multe hyperlinkuri către un document în Word
- Eliminați toate hyperlinkurile din Word
Cele mai bune instrumente de productivitate de birou
Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!
🤖 Asistent AI Kutools: Transformă-ți scrisul cu AI - Generați conținut / Rescrie textul / Rezumat documente / Solicitați informații pe baza Documentului, toate în Cuvânt
📘 Stăpânirea documentelor: Pagini împărțite / Fuzionați documente / Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...) / Conversie lot în PDF / Exportați paginile ca imagini / Imprimați mai multe fișiere simultan...
✏ Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere / Redimensionați toate imaginile / Transpuneți rânduri și coloane de tabel / Convertiți tabelul în text...
🧹 Curățare fără efort: Îndepărtați Spații suplimentare / Secțiuni pauze / Toate anteturile / Casete text / hiperlinkuri / Pentru mai multe instrumente de îndepărtare, mergeți la nostru Eliminați grupul...
➕ Inserții creative: Inserați Mii de separatori / Casete de bifare / Butoane radio / QR Code / coduri de bare / Tabel cu linii diagonale / Legenda ecuației / Image Caption / Legenda tabelului / Imagini multiple / Descoperiți mai multe în Inserați grupul...
???? Selectii de precizie: Repera cu precizie pagini specifice / tabele / forme / paragrafele de titlu / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...
⭐ Îmbunătățiri de stele: Navigați rapid în orice locație / inserarea automată a textului repetitiv / comutați fără probleme între ferestrele documentelor / 11 Instrumente de conversie...