Hogyan válasszuk ki és másoljuk az összes hiperhivatkozást egy Word-dokumentumból?
Bizonyos esetekben egy hosszú, több hiperhivatkozással rendelkező dokumentum van a fájlban, és csak egyszerre kell lemásolnia az összes hiperhivatkozást erről a dokumentumról, majd be kell illesztenie egy másikba. Van-e valamilyen módja annak, hogy gyorsan mindegyiket egyszerre lemásolja, ahelyett, hogy egyesével másolná őket?
Másolja az összes hiperhivatkozást a VBA segítségével
Bontsa ki az összes hiperhivatkozás címét a VBA segítségével
Másolja az összes hiperhivatkozást vagy csak a címeket a vágólapra a Kutools for Word segítségével
Másolja az összes hiperhivatkozást a VBA segítségével
1. Nyissa meg azt a Word dokumentumot, amelyet át akar másolni a hiperhivatkozásokra, majd nyomja meg az gombot Alt + F11 megnyitni Microsoft Visual Based Application ablak.
2. kettyenés betétlap > Modulok, és másolja a következő VBA-t az Ablakba.
VBA: Másolja az összes hiperhivatkozást
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. Kattintson a futás gombot a VBA kód futtatásához. Ezután az összes hiperhivatkozást új dokumentumba másolja. Később mentheti az új dokumentumot. Az eredményt a következőképpen láthatja.
Jegyzet: Ez a VBA csak akkor futtatható, ha az összes hiperhivatkozás szóhoz van kapcsolva, ha vannak hiperhivatkozással rendelkező képek, akkor ez a VBA-kód nem működik.
Bontsa ki az összes hiperhivatkozást a VBA-val
1. Nyissa meg a hiperhivatkozásokat kibontani kívánt Word dokumentumot, majd nyomja meg az gombot Alt + F11 megnyitni Microsoft Visual Based Application ablak.
2. kettyenés betétlap > Modulok, és másolja a következő VBA-t az Ablakba.
VBA: Az összes hiperhivatkozás címének kibontása
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. Kattintson a futás gombot a VBA kód futtatásához. Ezután az összes hiperhivatkozás címet kibontja egy új dokumentumba, később mentheti.
Jegyzet: A kivonat hiperhivatkozás címe nem az eredeti sorrendben van.
Másolja az összes hiperhivatkozást vagy csak a címeket a vágólapra a Kutools for Word segítségével
Ha az összes hiperhivatkozást vagy csak címeket vágólapra akarja másolni a Word dokumentumból, egyszerűen és gyorsan, akkor Hiperhivatkozás másolása hasznossága Kutools for Word teheti ezt a szívességet.
Kutools for Word, Több mint praktikus funkciókkal megkönnyíti a munkáját. | ||
Telepítése után Kutools for Word, kérjük, tegye a következőket:(A Kutools for Word ingyenes letöltése most!)
1. kettyenés Kutools Plus > Hiperhivatkozás másolása.
2. A felbukkanó párbeszédpanelen válassza ki az egyik lehetőséget, amire szüksége van.
Most válassza ki a hiperhivatkozások helyét, majd nyomja meg az gombot Ctrl + V hogy beillessze őket.
Másolja és illessze be a hiperhivatkozásokat |
Másolja és illessze be a hiperhivatkozás címét |
Bemutató: Hiperhivatkozás másolása
Füles böngészés és több Word-dokumentum / Excel-munkafüzet szerkesztése Firefox, Chrome, Internet Explore 10 néven! |
Ismerős lehet, hogy Firefox/Chrome/IE böngészőben több weboldalt is megtekinthet, és a megfelelő lapokra kattintva egyszerűen válthat közöttük. Itt az Office Tab támogatja a hasonló feldolgozást, amely lehetővé teszi több Word-dokumentum vagy Excel-munkafüzet böngészését egy Word- vagy Excel-ablakban, és a fülükre kattintva könnyedén válthat közöttük. |
Relatív cikkek:
- Helyezze be, távolítsa el és sorolja fel az aktuális dokumentum összes hivatkozását a Word-be
- Helyezzen be több hiperhivatkozást egy dokumentumba a Wordben
- Távolítsa el az összes hiperhivatkozást a Wordből
A legjobb irodai hatékonyságnövelő eszközök
Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!
🤖 Kutools AI asszisztens: Alakítsa át írását mesterséges intelligencia segítségével - Tartalom létrehozása / Szöveg átírása / Összefoglalja a dokumentumokat / Információért érdeklődjön dokumentum alapján, mindezt a Word-en belül
📘 Dokumentummesterség: Felosztott oldalak / Dokumentumok egyesítése / Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/HTML...) / Kötegelt konvertálás PDF-be / Oldalak exportálása képként / Nyomtasson több fájlt egyszerre...
✏ Tartalom Szerkesztés: Kötegelt keresés és csere Több fájl között / Minden kép átméretezése / Transzponálja a táblázat sorait és oszlopait / Táblázat konvertálása szöveggé...
🧹 Könnyed tisztítás: Söpörj el Extra helyek / Szakaszszünetek / Minden fejléc / Szövegdobozok / Hiperhivatkozások / További eltávolító eszközökért látogasson el a mi oldalunkra Csoport eltávolítása...
➕ Kreatív betétek: Beszúrás Ezer elválasztó / Jelölőnégyzetek / Rádió gombok / QR-kód / Vonalkód / Átlós vonal táblázat / Egyenletfelirat / Képfelirat / Táblázat felirata / Több kép / Fedezzen fel többet a Csoport beszúrása...
???? Precíziós kiválasztás: Pontosan konkrét oldalak / asztalok / formák / címsor bekezdései / A navigáció javítása a következővel: több Jelölje ki a funkciókat...
⭐ Star Enhancements: Gyorsan navigáljon bármely helyre / ismétlődő szöveg automatikus beszúrása / zökkenőmentesen válthat a dokumentumablakok között / 11 Konverziós eszközök...