Sut i ddewis a chopïo pob hyperddolen o ddogfen Word?

Mewn rhai achosion, mae gennych ddogfen hir gyda sawl dolen gyswllt yn bodoli, a dim ond ar unwaith o'r ddogfen hon y mae angen i chi gopïo'r holl hypergysylltiadau ac yna eu pastio i un arall. A oes unrhyw ffordd y gall copïo pob un ohonynt yn gyflym ar unwaith yn lle eu copïo fesul un?

Copïwch yr holl hypergysylltiadau â VBA

Tynnwch yr holl gyfeiriadau hyperddolenni gyda VBA

Copïwch bob hyperddolen neu gyfeiriadau i'r clipfwrdd yn unig gyda nhw Kutools for Word

Copïwch yr holl hypergysylltiadau â VBA

1. Agorwch y ddogfen Word rydych chi am gopïo'r hypergysylltiadau, a gwasgwch Alt + F11 i agor y Ffenestr Cymhwysiad Seiliedig ar Weledol Microsoft.

2. Cliciwch Mewnosod > Modiwlau, a chopïwch y VBA canlynol i'r Ffenestr.

VBA: Copïwch yr holl hyperddolenni

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. Cliciwch ar y Run botwm i redeg y cod VBA. Yna mae'r holl hypergysylltiadau yn cael eu copïo i ddogfen newydd. Gallwch arbed y ddogfen newydd yn nes ymlaen. Gallwch weld y canlyniad fel a ganlyn.

Nodyn: Dim ond pan fydd yr holl hypergysylltiadau wedi'u cysylltu â gair y gall y VBA hwn redeg, os oes lluniau gyda hypergysylltiadau, ni all y cod VBA hwn weithio.

Tynnwch yr holl hypergysylltiadau cyfeiriadau VBA

1. Agorwch y ddogfen Word yr ydych am ei thynnu'r hypergysylltiadau, a gwasgwch Alt + F11 i agor y Ffenestr Cymhwysiad Seiliedig ar Weledol Microsoft.

2. Cliciwch Mewnosod > Modiwlau, a chopïwch y VBA canlynol i'r Ffenestr.

VBA: Tynnwch yr holl gyfeiriadau hyperddolenni

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. Cliciwch ar y Run botwm i redeg y cod VBA. Yna mae'r holl gyfeiriadau hypergysylltiadau yn cael eu tynnu mewn dogfen newydd, gallwch ei chadw yn nes ymlaen.

Nodyn: Nid yw'r cyfeiriad hypergysylltiadau dyfyniad yn y drefn wreiddiol.

Copïwch bob hyperddolen neu gyfeiriadau i'r clipfwrdd yn unig gyda nhw Kutools for Word

Os ydych chi am gopïo pob hyperddolen neu gyfeiriadau yn unig i glipfwrdd o ddogfen Word yn hawdd ac yn gyflym, bydd y Copïwch Hyperlink cyfleustodau Kutools for Word yn gallu gwneud y ffafr hon i chi.

Ar ôl gosod Kutools for Word, gwnewch fel y nodir isod:(Lawrlwythiad Am Ddim Kutools for Word Nawr!)

1. Cliciwch Kutools Byd Gwaith > Copïwch Hyperlink.

2. Yn y dialog popping, dewiswch un opsiwn yn ôl yr angen.

Nawr, dewiswch un lleoliad rydych chi am osod yr hypergysylltiadau, pwyswch Ctrl + V i'w pastio.

Copïo a gludo hypergysylltiadau

Copïo a gludo cyfeiriad hyperddolen

  Demo: Copïo Hyperlink

Pori tabbed a golygu nifer o ddogfennau Word / llyfrau gwaith Excel fel Firefox, Chrome, Internet Explore 10!

Efallai y byddwch yn gyfarwydd i weld tudalennau gwe lluosog yn Firefox/Chrome/IE, a newid rhyngddynt drwy glicio tabiau cyfatebol yn hawdd. Yma, Office Tab yn cefnogi prosesu tebyg, sy'n eich galluogi i bori sawl dogfen Word neu lyfrau gwaith Excel mewn un ffenestr Word neu ffenestr Excel, a newid yn hawdd rhyngddynt trwy glicio ar eu tabiau. Cliciwch ar gyfer treial am ddim o Office Tab!

Erthyglau Perthynas:

• Mewnosod, dileu a rhestru holl hyperddolenni'r ddogfen gyfredol yn Word
• Mewnosod hypergysylltiadau lluosog i ddogfen yn Word
• Tynnwch yr holl hyperddolenni yn Word

Offer Cynhyrchiant Swyddfa Gorau

Kutools for Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!

Plymiwch i mewn i'r nodweddion a amlygwyd isod neu cliciwch yma i archwilio grym llawn Kutools for Word.

📘 Meistrolaeth Dogfen: Tudalennau Hollti  /  Uno Dogfennau  /  Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/XLSX)  /  Trosi swp i PDF  /  Allforio Tudalennau fel Delweddau  /  Argraffu Ffeiliau Lluosog ar unwaith ...

✏ Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid ar draws Ffeiliau Lluosog   /  Newid Maint Pob Llun   /  Trawsosod Rhesi Bwrdd a Cholofnau  /  Trosi Tabl i Testun ...

🧹 Ymdrech Glân: Sweap i ffwrdd Mannau Ychwanegol  /  Toriadau Adran  /   Pob Pennawd  /  Blychau Testun  /  hypergysylltiadau  /  I gael rhagor o offer tynnu, ewch i'n Grŵp Dileu

➕ Mewnosodiadau Creadigol: Mewnosod Mil o Wahanwyr  /  Blychau Gwirio  /  Botymau Radio  /  Cod QR  /  Cod Bar  /  Tabl Llinell Lletraws  /  Pennawd Hafaliad  /  Capsiwn Delwedd  /  Pennawd Tabl  /  Lluniau Lluosog  /  Darganfyddwch fwy yn ein Insert Group

🔍 Detholiadau Manwl: Nodwch dudalennau penodol  /  tablau  /  siapiau  /  paragraffau pennawd  /  Llywiwch yn rhwydd gan ddefnyddio ein Grŵp Dewis

⭐ Gwelliannau Seren: Llywiwch yn gyflym i unrhyw leoliad  /  auto-mewnosod testun ailadroddus  /  toglo'n ddi-dor rhwng ffenestri dogfennau  /  11 Offer Trosi ...

Trawsnewidiwch eich tasgau Word gyda Kutools. 👉 Dadlwythwch gyda threial 30 diwrnod Nawr 🚀.

Darllenwch fwy       Lawrlwythiad Am Ddim      prynu