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
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 yn gysylltiedig â thestun y gall y VBA hwn redeg, os oes lluniau gyda hypergysylltiadau, ni all y cod VBA hwn weithio.
Tynnwch yr holl gyfeiriadau hyperddolen gyda 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 hyperddolen
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 yr holl hyperddolenni neu dim ond cyfeiriadau i'r clipfwrdd gyda Kutools ar gyfer 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 am Word yn gallu gwneud y ffafr hon i chi.
Ar ôl gosod Kutools ar gyfer Word, gwnewch fel isod:
1. Cliciwch Kutools Byd Gwaith > Copïwch Hyperlink.
2. Yn y popping Copïwch yr holl hyperddolenni i ddeialog clipfwrdd, dewiswch un opsiwn ag sydd ei angen arnoch.
Nawr, dewiswch un lleoliad rydych chi am osod yr hypergysylltiadau, pwyswch Ctrl + V i'w pastio.
| Copïo a gludo hypergysylltiadau |
 |
| Copïwch a gludwch gyfeiriadau hyperddolen |
 |
Demo: Copïwch Pob Hyperddolen mewn Dogfen Word
Dewch i ddarganfod y Kutools / Kutools Byd Gwaith tab yn y fideo hwn o Kutools am Word. Mwynhewch 100+ o nodweddion a chyfleustodau AI rhad ac am ddim yn barhaol. Lawrlwytho nawr!
| Pori a Golygu Tabiau ar gyfer Dogfennau Word Lluosog / Llyfrau Gwaith Excel, Just Like in Chrome ac Edge! |
Yn union fel pori tudalennau gwe lluosog yn Chrome, Safari ac Edge, mae Office Tab yn caniatáu ichi agor a rheoli sawl dogfen Word neu lyfrau gwaith Excel mewn un ffenestr Word neu ffenestr Excel. Mae newid rhwng dogfennau neu lyfrau gwaith bellach yn syml gyda chlicio ar eu tabiau! |
Erthyglau cysylltiedig:
- 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 am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!
🤖 Nodweddion Kutools AI: Cynhyrchu Cynnwys / Ailysgrifennu Testun / Dogfen Holi ac Ateb / Cael Atebion Cyflym / Cyfieithu dogfennau / Dogfen Bwyleg (Fformat Cadw)...
📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / Trosi swp i PDF...
✏ Golygu Cynnwys: Darganfod Swp ac Amnewid ar draws Ffeiliau Lluosog / Newid Maint Pob Llun / Trawsosod Rhesi Bwrdd a Cholofnau / Trosi Tabl i Testun...
🧹 Ymdrech Glân: swap i ffwrdd Mannau Ychwanegol / Toriadau Adran / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'r Dileu grŵp...
➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Lluniau Lluosog / Darganfod mwy yn y Mewnosod grŵp...
🔍 Detholiadau Manwl: pinbwynt Tudalennau Penodol / Tablau / Siapiau / Pennawd Paragraffau / Gwella llywio gyda mwy dewiswch Nodweddion...
⭐ Gwelliannau Seren: Llywiwch i Unrhyw Leoliad / Awto-Mewnosod Testun Ailadroddus / Toglo Rhwng Windows Document / 11 Trosi offer...
Offer Cynhyrchiant Swyddfa Gorau
Kutools am Word - 100+ Offer ar gyfer Word
- 🤖 Nodweddion Kutools AI: cynhyrchu, Ailysgrifennu, Crynhowch, cyfieithu Dogfennau / Cael Atebion Cyflym / Dogfen Bwyleg (Fformat Cadw)
- 📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Trosi swp i PDF
- ✏ Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid / Newid Maint Pob Llun
- 🧹 Ymdrech Glân: Tynnwch Fannau Ychwanegol / Dileu Toriadau Adran
- ➕ Mewnosodiadau Creadigol: Mewnosod Mil o Wahanwyr / Mewnosod Blychau Gwirio / Creu Codau QR