Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս ընտրել և պատճենել բոլոր հիպերհղումները 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 բառի համար, ավելի քան 100 հարմար գործառույթներ, հեշտացնում է ձեր գործերը: 

Տեղադրելուց հետո 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 Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (16)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Omg, սա լեգենդար բան է: Այնքան օգտակար: Շատ շնորհակալություն! :-)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
wow, դա հիանալի է: Շատ շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այն հուշում է «Կազմագրման սխալ. շարահյուսական սխալ» Խնդրում եմ օգնեք ինձ, ես պետք է շատ աշխատանք կատարեմ՝ օգտագործելով սա: Պատասխանել շուտափույթ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Իսկապես! ՄԵԿ տարի անց ես նման խնդիրներ ունեմ և լիովին ցնցված եմ ձեր հիանալի օգնության համար: Աստված օրհնի քեզ!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն. Պարզապես այն, ինչ ինձ անհրաժեշտ էր փաստաթուղթը վերլուծելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Գերազանց! Այն օգնեց ինձ որոշ հղումներ հանել html ֆայլից, որը ես բացեցի Word-ով (Excel-ը մերժում էր որոշ հղումներ): Ահա փոփոխված կոդը, որպեսզի ստեղծվի csv ֆայլ, որը կարող է հետագայում օգտագործվել: [մեջբերում]SubGetAllHyperlinks() 'Udateby20160504' https://www.extendoffice.com/documents/word/1411-word-select-copy-all-hyperlinks.html+&cd=1&hl=en&ct=clnk&gl=us<br /> Dim docCurrent-ը որպես փաստաթուղթ Dim docNew-ը որպես փաստաթուղթ Dim oLink-ը որպես հիպերհղում Dim rng-ը որպես տիրույթի Application.ScreenUpdating = False Set docCurrent = ActiveDocument Set docNew = Documents.Add For Յուրաքանչյուր oLink-ի համար docCurrent.Rngeterc. oLink.TextToDisplay) rng.InsertAfter (", ") rng.InsertAfter (oLink.Address) rng.InsertAfter (vbCrLf) Հաջորդ docNew.Activate Application.ScreenUpdating = True Application.ScreenRefresh End Sub[/quote]
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ այս սցենարի համար: Սա օգնեց ինձ հանել 5K հղումներ: Շատ շնորհակալություն.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդը լավ է աշխատում ինձ համար: Հոդվածի նկարագրության երկու օրինակները չեն: Շատ շնորհակալություն և իմ լավագույն մաղթանքներով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա հիանալի նյութ է: Շատ շնորհակալություն. Ի՞նչ փոփոխություններ պետք է անեմ GetAllHyperlinks()-ում հետևյալ դեպքի համար: -- բնօրինակ փաստաթուղթը պարունակում է ինչպես նորմալ տեքստ, այնպես էլ հղումներ -- արդյունք է պահանջվում. նույն փաստաթուղթը, բայց յուրաքանչյուր հղմանը հաջորդում է բացատ և URL Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ եմ նույն սցենարը ստանալ Outlook-ում գործարկելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լեգենդարի հասակը, շնորհակալություն մեկ միլիոն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ապշած եմ. Դա ոսկի է: Դուք ինձ փրկեցիք մի տոննա աշխատանք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն! Սա հենց այն էր, ինչ ես փնտրում էի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Տպավորիչ! Millón de gracias.Me ունի 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 milón de gracias!!!

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող ենք արտահանել word ֆայլի հիպերհղումներ և դա տեքստային ցուցադրում է Excel ֆայլ: 
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ տեղեկություն! Այն օգնեց ինձ հղումներ հանել html ֆայլից, որը բացել էի Word-ում: Անդրադառնանք թխուկների սեղմիչը նոր գաղափար է:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր