Salt la conținutul principal

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 Wordidee bună3


săgeată albastru dreapta balon 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.


săgeată albastru dreapta balon 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ă.


săgeată albastru dreapta balon 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.
copierea hyperlinkurilor doc 1

2. În dialogul popping, alegeți o opțiune după cum aveți nevoie.
copierea hyperlinkurilor doc 2

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
copierea hyperlinkurilor doc 3
Copiați și lipiți adresa hyperlinkului
copierea hyperlinkurilor doc 4

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.
Faceți clic pentru o încercare gratuită a filei Office!

Răsfoiți mai multe documente Word într-o singură fereastră ca Firefox

Articole relative:

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

Scufundați-vă în caracteristicile evidențiate de mai jos sau faceți clic aici pentru a explora întreaga putere a Kutools for Word.

📘 Stăpânirea documentelor: Pagini împărțite  /  Fuzionați documente  /  Exportați selecția în diferite formate (PDF/TXT/DOC/XLSX)  /  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 eliminare, accesați grupul nostru de eliminare

Inserții creative: Insera 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 grupul nostru de inserări

???? Selectii de precizie: Identificați anumite pagini  /  tabele  /  forme  /  paragrafele de titlu  /  Navigați cu ușurință folosind grupul nostru Select

Î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 ...

Transformați-vă sarcinile Word cu Kutools. 👉 Descărcați acum cu o perioadă de încercare de 30 de zile 🚀.

 
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Good information! It assisted me in extracting links from an html file I had opened in Word. Refer to <a href="https://cookieclicker2.io">cookie clicker</a> is idea new.
This comment was minimized by the moderator on the site
How can we export word file hyperlinks and it's Text display to an excel file ? 
This comment was minimized by the moderator on the site
Impresionante! Millón de gracias.Me has acercado a la solución muchísimo pero si fuera posible copiarlos en la fila 1 de un excel ya creado sería impresionante. Es para aplicarles una formula que separa los links del texto.Un saludo y un millón de gracias!!!

This comment was minimized by the moderator on the site
Thank you so much! This was exactly what I was looking for!
This comment was minimized by the moderator on the site
I am amazed. That's gold. You saved me a ton of work.
This comment was minimized by the moderator on the site
Height of Legendary, thanks a million
This comment was minimized by the moderator on the site
Can I get the same script to run in outlook?
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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<br /> 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]
This comment was minimized by the moderator on the site
This code works fine to me. The two on examples in the article description don't. Thanks a lot and my best regards.
This comment was minimized by the moderator on the site
Thank you very much for this script. This helped me to extract 5K links. Thank you very much.
This comment was minimized by the moderator on the site
Thank you. Just what I needed to parse a document.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations