Ինչպե՞ս ընտրել և պատճենել բոլոր հիպերհղումները Word փաստաթղթից:
Որոշ դեպքերում դուք ունեք մի երկար փաստաթուղթ, որում առկա են բազմաթիվ հիպերհղումներ, և անհրաժեշտ է միանգամից պատճենել բոլոր հիպերհղումները այս փաստաթղթից և այնուհետեւ դրանք տեղադրել մեկ այլի: Կա՞ որևէ ձև, որը կարող է արագորեն պատճենել բոլորը միանգամից պատճենելու փոխարեն:
Պատճենեք բոլոր հղումները VBA- ով
VBA- ով հանեք բոլոր հիպերհղումների հասցեները
Kutools- ի համար Word- ի հետ պատճենեք բոլոր հիպերհղումները կամ միայն հասցեները clipboard- ում
Պատճենեք բոլոր հղումները 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 > Պատճենել հղումը.
2. Բացվող պատուհանում ընտրեք մեկ տարբերակ, որքան ձեզ հարկավոր է:
Այժմ ընտրեք մեկ վայր, որը ցանկանում եք տեղադրել հղումները, սեղմել Ctrl + V դրանք կպցնելու համար:
Պատճենեք և տեղադրեք հիպերհղումները |
Պատճենեք և տեղադրեք հիպերհղման հասցեն |
Դեմո. Պատճեն հիպերհղումը
Ներդիրներով զննում և խմբագրում բազմաթիվ Word փաստաթղթեր / Excel աշխատանքային գրքեր ՝ Firefox, Chrome, Internet Explore 10: |
Ձեզ կարող է ծանոթ լինել Firefox / Chrome / IE- ում մի քանի ինտերնետային էջեր դիտելու և դրանց միջև փոխանակելը ՝ հեշտությամբ սեղմելով համապատասխան ներդիրները: Այստեղ Office Tab- ն աջակցում է նմանատիպ վերամշակման, որը թույլ է տալիս թերթել բազմաթիվ Word փաստաթղթեր կամ Excel աշխատանքային գրքեր մեկ Word պատուհանում կամ Excel պատուհանում և հեշտությամբ փոխել նրանց միջև ՝ կտտացնելով դրանց ներդիրներին: |
Հարաբերական հոդվածներ:
- Տեղադրեք, հանեք և ցուցակագրեք Word- ում առկա ընթացիկ փաստաթղթի բոլոր հղումները
- Word- ում տեղադրեք մի փաստաթղթի բազմաթիվ հղումներ
- Հեռացրեք Word- ի բոլոր հղումները
Գրասենյակի արտադրողականության լավագույն գործիքները
Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!
🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն / Վերաշարադրել տեքստը / Ամփոփել փաստաթղթերը / Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում
📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում / Միաձուլեք փաստաթղթերը / Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...) / Խմբաքանակի փոխակերպում PDF-ի / Արտահանել էջերը որպես պատկերներ / Միանգամից մի քանի ֆայլ տպեք...
✏ Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով / Չափափոխել բոլոր նկարները / Փոխադրել աղյուսակի տողերը և սյունակները / Աղյուսակը տեքստի վերափոխել...
🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ / Բաժնի ընդմիջումներ / Բոլոր վերնագրերը / Տեքստային տուփեր / Hyperlinks / Լրացուցիչ հեռացման գործիքների համար այցելեք մեր Հեռացնել խումբը...
➕ Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ / Նշեք վանդակները / Ռադիո կոճակներ / QR Code / Շտրիխ կոդ / Անկյունագծային աղյուսակ / Հավասարության վերնագիր / Նկարի վերնագիր / Աղյուսակի վերնագիր / Բազմաթիվ նկարներ / Բացահայտեք ավելին Տեղադրեք խումբը...
🔍 Ճշգրիտ ընտրանքներ: Մատնանշել կոնկրետ էջեր / սեղաններ / ձեւավորում / վերնագրի պարբերություններ / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...
⭐ Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր / կրկնվող տեքստի ավտոմատ տեղադրում / անխափան անցում փաստաթղթի պատուհանների միջև / 11 Փոխակերպման գործիքներ...