Tässä artikkelissa näytetään kaksi nopeaa tapaa erittää kaikki hyperlinkit Word-dokumentista linkkien seuraamiseksi.
Aina niin usein Word-asiakirjassa voi olla satoja hyperlinkkejä. Tässä tilanteessa, jos sinun on seurattava tiettyä linkkiä, sinun on selattava asiakirjaa etsimään se ensin, mikä voi olla tällainen kipu pitkässä tiedostossa.
Jos kuitenkin viet ne uuteen asiakirjaan, asiat voivat olla paljon helpompia. Tässä ovat ratkaisumme.
Tapa 1: Käytä Etsi-ominaisuutta
- Napsauta ensin "Koti" -välilehteä ja sitten "Etsi" -komennon lähellä olevaa nuolipainiketta.
- Valitse avattavasta valikosta "Lisähaku" avataksesi "Etsi ja korvaa" -valintaikkunan.
- Napsauta sitten Lisää-painiketta ja napsauta Alusta.
- Valitse "Tyyli" avataksesi "Etsi tyyli" -ruudun.
- Valitse "Hyperlinkki" ja napsauta "OK".
- Napsauta sitten "Etsi" ja valitse "Pääasiakirja".
Näet kaikki hyperlinkit valinnassa nyt. Jos kopioit ja liität ne uuteen asiakirjaan, huomaat, että linkit menettävät muotoilunsa ja muuttuvat tavallisiksi teksteiksi.
Tällä hetkellä Microsoftilla ei ole ratkaisua tähän ongelmaan. Joten joudut muuntamaan tavalliset tekstit takaisin hyperlinkeiksi uudelleen manuaalisesti. Tässä on aikaisempi artikkeli, jossa luetellaan erilaisia tapoja seurata: 5 tapaa muuntaa URL-tekstit hyperlinkeiksi Word-dokumentissasi
Tämän puutteen takia suosittelemme sinulle toista tapaa, joka suoritetaan myös "Find" -ominaisuuden avulla. Katso tämän artikkelin osio "Löydä kaikki hyperlinkit dokumentista": Hyperlinkkien löytäminen, muuttaminen ja poistaminen Word-asiakirjasta
Kun olet löytänyt kaikki hyperlinkit, vie ne "Kopioi" - ja "Liitä" -työillä.
Tapa 2: Suorita VBA-koodit
- Ensinnäkin, paina "Alt + F11" avataksesi VBA-editorin.
- Napsauta seuraavaksi ”Lisää” ja valitse ”Moduuli” luodaksesi uuden “Normaali” -projektin alle.
- Kaksoisnapsauta sitten moduulia avataksesi muokkaustilan ja liitä palavat koodit sinne:
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
- Napsauta lopuksi Suorita-painiketta.
Nyt uusi asiakirja on auki ja kaikki hyperlinkit ovat napsautettavissa siellä.
Lisäksi, jos tiedostoja on käsiteltävä, voit suorittaa tämän makrokartan:
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
Muista järjestää kaikki asiakirjat ensin yhteen kansioon. Suorita sitten yllä oleva makro saadaksesi syöttöruutu. Kirjoita kansion polku ja napsauta “OK”.
Kaikki hyperlinkit ovat nyt saatavilla uudessa asiakirjassa.
Valmiina Word-virheisiin
Riippumatta siitä, kuinka haluttomia olemme törmäämään Word-virheeseen. On väistämätöntä kärsiä tästä aika ajoin. Ehdotuksemme on, kun Word romahtaa ja valitsee taitavan Sanakorjaus työkalu. Jätä vain kaikki ammattilaisille.
Tekijän esittely:
Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien xls vaurioita ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com