2 szybkie sposoby grupowego wyodrębniania wszystkich hiperłączy z dokumentu programu Word

Ten artykuł pokaże Ci 2 szybkie sposoby na wsadowe wyodrębnienie wszystkich hiperłączy z dokumentu Word, aby podążać za linkami.

Od czasu do czasu w dokumencie programu Word mogą znajdować się setki hiperłączy. W tym scenariuszu, jeśli chcesz skorzystać z określonego łącza, musisz najpierw przejść przez dokument, aby go znaleźć, co może być bardzo uciążliwe w przypadku długiego pliku.

Jeśli jednak wyeksportujesz je do nowego dokumentu, wszystko może stać się o wiele łatwiejsze. Oto nasze rozwiązania.

Metoda 1: Wykorzystaj funkcję „Znajdź”

1. Najpierw kliknij kartę „Strona główna”, a następnie przycisk grotu strzałki w pobliżu polecenia „Znajdź”.
2. Z menu rozwijanego wybierz „Wyszukiwanie zaawansowane”, aby otworzyć okno dialogowe „Znajdź i zamień”.
3. Następnie kliknij przycisk „Więcej” i kliknij „Format”.
4. Wybierz „Styl”, aby otworzyć okno „Znajdź styl”.
5. Wybierz „Hiperłącze” i kliknij „OK”.
6. Następnie kliknij „Znajdź w” i wybierz „Dokument główny”.

Możesz teraz zobaczyć wszystkie wybrane hiperłącza. Jeśli jednak skopiujesz je i wkleisz do nowego dokumentu, linki stracą formatowanie i staną się zwykłym tekstem.

Obecnie firma Microsoft nie ma rozwiązania tego problemu. Musisz więc ręcznie przekonwertować zwykły tekst z powrotem na hiperłącza. Oto nasz wcześniejszy artykuł, w którym wymieniono różne sposoby, którymi możesz się kierować: 5 sposobów konwertowania tekstów URL na hiperłącza w dokumencie programu Word

Ze względu na tę wadę polecamy inny sposób, również wykonywany za pomocą funkcji „Znajdź”. Zapoznaj się z sekcją „Znajdź wszystkie hiperłącza w dokumencie” w tym artykule: Jak znaleźć, zmienić i usunąć hiperłącza w dokumencie programu Word

Po znalezieniu wszystkich hiperłączy wykonaj czynności „Kopiuj” i „Wklej”, aby je wyeksportować.

Metoda 2: Uruchom kody VBA

1. Przede wszystkim naciśnij „Alt+F11”, aby otworzyć edytor VBA.
2. Następnie kliknij „Wstaw” i wybierz „Moduł”, aby utworzyć nowy w ramach projektu „Normalny”.
3. Następnie kliknij dwukrotnie moduł, aby otworzyć przestrzeń edycyjną i wklej tam poniższe kody:

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

4. Na koniec kliknij przycisk „Uruchom”.

Teraz otworzy się nowy dokument i wszystkie hiperłącza będą tam klikalne.

Poza tym, jeśli trzeba przetworzyć partię plików, możesz uruchomić to makro poniżej:

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

Pamiętaj, aby najpierw uporządkować wszystkie dokumenty w jednym folderze. Następnie uruchom powyższe makro, aby uzyskać pole wprowadzania. Wprowadź ścieżkę do folderu i kliknij „OK”.

Wszystkie hiperłącza są teraz dostępne w nowym dokumencie.

Gotowy na błędy Worda

Bez względu na to, jak niechętnie wpadamy na błąd Worda. To nieuniknione od czasu do czasu cierpieć z tego powodu. Naszą sugestią jest, gdy Word się załamuje, wybierając biegłego Naprawa słów narzędzie. Po prostu zostaw wszystko profesjonaliście.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym xls szkody i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com