Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս ընտրել և պատճենել բոլոր հիպերհղումները Word փաստաթղթից:

Որոշ դեպքերում դուք ունեք մի երկար փաստաթուղթ, որում առկա են բազմաթիվ հիպերհղումներ, և անհրաժեշտ է միանգամից պատճենել բոլոր հիպերհղումները այս փաստաթղթից և այնուհետեւ դրանք տեղադրել մեկ այլի: Կա՞ որևէ ձև, որը կարող է արագորեն պատճենել բոլորը միանգամից պատճենելու փոխարեն:

Պատճենեք բոլոր հղումները VBA- ով

VBA- ով հանեք բոլոր հիպերհղումների հասցեները

Kutools- ի համար Word- ի հետ պատճենեք բոլոր հիպերհղումները կամ միայն հասցեները clipboard- ումլավ գաղափար 3


նետ կապույտ աջ պղպջակ Պատճենեք բոլոր հղումները VBA- ով

1. Բացեք Word փաստաթուղթը, որը ցանկանում եք պատճենել հղումները և սեղմել Alt + F11 բացելու համար Microsoft Visual based Application Window.

2: սեղմեք Տեղադրել > Մոդուլներև պատճենեք հետևյալ VBA- ն պատուհանում:

VBA. Պատճենեք բոլոր հղումները

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. Սեղմեք Վազում VBA կոդն աշխատեցնելու կոճակ: Դրանից հետո բոլոր հիպերհղումները պատճենվում են նոր փաստաթղթի վրա: Ավելի ուշ կարող եք պահպանել նոր փաստաթուղթը: Արդյունքը կարող եք տեսնել հետևյալ կերպ.

Նշում: Այս VBA- ն կարող է գործել միայն այն ժամանակ, երբ բոլոր հիպերհղումները կապված են բառի հետ, եթե կան հղումներ ունեցող նկարներ, այս VBA կոդը չի կարող աշխատել:


նետ կապույտ աջ պղպջակ Քաղել բոլոր հիպերհղումների հասցեները VBA- ով

1. Բացեք Word փաստաթուղթը, որը ցանկանում եք հանել հղումները և սեղմել Alt + F11 բացելու համար Microsoft Visual based Application Window.

2: սեղմեք Տեղադրել > Մոդուլներև պատճենեք հետևյալ VBA- ն պատուհանում:

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

3. Սեղմեք Վազում VBA կոդն աշխատեցնելու կոճակ: Հետո բոլոր հիպերհղումների հասցեները արդյունահանվում են նոր փաստաթղթում, այն կարող եք ավելի ուշ պահպանել:

Նշում: Քաղվածքի հղումների հասցեն նախնական կարգով չէ:


նետ կապույտ աջ պղպջակ Kutools- ի համար Word- ի հետ պատճենեք բոլոր հիպերհղումները կամ միայն հասցեները clipboard- ում

Եթե ​​ցանկանում եք Word- ի փաստաթղթից հեշտությամբ և արագ պատճենել բոլոր հղումները կամ միայն հասցեները clipboard- ում, ապա Պատճենել հղումը օգտակարությունը Kutools բառի համար կարող է քեզ այս լավությունը տալ:

Kutools բառի համար, ավելի քան  հարմար գործառույթներ, հեշտացնում է ձեր գործերը: 

Տեղադրելուց հետո Kutools Word- ի համար, խնդրում ենք վարվել ինչպես ստորև ՝Download Անվճար ներբեռնեք Kutools- ը Word- ի համար:)

1: սեղմեք Kutools Plus > Պատճենել հղումը.
փաստաթղթի պատճենման հղումներ 1

2. Բացվող պատուհանում ընտրեք մեկ տարբերակ, որքան ձեզ հարկավոր է:
փաստաթղթի պատճենման հղումներ 2

Այժմ ընտրեք մեկ վայր, որը ցանկանում եք տեղադրել հղումները, սեղմել Ctrl + V դրանք կպցնելու համար:

Պատճենեք և տեղադրեք հիպերհղումները
փաստաթղթի պատճենման հղումներ 3
Պատճենեք և տեղադրեք հիպերհղման հասցեն
փաստաթղթի պատճենման հղումներ 4

Ներդիրներով զննում և խմբագրում բազմաթիվ Word փաստաթղթեր / Excel աշխատանքային գրքեր ՝ Firefox, Chrome, Internet Explore 10:

Ձեզ կարող է ծանոթ լինել Firefox / Chrome / IE- ում մի քանի ինտերնետային էջեր դիտելու և դրանց միջև փոխանակելը ՝ հեշտությամբ սեղմելով համապատասխան ներդիրները: Այստեղ Office Tab- ն աջակցում է նմանատիպ վերամշակման, որը թույլ է տալիս թերթել բազմաթիվ Word փաստաթղթեր կամ Excel աշխատանքային գրքեր մեկ Word պատուհանում կամ Excel պատուհանում և հեշտությամբ փոխել նրանց միջև ՝ կտտացնելով դրանց ներդիրներին:
Կտտացրեք Office Tab- ի անվճար փորձարկման համար:

Firefox- ով մեկ պատուհանում զննեք բազմաթիվ բառերի փաստաթղթեր

Հարաբերական հոդվածներ:

Գրասենյակի արտադրողականության լավագույն գործիքները

Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!

🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն  /  Վերաշարադրել տեքստը  /  Ամփոփել փաստաթղթերը  /  Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում

📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում  /  Միաձուլեք փաստաթղթերը  /  Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...)  /  Խմբաքանակի փոխակերպում PDF-ի  /  Արտահանել էջերը որպես պատկերներ  /  Միանգամից մի քանի ֆայլ տպեք...

Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով  /  Չափափոխել բոլոր նկարները  /  Փոխադրել աղյուսակի տողերը և սյունակները  /  Աղյուսակը տեքստի վերափոխել...

🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ  /  Բաժնի ընդմիջումներ  /  Բոլոր վերնագրերը  /  Տեքստային տուփեր  /  Hyperlinks  / Լրացուցիչ հեռացման գործիքների համար այցելեք մեր Հեռացնել խումբը...

Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ  /  Նշեք վանդակները  /  Ռադիո կոճակներ  /  QR Code  /  Շտրիխ կոդ  /  Անկյունագծային աղյուսակ  /  Հավասարության վերնագիր  /  Նկարի վերնագիր  /  Աղյուսակի վերնագիր  /  Բազմաթիվ նկարներ  / Բացահայտեք ավելին Տեղադրեք խումբը...

🔍 Ճշգրիտ ընտրանքներ: Մատնանշել կոնկրետ էջեր  /  սեղաններ  /  ձեւավորում  /  վերնագրի պարբերություններ  / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...

Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր  /  կրկնվող տեքստի ավտոմատ տեղադրում  /  անխափան անցում փաստաթղթի պատուհանների միջև  /  11 Փոխակերպման գործիքներ...

???? Ցանկանու՞մ եք փորձել այս հնարավորությունները: Kutools-ը Word-ի համար առաջարկում է ա 60 օր անվճար դատավարություն, առանց սահմանափակումների! 🚀
 
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