Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

Ինչպե՞ս ընտրել և պատճենել բոլոր հիպերհղումները 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 for Word - Ավելի քան 100 առաջադեմ գործառույթներ Word- ի համար, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Gon · 4 months ago
    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!!!

  • To post as a guest, your comment is unpublished.
    Fabian · 3 years ago
    Thank you so much! This was exactly what I was looking for!
  • To post as a guest, your comment is unpublished.
    Adrine Bio · 4 years ago
    I am amazed. That's gold. You saved me a ton of work.
  • To post as a guest, your comment is unpublished.
    manny kuyr · 4 years ago
    [b]Height of Legendary, thanks a million[/b]
  • To post as a guest, your comment is unpublished.
    Shadab · 5 years ago
    Can I get the same script to run in outlook?
  • To post as a guest, your comment is unpublished.
    Tony Macelli · 5 years ago
    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
  • To post as a guest, your comment is unpublished.
    Sanjay K. · 5 years ago
    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
    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]
    • To post as a guest, your comment is unpublished.
      Pompeia · 4 years ago
      This code works fine to me. The two on examples in the article description don't. Thanks a lot and my best regards.
    • To post as a guest, your comment is unpublished.
      Rashesh Bosamiya · 5 years ago
      Thank you very much for this script.
      This helped me to extract 5K links.

      Thank you very much.
  • To post as a guest, your comment is unpublished.
    Dean · 5 years ago
    Thank you. Just what I needed to parse a document.
  • To post as a guest, your comment is unpublished.
    Maria · 6 years ago
    Indeed! ONE year later, am having similar issues and totally bawled over by your wonderful help!!
    God Bless YOu!!
  • To post as a guest, your comment is unpublished.
    sid · 6 years ago
    it is prompting " Compile Error: Syntax Error"
    Please help me, I need to do a lot of work using this .Reply asap
  • To post as a guest, your comment is unpublished.
    Mert · 7 years ago
    wow, its great. Thank you so much
  • To post as a guest, your comment is unpublished.
    Richie · 7 years ago
    Omg this is legendary stuff. So helpful. Thanks a lot! :-)