Wie wähle und kopiere ich alle Hyperlinks aus einem Word-Dokument?
In einigen Fällen ist ein langes Dokument mit mehreren Hyperlinks vorhanden, und Sie müssen nur alle Hyperlinks gleichzeitig aus diesem Dokument kopieren und dann in ein anderes Dokument einfügen. Gibt es eine Möglichkeit, alle schnell auf einmal zu kopieren, anstatt sie einzeln zu kopieren?
Kopieren Sie alle Hyperlinks mit VBA
Extrahieren Sie alle Hyperlink-Adressen mit VBA
Kopieren Sie mit Kutools for Word alle Hyperlinks oder nur Adressen in die Zwischenablage
Kopieren Sie alle Hyperlinks mit VBA
1. Öffnen Sie das Word-Dokument, in das Sie die Hyperlinks kopieren möchten, und drücken Sie Alt + F11 öffnen Microsoft Visual Based Application-Fenster.
2 Klicken Insert > Modulund kopieren Sie den folgenden VBA in das Fenster.
VBA: Kopieren Sie 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 Führen Sie Schaltfläche zum Ausführen des VBA-Codes. Anschließend 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, funktioniert dieser VBA-Code nicht.
Extrahieren Sie alle Hyperlinks mit VBA
1. Öffnen Sie das Word-Dokument, in das Sie die Hyperlinks extrahieren möchten, und drücken Sie Alt + F11 öffnen Microsoft Visual Based Application-Fenster.
2 Klicken Insert > Modulund kopieren Sie den folgenden VBA in das Fenster.
VBA: Extrahieren Sie 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 Führen Sie Schaltfläche zum Ausführen des VBA-Codes. Anschließend werden alle Hyperlink-Adressen in ein neues Dokument extrahiert und können später gespeichert werden.
Hinweis: Die Adresse der Extrakt-Hyperlinks befindet sich nicht in der ursprünglichen Reihenfolge.
Kopieren Sie mit Kutools for Word alle Hyperlinks oder nur Adressen in die Zwischenablage
Wenn Sie alle Hyperlinks oder nur Adressen einfach und schnell aus dem Word-Dokument in die Zwischenablage kopieren möchten, können Sie die Hyperlink kopieren Nutzen von Kutools for Word kann dir diesen Gefallen tun.
Kutools for Word, mit mehr als praktische Funktionen, erleichtert Ihre Arbeit. | ||
Nach der Installation Kutools for Word, bitte gehen Sie wie folgt vor:(Kutools for Word jetzt kostenlos herunterladen!)
1 Klicken Kutoolen Plus > Hyperlink kopieren.
2. Wählen Sie im Popping-Dialogfeld eine Option nach Bedarf aus.
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.
Kopieren Sie Hyperlinks und fügen Sie sie ein |
Kopieren Sie die Hyperlink-Adresse und fügen Sie sie ein |
Demo: Hyperlink kopieren
Durchsuchen und Bearbeiten mehrerer Word-Dokumente / Excel-Arbeitsmappen mit Registerkarten wie Firefox, Chrome, Internet Explore 10! |
Möglicherweise kennen Sie mehrere Webseiten in Firefox / Chrome / IE und wechseln zwischen ihnen, 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 einfach durch Klicken auf deren Registerkarten zwischen diesen wechseln können. |
Relative Artikel:
- Fügen Sie alle Hyperlinks des aktuellen Dokuments in Word ein, entfernen Sie sie und listen Sie sie auf
- Fügen Sie mehrere Hyperlinks zu einem Dokument in Word ein
- Entfernen Sie alle Hyperlinks in Word
Beste Office-Produktivitätstools
Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!
🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren / Text umschreiben / Dokumente zusammenfassen / Erkundigen Sie sich nach Informationen basierend auf Dokument, alles in Word
📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelkonvertierung in PDF / Seiten als Bilder exportieren / Drucken Sie mehrere Dateien gleichzeitig...
✏ Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg / Größe aller Bilder ändern / Vertauschen Sie Tabellenzeilen und -spalten / Tabelle in Text konvertieren...
🧹 Mühelose Reinigung: Wegfegen Zusätzliche Räume / Abschnittswechsel / Alle Header / Textfelder / Hyperlinks / Weitere Entfernungswerkzeuge finden Sie auf unserer Gruppe entfernen...
➕ Kreative Einsätze: Einfügen Tausend Trennzeichen / Kontrollkästchen / Radio Knöpfe / QR Code / Strichcode / Diagonale Linientabelle / Gleichungsbeschriftung / Bildunterschrift / Tabellenüberschrift / Mehrere Bilder / Entdecken Sie mehr im Gruppe einfügen...
🔍 Präzise Auswahl: Punktgenau bestimmte Seiten / Tabellen / Formen / Überschriften von Absätzen / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...
⭐ Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort / Sich wiederholenden Text automatisch einfügen / Wechseln Sie nahtlos zwischen Dokumentfenstern / 11 Konvertierungstools...