Bài viết này sẽ chỉ cho bạn 2 cách nhanh chóng để trích xuất hàng loạt tất cả các siêu liên kết từ tài liệu Word của bạn, để theo các liên kết.
Thỉnh thoảng, có thể có hàng trăm siêu liên kết nằm rải rác trên một tài liệu Word. Trong trường hợp này, nếu bạn cần theo một liên kết cụ thể, trước tiên bạn phải điều hướng qua tài liệu để tìm nó, điều này có thể gây khó khăn cho một tệp dài.
Tuy nhiên, nếu bạn xuất chúng sang một tài liệu mới, mọi thứ có thể trở nên dễ dàng hơn rất nhiều. Dưới đây là các giải pháp của chúng tôi.
Phương pháp 1: Sử dụng tính năng “Tìm kiếm”
- Đầu tiên, nhấp vào tab “Trang chủ”, sau đó nhấp vào nút đầu mũi tên gần lệnh “Tìm”.
- Trên trình đơn thả xuống, chọn “Tìm nâng cao” để mở hộp thoại “Tìm và thay thế”.
- Tiếp theo, nhấp vào nút “Thêm” và nhấp vào “Định dạng”.
- Chọn “Kiểu” để mở hộp “Tìm Kiểu”.
- Chọn “Siêu liên kết” và nhấp vào “OK”.
- Sau đó nhấp vào “Tìm trong” và chọn “Tài liệu chính”.
Bây giờ bạn có thể thấy tất cả các siêu liên kết trong lựa chọn. Tuy nhiên, nếu bạn sao chép và dán chúng vào một tài liệu mới, bạn sẽ thấy các liên kết bị mất định dạng và trở thành văn bản thuần túy.
Hiện tại, Microsoft chưa có giải pháp cho vấn đề này. Vì vậy, bạn phải chuyển đổi văn bản thuần túy trở lại siêu liên kết một lần nữa theo cách thủ công. Đây là bài viết trước đây của chúng tôi, liệt kê nhiều cách khác nhau mà bạn có thể làm theo: 5 cách để chuyển đổi văn bản URL thành siêu liên kết trong tài liệu Word của bạn
Vì thiếu sót này, chúng tôi đề xuất cho bạn một cách khác, cũng được thực hiện với sự trợ giúp của tính năng “Tìm”. Vui lòng tham khảo phần “Tìm tất cả siêu liên kết trong tài liệu” trong bài viết này: Cách tìm, thay đổi và xóa siêu liên kết trong tài liệu Word của bạn
Sau khi tìm thấy tất cả các siêu liên kết, bạn thực hiện thao tác “Sao chép” và “Dán” để xuất chúng.
Phương pháp 2: Chạy mã VBA
- Trước tiên, hãy nhấn tổ hợp phím “Alt + F11” để mở trình soạn thảo VBA.
- Tiếp theo, nhấp vào “Chèn” và chọn “Mô-đun” để tạo một mô-đun mới trong dự án “Bình thường”.
- Sau đó nhấp đúp vào mô-đun để mở không gian chỉnh sửa và dán mã dưới đây vào đó:
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
- Cuối cùng, nhấp vào nút "Chạy".
Bây giờ sẽ có một tài liệu mới được mở và tất cả các siêu liên kết đều có thể nhấp được ở đó.
Ngoài ra, trong trường hợp có một loạt tệp cần xử lý, bạn có thể chạy macro này dưới đây:
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
Hãy nhớ sắp xếp tất cả các tài liệu trong một thư mục đầu tiên. Sau đó chạy macro trên để lấy hộp nhập liệu. Nhập đường dẫn thư mục và nhấp vào “OK”.
Tất cả các siêu liên kết hiện có sẵn trong một tài liệu mới.
Sẵn sàng cho các lỗi từ
Cho dù chúng ta có miễn cưỡng đến mức nào khi gặp phải lỗi Word. Đôi khi phải chịu đựng điều này là điều không thể tránh khỏi. Gợi ý của chúng tôi là khi Word bị sập, hãy chọn một sửa chữ dụng cụ. Chỉ cần để lại tất cả mọi thứ cho các chuyên gia.
Giới thiệu tác giả:
Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm thiệt hại xls và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm