Conas gach hipearnasc a roghnú agus a chóipeáil ó a Word doiciméad?

I roinnt cásanna, tá doiciméad fada agat ina bhfuil iliomad hipearnasc ann, agus ní gá duit ach na hipearnasc go léir a chóipeáil ón doiciméad seo ag an am céanna agus ansin iad a ghreamú go ceann eile. An bhfuil aon bhealach ann ar féidir iad go léir a chóipeáil go tapa ag an am céanna seachas iad a chóipeáil ceann ar cheann?

Cóipeáil gach hipearnasc le VBA

Sliocht gach seoladh hipearnasc le VBA

Cóipeáil gach hipearnasc nó gan ach seoltaí chuig an ngearrthaisce Kutools for Word

Cóipeáil gach hipearnasc le VBA

1. oscail an Word doiciméad ar mhaith leat na hipearnasc a chóipeáil, agus brúigh Alt + F11 a oscailt Fuinneog Feidhmchlár Amharcbhunaithe Microsoft.

2. cliceáil Ionsáigh > Modúil, agus cóipeáil an VBA seo a leanas isteach san Fhuinneog.

VBA: Cóipeáil gach hipearnasc

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. Cliceáil ar an Rith cnaipe chun an cód VBA a rith. Ansin cóipeáiltear na hipearnasc go léir chuig doiciméad nua. Féadfaidh tú an doiciméad nua a shábháil níos déanaí. Is féidir leat an toradh a fheiceáil mar seo a leanas.

Nóta: Ní féidir leis an VBA seo rith ach amháin nuair a bhíonn na hipearnasc go léir nasctha leis word, má tá pictiúir le hipearnasc, ní féidir leis an gcód VBA seo oibriú.

Sliocht gach hipearnasc seoltaí VBA

1. oscail an Word doiciméad a bhfuil tú ag iarraidh na hipearnasc a bhaint astu, agus brúigh Alt + F11 a oscailt Fuinneog Feidhmchlár Amharcbhunaithe Microsoft.

2. cliceáil Ionsáigh > Modúil, agus cóipeáil an VBA seo a leanas isteach san Fhuinneog.

VBA: Sliocht gach seoladh hipearnasc

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. Cliceáil ar an Rith cnaipe chun an cód VBA a rith. Ansin baintear na seoltaí hipearnasc go léir i ndoiciméad nua, is féidir leat iad a shábháil níos déanaí.

Nóta: Níl seoladh na hipearnasc sliocht san ord bunaidh.

Cóipeáil gach hipearnasc nó gan ach seoltaí chuig an ngearrthaisce Kutools for Word

Más mian leat gach hipearnasc nó seoladh amháin chuig an ngearrthaisce a chóipeáil uaidh Word doiciméad go héasca agus go tapa, an Cóipeáil Hyperlink fóntais de Kutools for Word an féidir leat an fabhar seo a dhéanamh.

Tar éis a shuiteáil Kutools for Word, déan mar atá thíos le do thoil:（ Íoslódáil saor in aisce Kutools for Word Anois!)

1. cliceáil Kutools Níos mó > Cóipeáil Hyperlink.

2. Sa dialóg popping, roghnaigh rogha amháin de réir mar is gá duit.

Anois, roghnaigh suíomh amháin ar mhaith leat na hipearnasc a chur ann, brúigh Ctrl + V chun iad a ghreamú.

Cóipeáil agus greamaigh hipearnasc

Cóipeáil agus greamaigh seoladh hipearnasc

  Taispeántas: Cóipeáil Hipearnasc

Brabhsáil tabbed & eagarthóireacht iolrach Word doiciméid/Excel leabhair oibre mar Firefox, Chrome, Internet Explore 10!

Seans go bhfuil tú eolach féachaint ar leathanaigh ghréasáin iolracha i Firefox/Chrome/IE, agus aistriú eatarthu trí chliceáil ar na cluaisíní comhfhreagracha go héasca. Anseo, Office Tab Tacaíonn próiseáil den chineál céanna, a ligeann duit brabhsáil iolrach Word doiciméid nó Excel leabhair oibre i gceann Word fuinneog nó Excel fhuinneog, agus go héasca aistrigh eatarthu trí chliceáil ar a gcuid cluaisíní. Cliceáil le haghaidh trialach saor in aisce Office Tab!

Ailt Choibhneasta:

• Ionsáigh, bain agus liostaigh gach hipearnasc den doiciméad reatha i Word
• Cuir isteach hipearnasc iolracha chuig doiciméad i Word
• Bain gach hipearnasc isteach Word

---

molta Word Uirlisí Táirgiúlachta

 

Kutools For Word - Níos mó ná 100 Ardghnéithe Do Word, Sábháil Do Am 50%.

• Is féidir oibríochtaí casta agus arís agus arís eile a dhéanamh próiseáil aon-uaire i soicindí.
• Cuir isteach íomhánna iolracha trasna fillteáin isteach Word doiciméad láithreach.
• Cumaisc agus cuir le chéile iolrach Word comhaid trasna fillteáin isteach i gceann le d'ordú inmhianaithe.
• Roinn an doiciméad reatha i ndoiciméid ar leithligh de réir ceannteidil, briseadh ailt nó critéir eile.
• Tiontaigh comhaid idir Doc agus Docx, Docx agus PDF, bailiú uirlisí le haghaidh comhshó agus roghnú coitianta, agus mar sin de ...

Leigh Nios mo Íosluchtaigh Anois Ceannach