Jak wybrać i skopiować wszystkie hiperłącza z dokumentu Word?
W niektórych przypadkach masz długi dokument z wieloma hiperłączami w programie i wystarczy skopiować wszystkie hiperłącza naraz z tego dokumentu, a następnie wkleić je do innego. Czy istnieje sposób, aby szybko skopiować je wszystkie na raz, zamiast kopiować je jeden po drugim?
Skopiuj wszystkie hiperłącza za pomocą VBA
Wyodrębnij wszystkie adresy hiperłączy za pomocą VBA
Skopiuj wszystkie hiperłącza lub tylko adresy do schowka za pomocą Kutools for Word
Skopiuj wszystkie hiperłącza za pomocą VBA
1. Otwórz dokument Worda, do którego chcesz skopiować hiperłącza, i naciśnij Alt + F11 otworzyć Okno aplikacji Microsoft Visual.
2. kliknij wstawka > Modułi skopiuj poniższy VBA do okna.
VBA: Skopiuj wszystkie hiperłącza
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. Kliknij run przycisk, aby uruchomić kod VBA. Następnie wszystkie hiperłącza są kopiowane do nowego dokumentu. Możesz później zapisać nowy dokument. Możesz zobaczyć wynik w następujący sposób.
Uwaga: Ten VBA może działać tylko wtedy, gdy wszystkie hiperłącza są połączone ze słowem, jeśli są obrazy z hiperłączami, ten kod VBA nie może działać.
Wyodrębnij wszystkie adresy hiperłączy z VBA
1. Otwórz dokument programu Word, z którego chcesz wyodrębnić hiperłącza, i naciśnij Alt + F11 otworzyć Okno aplikacji Microsoft Visual.
2. kliknij wstawka > Modułi skopiuj poniższy VBA do okna.
VBA: Wyodrębnij wszystkie adresy hiperłączy
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. Kliknij run przycisk, aby uruchomić kod VBA. Następnie wszystkie adresy hiperłączy są wyodrębniane w nowym dokumencie, możesz go później zapisać.
Uwaga: Adresy wyciągów hiperłączy nie są w oryginalnej kolejności.
Skopiuj wszystkie hiperłącza lub tylko adresy do schowka za pomocą Kutools for Word
Jeśli chcesz łatwo i szybko skopiować wszystkie hiperłącza lub tylko adresy do schowka z dokumentu programu Word, plik Kopiuj hiperłącze użyteczność Kutools dla Worda mogę zrobić ci tę przysługę.
Kutools dla Worda, ponad przydatne funkcje, ułatwiają pracę. | ||
Po zainstalowaniu Kutools for Word, wykonaj poniższe czynności:(Bezpłatne pobieranie Kutools for Word teraz!)
1. kliknij Kutools Plus > Kopiuj hiperłącze.
2. W wyświetlanym oknie dialogowym wybierz jedną z potrzebnych opcji.
Teraz wybierz jedną lokalizację, w której chcesz umieścić hiperłącza, naciśnij Ctrl + V wkleić je.
Skopiuj i wklej hiperłącza |
Skopiuj i wklej adres hiperłącza |
Demo: Kopiuj hiperłącze
Przeglądanie w kartach i edycja wielu dokumentów Word / skoroszytów programu Excel, takich jak Firefox, Chrome, Internet Explore 10! |
Możesz być zaznajomiony z przeglądaniem wielu stron internetowych w przeglądarce Firefox / Chrome / IE i przełączaniem się między nimi, łatwo klikając odpowiednie karty. Tutaj karta Office obsługuje podobne przetwarzanie, które umożliwia przeglądanie wielu dokumentów programu Word lub skoroszytów programu Excel w jednym oknie programu Word lub oknie programu Excel i łatwe przełączanie się między nimi, klikając ich zakładki. |
Względne artykuły:
- Wstaw, usuń i wyświetl wszystkie hiperłącza bieżącego dokumentu w programie Word
- Wstaw wiele hiperłączy do dokumentu w programie Word
- Usuń wszystkie hiperłącza w programie Word
Najlepsze narzędzia biurowe
Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!
🤖 Kutools Asystent AI: Zmień swoje pisanie dzięki AI - Generuj zawartość / Przepisz tekst / Podsumowanie dokumentów / Zapytaj o informacje na podstawie Dokumentu, wszystko w programie Word
📘 Znajomość dokumentów: Podziel strony / Scal dokumenty / Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/HTML...) / Wsadowa konwersja do formatu PDF / Eksportuj strony jako obrazy / Drukuj wiele plików jednocześnie...
✏ Edycja treści: Znajdź i zamień partii w wielu plikach / Zmień rozmiar wszystkich zdjęć / Transponuj wiersze i kolumny tabeli / Konwertuj tabelę na tekst...
🧹 Łatwe czyszczenie: Wymień Dodatkowe przestrzenie / Podziały sekcji / Wszystkie nagłówki / Pola tekstowe / Hiperłącza / Więcej narzędzi do usuwania znajdziesz na naszej stronie Usuń grupę...
➕ Kreatywne wstawki: Wstawić Tysiące separatorów / Pola wyboru / Przyciski Radio / Kod QR / kod kreskowy / Tabela linii ukośnych / Podpis równania / Tytuł Zdjęcia / Podpis tabeli / Wiele zdjęć / Odkryj więcej w Wstaw grupę...
🔍 Precyzyjne wybory: Punktowy konkretne strony / stoły / kształty / nagłówki akapitów / Ulepsz nawigację za pomocą jeszcze Wybierz funkcje...
⭐ Ulepszenia gwiazd: Nawiguj szybko do dowolnej lokalizacji / automatyczne wstawianie powtarzającego się tekstu / płynnie przełączaj się pomiędzy oknami dokumentów / 11 Narzędzia konwersji...