Làm cách nào để chọn và sao chép tất cả các siêu liên kết từ tài liệu Word?
Trong một số trường hợp, bạn có một tài liệu dài với nhiều siêu liên kết tồn tại và bạn chỉ cần sao chép tất cả các siêu liên kết cùng một lúc từ tài liệu này rồi dán chúng vào một tài liệu khác. Có cách nào có thể nhanh chóng sao chép tất cả chúng cùng một lúc thay vì sao chép từng cái một không?
Sao chép tất cả các siêu liên kết với VBA
Trích xuất tất cả các địa chỉ siêu liên kết bằng VBA
Sao chép tất cả các siêu liên kết hoặc chỉ địa chỉ vào khay nhớ tạm với Kutools cho Word
Sao chép tất cả các siêu liên kết với VBA
1. Mở tài liệu Word mà bạn muốn sao chép các siêu liên kết và nhấn Alt + F11 để mở Cửa sổ ứng dụng dựa trên trực quan của Microsoft.
2. nhấp chuột Chèn > Mô-đunvà sao chép VBA sau vào Window.
VBA: Sao chép tất cả các siêu liên kết
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. Nhấp vào chạy để chạy mã VBA. Sau đó, tất cả các siêu liên kết được sao chép sang một tài liệu mới. Bạn có thể lưu tài liệu mới sau. Bạn có thể xem kết quả như sau.
 |
 |
 |
Lưu ý: VBA này chỉ có thể chạy khi tất cả các siêu liên kết được liên kết với word, nếu có hình ảnh với siêu liên kết, mã VBA này không thể hoạt động.
Trích xuất tất cả các địa chỉ siêu liên kết với VBA
1. Mở tài liệu Word mà bạn muốn trích xuất các siêu liên kết và nhấn Alt + F11 để mở Cửa sổ ứng dụng dựa trên trực quan của Microsoft.
2. nhấp chuột Chèn > Mô-đunvà sao chép VBA sau vào Window.
VBA: Trích xuất tất cả các địa chỉ siêu liên kết
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. Nhấp vào chạy để chạy mã VBA. Sau đó, tất cả các địa chỉ siêu liên kết được trích xuất trong một tài liệu mới, bạn có thể lưu nó sau.
|
|
 |
Lưu ý: Địa chỉ siêu liên kết trích xuất không theo thứ tự ban đầu.
Sao chép tất cả các siêu liên kết hoặc chỉ địa chỉ vào khay nhớ tạm với Kutools cho Word
Nếu bạn muốn sao chép tất cả các siêu liên kết hoặc chỉ địa chỉ vào khay nhớ tạm từ tài liệu Word một cách dễ dàng và nhanh chóng, Sao chép siêu liên kết tiện ích của Kutools cho Word có thể làm cho bạn ưu ái này.
| Kutools cho Word, với hơn chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. | ||
Sau khi cài đặt Kutools cho Word, vui lòng làm như dưới đây:（Tải xuống miễn phí Kutools cho Word ngay!)
1. nhấp chuột Kutools Plus > Sao chép siêu liên kết.
2. Trong hộp thoại bật lên, hãy chọn một tùy chọn khi bạn cần.
Bây giờ, chọn một vị trí bạn muốn đặt các siêu liên kết, nhấn Ctrl + V để dán chúng.
| Sao chép và dán siêu liên kết |
 |
| Sao chép và dán địa chỉ siêu kết nối |
 |
Demo: Sao chép siêu liên kết
Duyệt theo tab & chỉnh sửa nhiều tài liệu Word / sổ làm việc Excel dưới dạng Firefox, Chrome, Internet Explore 10! |
|
Có thể bạn đã quen với việc xem nhiều trang web trong Firefox / Chrome / IE và chuyển đổi giữa chúng bằng cách nhấp vào các tab tương ứng một cách dễ dàng. Ở đây, Tab Office hỗ trợ xử lý tương tự, cho phép bạn duyệt nhiều tài liệu Word hoặc sổ làm việc Excel trong một cửa sổ Word hoặc cửa sổ Excel và dễ dàng chuyển đổi giữa chúng bằng cách nhấp vào tab của chúng. |
 |
Các bài báo tương đối:
- Chèn, xóa và liệt kê tất cả các siêu liên kết của tài liệu hiện tại trong Word
- Chèn nhiều siêu liên kết vào một tài liệu trong Word
- Loại bỏ tất cả các siêu liên kết trong Word
Công cụ năng suất văn phòng tốt nhất
Kutools cho Word - Nâng cao trải nghiệm sử dụng từ của bạn với Over 100 Các tính năng đáng chú ý!
🤖 Trợ lý AI của Kutools: Biến đổi bài viết của bạn bằng AI - Tạo nội dung / Viết lại văn bản / Tóm tắt tài liệu / Hỏi thông tin dựa trên tài liệu, tất cả đều có trong Word
📘 Làm chủ tài liệu: Chia trang / Hợp nhất tài liệu / Lựa chọn xuất khẩu ở nhiều định dạng khác nhau (PDF/TXT/DOC/HTML...) / Chuyển đổi hàng loạt sang PDF / Xuất trang dưới dạng hình ảnh / In nhiều tập tin cùng một lúchữu ích. Cảm ơn !
✏ Chỉnh sửa nội dung: Tìm và thay thế hàng loạt trên nhiều tệp / Thay đổi kích thước tất cả hình ảnh / Hoán đổi hàng và cột của bảng / Chuyển bảng thành văn bảnhữu ích. Cảm ơn !
🧹 Dễ dàng làm sạch: Quét đi Không gian bổ sung / Phần ngắt / Tất cả các tiêu đề / Hộp văn bản / Các siêu liên kết / Để biết thêm các công cụ xóa, hãy truy cập Xóa nhómhữu ích. Cảm ơn !
➕ Phụ trang quảng cáo: Chèn Ngàn dấu phân cách / Hộp kiểm tra / Nút radio / Mã QR / Mã vạch / Bảng đường chéo / Chú thích phương trình / Hình ảnh Caption / Bảng chú thích / Nhiều Hình Ảnh / Khám phá thêm trong Chèn nhómhữu ích. Cảm ơn !
???? Lựa chọn chính xác: Xác định trang cụ thể / bảng / hình dạng / đoạn văn tiêu đề / Tăng cường điều hướng với chi tiết Chọn tính nănghữu ích. Cảm ơn !
⭐ Cải tiến sao: Điều hướng nhanh chóng đến bất kỳ vị trí nào / tự động chèn văn bản lặp đi lặp lại / chuyển đổi liền mạch giữa các cửa sổ tài liệu / 11 công cụ chuyển đổihữu ích. Cảm ơn !
