See artikkel näitab teile kahte kiiret viisi, kuidas kõik hüperlingid oma Wordi dokumendist pakkida, et linke järgida.
Aeg-ajalt võib üle kogu Wordi dokumendi olla sadu hüperlinke. Selle stsenaariumi korral, kui peate järgima konkreetset linki, peate selle leidmiseks kõigepealt dokumendis liikuma, mis võib pika faili puhul olla nii valus.
Kui aga ekspordite need uude dokumenti, võivad asjad muutuda palju lihtsamaks. Siin on meie lahendused.
1. meetod: kasutage funktsiooni Otsi
- Esiteks klõpsake vahekaarti "Kodu" ja seejärel käsu "Leia" lähedal asuvat nooleotsa nuppu.
- Dialoogiboksi "Otsi ja asenda" avamiseks valige rippmenüüst "Täpsem otsing".
- Järgmisena klõpsake nuppu "Veel" ja klõpsake nuppu "Vorminda".
- Kasti "Leia stiil" avamiseks valige "Stiil".
- Valige "Hüperlink" ja klõpsake "OK".
- Seejärel klõpsake "Otsi" ja valige "Põhidokument".
Nüüd näete kõiki valikus olevaid hüperlinke. Kui aga kopeerite ja kleepite need uude dokumenti, avastate, et lingid kaotavad vormingu ja muutuvad lihttekstideks.
Praegu pole Microsoftil sellele probleemile lahendust. Seega peate lihttekstid uuesti käsitsi hüperlinkideks teisendama. Siin on meie varasem artikkel, kus on loetletud erinevad viisid, mida saate järgida: 5 viisi URL-i tekstide teisendamiseks hüperlinkideks oma Wordi dokumendis
Selle puuduse tõttu soovitame teist viisi, mida tehakse ka funktsiooni „Otsi” abil. Vaadake selle artikli jaotist "Dokumendist kõigi hüperlinkide otsimine": Kuidas leida, muuta ja kustutada hüperlinke oma Wordi dokumendis
Pärast kõigi hüperlinkide leidmist teete nende eksportimiseks "Kopeeri" ja "Kleebi".
2. meetod: käivitage VBA koodid
- Esiteks ja kõige tähtsam on VBA redaktori avamiseks vajutada klahvikombinatsiooni „Alt + F11”.
- Järgmisena klõpsake nuppu "Insert" ja valige "Moodul", et luua uus projekti "Tavaline" all.
- Seejärel topeltklõpsake redigeerimisruumi avamiseks moodulit ja kleepige sinna allolevad koodid:
Sub ExtractAllhyperlinksInDoc()
Dim objDoc As Document, objNewDoc As Document
Dim objHyperlink As Hyperlink
' Initialization
Set objDoc = ActiveDocument
Set objNewDoc = Documents.Add
' Copy hyperlinks and paste them to a new document.
With objDoc
For Each objHyperlink In .Hyperlinks
objHyperlink.Range.Copy
objNewDoc.Activate
With Selection
.Paste
.InsertParagraph
.Collapse Direction:=wdCollapseEnd
End With
Next objHyperlink
End With
End Sub
- Lõpuks klõpsake nuppu "Käivita".
Nüüd avaneb uus dokument ja kõik hüperlingid on seal klikitavad.
Peale selle, kui töödeldakse palju faile, saate käivitada järgmise makro:
Sub ExtractHyperlinksFromMultiDoc()
Dim objDoc As Document, objNewDoc As Document
Dim objHyperlink As Hyperlink
Dim strFile As String, strFolder As String
' Initialization
Set objNewDoc = Documents.Add
strFolder = InputBox("Enter folder path here: ", "Folder path")
strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
' Open each file in the folder to extract hyperlinks and past them to a new document.
While strFile <> ""
Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
With objDoc
For Each objHyperlink In .Hyperlinks
objHyperlink.Range.Copy
objNewDoc.Activate
With Selection
.Paste
.InsertParagraph
.Collapse Direction:=wdCollapseEnd
End With
Next objHyperlink
End With
objDoc.Close
strFile = Dir()
Wend
End Sub
Ärge unustage korraldada kõik dokumendid kõigepealt ühte kausta. Seejärel käivitage sisestuskasti saamiseks ülaltoodud makro. Sisestage kausta tee ja klõpsake "OK".
Kõik hüperlingid on nüüd saadaval uues dokumendis.
Sõnavigade jaoks valmis
Olenemata sellest, kui vastumeelselt me Wordi veaga kokku puutume. Seda on paratamatu aeg-ajalt kannatada. Meie soovitus on, kui Word kukub kokku, valime asjatundja Sõnaparandus tööriist. Jätke kõik lihtsalt professionaali hooleks.
Autori sissejuhatus:
Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas xls kahju ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom