Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie wählt man alle Hyperlinks aus einem Word-Dokument aus und kopiert sie?

In einigen Fällen haben Sie ein langes Dokument mit mehreren vorhandenen Hyperlinks, und Sie müssen nur alle Hyperlinks aus diesem Dokument gleichzeitig kopieren und dann in ein anderes einfügen. Gibt es eine Möglichkeit, alle schnell auf einmal zu kopieren, anstatt sie einzeln zu kopieren?

Kopieren Sie alle Hyperlinks mit VBA

Extrahiere alle Hyperlink-Adressen mit VBA

Kopieren Sie alle Hyperlinks oder nur Adressen in die Zwischenablage mit Kutools for Wordgute Idee3


Pfeil blaue rechte Blase Kopieren Sie alle Hyperlinks mit VBA

1. Öffnen Sie das Word-Dokument, das Sie die Hyperlinks kopieren möchten, und drücken Sie Alt + F11 öffnen Microsoft Visual basiertes Anwendungsfenster.

2 Klicken Einsatz > Modul, und kopieren Sie den folgenden VBA in das Fenster.

VBA: Kopiere alle Hyperlinks

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. Klicken Sie auf die Run Schaltfläche, um den VBA-Code auszuführen. Dann werden alle Hyperlinks in ein neues Dokument kopiert. Sie können das neue Dokument später speichern. Sie können das Ergebnis wie folgt sehen.

Hinweis: Dieser VBA kann nur ausgeführt werden, wenn alle Hyperlinks mit Word verknüpft sind. Wenn Bilder mit Hyperlinks vorhanden sind, kann dieser VBA-Code nicht funktionieren.


Pfeil blaue rechte Blase Extrahiere alle Hyperlinksadressen mit VBA

1. Öffnen Sie das Word-Dokument, das Sie die Hyperlinks extrahieren möchten, und drücken Sie Alt + F11 öffnen Microsoft Visual basiertes Anwendungsfenster.

2 Klicken Einsatz > Modul, und kopieren Sie den folgenden VBA in das Fenster.

VBA: Extrahiere alle Hyperlink-Adressen

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. Klicken Sie auf die Run Schaltfläche, um den VBA-Code auszuführen. Dann werden alle Hyperlink-Adressen in einem neuen Dokument extrahiert, das Sie später speichern können.

Hinweis: Die Hyperlink-Adresse des Extrakts befindet sich nicht in der ursprünglichen Reihenfolge.


Pfeil blaue rechte Blase Kopieren Sie alle Hyperlinks oder nur Adressen in die Zwischenablage mit Kutools for Word

Wenn Sie alle Hyperlinks oder nur Adressen einfach und schnell aus einem Word-Dokument in die Zwischenablage kopieren möchten, können Sie das Hyperlink kopieren Nutzen von Kutools for Word Kannst du diesen Gefallen tun?

Kutools for Word, mit mehr als 100 handliche Funktionen, erleichtert Ihre Arbeit.
Gehe zu Download
Kostenlose Testversion 45 Tage

Nach der Installation Kutools für Word, bitte tun Sie wie folgt:(Kutools für Word jetzt kostenlos herunterladen!)

1 Klicken Kutools Plus > Hyperlink kopieren.
Dokument kopieren Hyperlinks 1

2. Wählen Sie im Popup-Dialogfeld je nach Bedarf eine Option aus.
Dokument kopieren Hyperlinks 2

Wählen Sie nun einen Ort aus, an dem Sie die Hyperlinks platzieren möchten, und drücken Sie Strg + V um sie einzufügen.

Hyperlinks kopieren und einfügen
Dokument kopieren Hyperlinks 3
Kopieren Sie die Hyperlinkadresse und fügen Sie sie ein
Dokument kopieren Hyperlinks 4

Tabbed Browsing & Bearbeitung mehrerer Word-Dokumente / Excel-Arbeitsmappen wie Firefox, Chrome, Internet Explorer 10!

Sie kennen vielleicht mehrere Webseiten in Firefox / Chrome / IE und wechseln zwischen diesen, indem Sie einfach auf die entsprechenden Registerkarten klicken. Hier unterstützt Office Tab eine ähnliche Verarbeitung, mit der Sie mehrere Word-Dokumente oder Excel-Arbeitsmappen in einem Word- oder Excel-Fenster durchsuchen und zwischen den einzelnen Tabs wechseln können.
Klicken Sie hier für eine kostenlose Testversion von Office Tab!

Durchsuchen Sie mehrere Word-Dokumente in einem Fenster als Firefox

Relative Artikel:



Empfohlene Word-Produktivitätswerkzeuge

Kutools für Word - Mehr als 100 Erweiterte Funktionen Sparen Sie bei Word 50% Zeit

  • Komplizierte und wiederholte Operationen können in Sekundenschnelle einmalig ausgeführt werden.
  • Fügen Sie mehrere Bilder in verschiedenen Ordnern gleichzeitig in ein Word-Dokument ein.
  • Führen Sie mehrere Word-Dateien in Ordnern zusammen und kombinieren Sie sie in der gewünschten Reihenfolge.
  • Teilen Sie das aktuelle Dokument nach Überschrift, Abschnittswechsel oder anderen Kriterien in separate Dokumente auf.
  • Konvertieren Sie Dateien zwischen Doc und Docx, Docx und PDF, Sammlung von Tools für gemeinsame Konvertierungen und Auswahl usw.
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Fabian · 1 years ago
    Thank you so much! This was exactly what I was looking for!
  • To post as a guest, your comment is unpublished.
    Adrine Bio · 1 years ago
    I am amazed. That's gold. You saved me a ton of work.
  • To post as a guest, your comment is unpublished.
    manny kuyr · 2 years ago
    [b]Height of Legendary, thanks a million[/b]
  • To post as a guest, your comment is unpublished.
    Shadab · 2 years ago
    Can I get the same script to run in outlook?
  • To post as a guest, your comment is unpublished.
    Tony Macelli · 3 years ago
    This is great stuff! Many thanks.
    What changes do I need to make to GetAllHyperlinks() for the following case?

    -- original document contains both normal text and links
    -- result wanted: same document but each link is followed by a space and the URL

    Thanks
  • To post as a guest, your comment is unpublished.
    Sanjay K. · 3 years ago
    Excellent! It helped me extract some links from an html file that I opened with Word (Excel was discarding some links). Here is the modified code so that a csv file could be built that could be further used.

    [quote]SubGetAllHyperlinks()
    ' Updateby20160504
    ' https://www.extendoffice.com/documents/word/1411-word-select-copy-all-hyperlinks.html+&cd=1&hl=en&ct=clnk&gl=us
    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.InsertAfter (oLink.TextToDisplay)
    rng.InsertAfter (", ")
    rng.InsertAfter (oLink.Address)
    rng.InsertAfter (vbCrLf)
    Next
    docNew.Activate
    Application.ScreenUpdating = True
    Application.ScreenRefresh
    End Sub[/quote]
    • To post as a guest, your comment is unpublished.
      Pompeia · 2 years ago
      This code works fine to me. The two on examples in the article description don't. Thanks a lot and my best regards.
    • To post as a guest, your comment is unpublished.
      Rashesh Bosamiya · 3 years ago
      Thank you very much for this script.
      This helped me to extract 5K links.

      Thank you very much.
  • To post as a guest, your comment is unpublished.
    Dean · 3 years ago
    Thank you. Just what I needed to parse a document.
  • To post as a guest, your comment is unpublished.
    Maria · 3 years ago
    Indeed! ONE year later, am having similar issues and totally bawled over by your wonderful help!!
    God Bless YOu!!
  • To post as a guest, your comment is unpublished.
    sid · 4 years ago
    it is prompting " Compile Error: Syntax Error"
    Please help me, I need to do a lot of work using this .Reply asap
  • To post as a guest, your comment is unpublished.
    Mert · 5 years ago
    wow, its great. Thank you so much
  • To post as a guest, your comment is unpublished.
    Richie · 5 years ago
    Omg this is legendary stuff. So helpful. Thanks a lot! :-)